Dotaz: Perl a regularni vyraz

[kafi]

Zdravim vsechny, mam problem s regularnim vyrazem v perlu. Potrebuju kontrolovat spravnost zadani IP adresy. A mam tedy zadano:

if (! $ip_adresa~=/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
     {
      print "SPatne zadana IP!";
      exit 2;
     }
else {
      /neco
     }

Tento zapis bohuzel nefunguje. Vyhovi i spatne zadane IP adrese.

Odpovědi

[mmm]

if ($ip_adresa =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ ) {
        # OK
} else {
        # BAD
}

[mmm]

alebo:

if (! ($ip_adresa =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) ) {
        # BAD
} else {
        # OK
}

[kafi]

Moc dekuji, takova prkotina. Jedna zavorka a co udela.

[alex]

Operator m/regexp/ vyzaduje =~, ne ~=.

$ip_adresa =~ /regexp/ or die "Spatne zadana IP!";
#pokracovani

Navic, vas regulerni vyraz propousti i takove adresy: 999.888.777.666. Jednoduche \d{1,3} pro tyto ucely nestaci.

[kafi]

Ona cela ta podminka na kontrolovani vypada nasledovne

if (! ($ip_adresa =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) )
    {    
     print "Chybna IP adresa!";
     print LOG_FILE "Spatne zadana IP=$ipadresa!\n";
     $stav=1;&konec;
    }
   else
    {
     @kont_ip=split (/\./,$ip_adresa);
      foreach $ip (@kont_ip)
      	{
	   if ($ip >= 255)
	     {
	       print LOG_FILE "Satne zadana IP=$ip_adresa!\n";
	       $stav=1;&konec;
	     }
	}

Nic extra ale funguje. Jeste by se dalo vylepsit. Ale neni cas.