[Cascavel-pm] Validando um IP

[Daniel Ruoso]

Qui, 2006-10-19 às 19:27 -0300, Sammuel de Souza escreveu:
> Ola,

Olá,
 
> $ip = "192.168.0.1"; 
> if ($ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) { print "IP nao é valido"; }
> porem não esta dando cento como faço p/ verificar se a sintaxe esta
> cert ???

Assim samuel, o seu código está absolutamente correto. O único problema
nele é a string que você está imprimindo... ela deveria ser "IP é
valido"... Ou então você muda o if para unless ou ainda muda o =~ para !
~ você decide...

Mas de qualquer forma, eu no seu lugar faria essa busca:
http://search.cpan.org/search?query=ip+valid

Ela parece ter uns bons resultados... 

daniel