Re: OT Perl reguläre Ausdrücke

[Christoph Haas <email@christoph-haas.de>]

> Wie könnte ich folgenden Regulären Ausdruck erweitern,
> damit nicht z.B. 432.444.259.666 eigegeben werden kann?
> Also größer gleich 1, kleiner gleich 254
> 
> ---->> code
> 
> if ($ip =~ /^(\d{1,3}\.){3}\d{1,3}$/) {
>                  return 1;
>         } else {
>                  return 0;
>         }
> 
> <<-----

Das kannst du leider fast vergessen. Wenn du prüfen willst, ob eine
IP-Adresse gültig ist oder in einem bestimmten Bereich liegt, dann prüfe
lieber jedes Byte einzeln oder benutze Net::Netmask.

Alternativ:

for my $byte ( split(/\./, $ip) )
{
	return 0 if $byte < 1 or $byte > 255;
}
return 1;

 Gruß, Christoph

-- 
~
~
".signature" [Modified] 3 lines --100%--                3,41         All