Datos de archivo para script perl

Forums: 

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

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.

"Transporta un puñado de tierra todos los días y construirás una montaña" - Confucio
floss.iknaxio.net

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
:)