 Mar Oct 03, 2006 3:42 pm
|
|
|
| imprimiendo valores en pantalla |
 |
|
Saludos a todos...
Estoy leyendo datos de un archivo de texto y todo va bien, saco la información perfectamente, hago un split para separar los datos por línea, pero el problema viene cuando voy a imprimir algunos valores el cual me arroja la siguiente salida
valor1
^Mvalor2
^Mvalor3
^Mvalor4
.
.
.
la primera vez lo hace bien pero de la segunda en adelante me adiciona el ^M he buscado info y no he podido resolver el problema a alguien le ha pasado alguna vez esto?
NOTA: Estoy trabajando bajo Linux
gracias de antemano |
|
|
|
|
Mar Oct 03, 2006 3:55 pm
|
 |
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4213
Ubicación: Valladolid, España
|
|
|
|
|
¡Bienvenido a los foros de Perl en Español!
El problema es que estás leyendo un fichero hecho en Windows. El '^M' es el símbolo del retorno de carro.
Seguramente estás haciendo un chop para quitar el final de línea. Prueba a poner un chomp.
Si eso no te funciona, prueba a definir al principio del programa $/ = "\r\n". |
|
|
Mar Oct 03, 2006 4:50 pm
|
|
|
|
|
|
gracias, intenté lo q me señalaste y nada, con el chomp hace exactamente lo mismo y cuando defino $/="\r\n" no me muestra ningúnn valor y es extraño, porque el archivo lo estoy generanto con el mismo script en perl usando esta linea
qx(repquota -a | awk -F" " '{print $1 " " $3 " " $5}' > /tmp/archivo.txt)
y de alli es q estoy sacando el nombre del usuario, espacio usado, y quota asignada
el escript es para q me de reportes semanales de las quotas de disco |
|
|
Mar Oct 03, 2006 4:58 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4213
Ubicación: Valladolid, España
|
|
|
|
|
Humm... a mi me haría falta ver algo más de código...
Si el problema no está a la entrada, quizás el problema esté a la salida. |
|
|
Mie Oct 04, 2006 6:09 pm
|
|
creating021
Vive para Perl en Español
|
Registrado: 23 Feb 2006
Mensajes: 498
Ubicación: Frente al monitor
|
|
|
|
Powered by phpBB © 2001, 2005 phpBB Group
|
