Datos de archivo para script perl

tinen idea la forma de que un script en perl saque de datos de un archivo.
de esta manera:

ip ip real puerto
121.151.15.15 154.21.15.15 30
121.23.43.54 231.232.43.23 12

Forums: 

No

Imagen de iknaxio

No :P

Pero si ya haz programado antes creo que deberias investigar como se hace en Perl lo siguiente:

* leer un archivo texto
* guardar cada linea en una cadena
* hacer un split a la cadena anterior teniendo como caracter divisor el espacio en blanco

Hasta cuando seremos los pacíficos dueños de tanto absurdo.

En

Imagen de deathUser

En PERL:

#!/usr/bin/perl
#Abrir archivo
open(FILE,'<','lista.txt');
#Leer archivo en un lazo
while (){
chomp();
#Separar por un caracter
($ip1, $ip2, $port) = split(/ /, $_, 3);
#Hacer lo que quieras con las variables obtenidas...
print "ip1: $ip1, ip2: $ip2, port: $port\n";
}
#No olvidarse de cerrar el archivo...
close(FILE);

bye
:)