Quiero buscar un valor ($ip) dentro de una lista ips.txt; si este IP existe en la lista ejecuto una acción. De lo contrario ejecuto otra.
Creé un archivo ips.txt:
- Código: Seleccionar todo
192.168.50.2
192.168.50.3
192.168.50.4
192.168.50.5
Using perl Syntax Highlighting
$file= "/partition/practicas/ips.txt";
open(DATOS, "<$file");
my @lineas = <DATOS>;
close(DATOS);
$ip=192.168.50.2
open(DATOS, "<$file");
my @lineas = <DATOS>;
close(DATOS);
$ip=192.168.50.2
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
foreach $linea (@lineas) {
if ($linea == $ip) {
print "Tengo el ip, $ip\n !!!";
}
else {
print "no tengo ip !!!";
}
if ($linea == $ip) {
print "Tengo el ip, $ip\n !!!";
}
else {
print "no tengo ip !!!";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
El problema es que no me da los resultados correctos.
Si por favor me tiran una luz le agradezco.
Me faltaba