[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: OT Perl reguläre Ausdrücke



Am 18.02.2003 um 00:33 schrieb Mario Duve:

> 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

    my $i = 0;
    for ( split(/\./,shift) ) {
	return 0 if not /^(\d{1,3})$/;
	return 0 if not ($1 >= 0 && $1 <= 255);
	$i++;
    }
    return 1 if $i == 4;
    return 0


MfG,
Dennis



Reply to: