Foro - Perl en Español

por **javierg** » 2007-01-02 06:09 @298

Buenas,

tengo el siguiente código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($linea=<CARGANODOS>)
{printf FICHERONODOS $linea;>>>>OK

   ¿¿¿ DUDA ???
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El fichero CARGANODOS es de la siguiente forma

Código: Seleccionar todo: nombre1 Ip1 nombre2 Ip2

Bien, me gustaría guardar el nombre en una variable y la ip en otra.
Bueno lo guardaré en un array, lo que me interesa es saber cómo se leen partes de una línea del fichero.

gracias

BUenas,
muy curioso todo, lo he probado ambos casos y todo OK, pero solo con una excepción, que imagino que esta fuera del Perl, pero por si os interesase.
Utilizando Solaris
Cuando edito un fichero con el Vi, por ejemplo pruebas.txt, y por ejemplo el siguiente contenido

pruebas.txt
******************
Nombre1 Ip1

lo curioso de esto,que despues de Ip1 automaticamente me crea un retorno de carro¿¿ curioso ??lo he intentado eliminar con comandos pero no he podido.
Parte del script lo que hacia, era que con esas 2 variables usadas, hacía una frase, así que con el retorno de carrro me la partía. Solución: he añadido un espacio en blanco despues de Ip1, aunque se que no es solucion+

gracias por todo

Sitio web · por **monoswim** » 2007-01-03 07:12 @342

puedes usar un

chomp $linea;

Para eliminar el último caracter (salto de línea o retorno de carro) de la línea en cuestión...

Creo que era chomp, o chop, no me acuerdo bien...

Saludos

por **explorer** » 2007-01-03 07:53 @370

Cuando lees la línea con <CARGANODOS>, te lees también el retorno de carro que está al final de esa línea.

Al hacer el split, en $ip quedará con ese retorno de carro.

Si luego hacemos un print "$ip\n"; pues entonces sale la ip con su retorno de carro más el retorno de carro nuevo ("\n").

La solución es la que te comenta monoSwim: haces un chomp a la línea nada más leerla, con lo que eliminarás el retorno de carro leído.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(<CARGANODOS>){
chomp;
print FICHERONODOS "$_\n";
($nombre,$ip)=split;
print"Nombre: $nombre. IP: $ip\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **javierg** » 2007-01-03 08:35 @399

OK, muchisimas gracias por todo.
Haber si hay suerte y me acostumbro en esto del perl y me puedo conectar mas por el foro

Bye

por **creating021** » 2007-01-03 11:12 @508

También puedes configurar Vi para que no haga una nueva línea (warp) :wink:

Para eso puedes ejecutar vi y usar el comando :help (no te puedo decir nada más porque estoy en GNU/Linux y vi es elvis en GNU)
Depronto esto te pueda ayudar.
http://bignosebird.com/docs/vi.shtml

Foro - Perl en Español

Guardar campos de un fichero

Guardar campos de un fichero

Publicidad

¿Quién está conectado?