Re: OT Perl reguläre Ausdrücke
> 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
Reply to: