Foro - Perl en Español

Buenas,

tengo el siguiente código


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

en ese bucle tienes cada línea en $linea; si están los datos separados por un espacio puedes hacer

Saludos

Y en caso de que el número de espacios en blanco sea variable, se puede usar la forma especial de split:

Además, el espacio en blanco es el delimitador por defecto de la función split cuando se quiere dividir la variable por defecto $_, por lo que podemos usar:
con la ventaja de que además nos quitará los espacios en blanco que estén por delante y por detrás de los dos campos.

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

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

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.

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

También puedes configurar Vi para que no haga una nueva línea (warp)
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