Re: OT Perl reguläre Ausdrücke

[Jan.Trippler@t-online.de (Jan Trippler)]

On Die, 18 Feb 2003 at 00:33 (+0100), Mario Duve wrote:
> Hallo,
> 
> 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;
>         }
> 
> <<-----

Wie schon geschrieben: Mit RE wohl nicht zu machen. Meine Variante:

my $rc = 0;
foreach (split /\./, $ip) {
  $rc = 1 unless ($_ & 255) == $_ and $_;
}

Jan