Foro - Perl en Español

Bienvenido a los foros de Perl en Español, rafical.

La expresión regular que estás usando,

$linea =~ s/^\t*//;

está buscando por tabuladores al principio (^) de la línea, no al final. Debería ser así:

$linea =~ s/\t*$//;

aunque quizás quede mejor asegurarnos y podemos decir que nos quite cualquier blanco o carácter espacio del final:

$linea =~ s/\s*$//;

Otra opción sería, directamente, quitarlo:

chop $linea;

(siempre y cuando estemos seguros de que ese carácter molesto está en TODAS las líneas).

Lo interesante es saber qué carácter es. Con un editor hexadecimal como el khexedit o en consola, con el hexdump, lo puedes sacar fácilmente. Pero bueno, con el chop(), se arregla rápido.

(Yo sospecho de que se trata del carácter 13 (retorno de carro)).

Ahí no se ve nada. Ese cuadradito es solo la representación de la fuente de letras, indicando que se trata de un carácter del que no tiene un diseño.

Seguro que ese editor debe tener un visor en hexadecimal, y ahí podrás ver cuál es.

Dices que Vim te sale ^@. Podría ser entonces el chr(0).

Insisto en que con chop() lo arreglas, pero antes debes saber realmente cómo termina la línea.

Si, suponemos, que termina con un chr(0) seguido de un chr(10), pues puedes quitar los dos con

chomp $linea; # quita el avance de línea
chop $linea; # quita el 0

O con expresiones regulares (no probado):

$linea =~ s/\000\n$//;

Muy divertida la línea

$paramFile[7] =~ s/\x0d\0xa/' + Chr(13) + Chr(10) + '/;

¿Qué lenguaje es ese?

Bueno, pues si estás en un sistema Windows, haces las DOS líneas que te he puesto antes, y listo:


O la expresión regular...

$linea =~ s/\000\r\n$//;

Bueno, como no tengo Windows, no estoy seguro de si es la correcta, pero yo probaría antes con

$linea =~ s/\000\n$//;

No te fíes del vim. En algunas instalaciones, el vim viene configurado para agregar un carácter de nueva línea al final de la última línea, en caso de que no exista ese carácter. Esto se hace así porque durante muchos años, los programadores cometían el error de no poner ese último carácter, y afectaba al funcionamiento de otros programas. Por eso, como esos programadores usaban vi (o vim), se puso esa condición al editor: agregar de forma incondicional un carácter así, si el archivo no lo tiene.

Lo que realmente cuenta es lo que diga el comando hexdump (u otros programas de volcado hexadecimal). Ni siquiera vale el comando vim -b.

Tienes que repasar el significado de los caracteres de fin de línea, pues suele indicar de dónde viene (de qué sistema operativo ha salido ese archivo).

Para quitar esos caracteres, hay que usar siempre chomp(). Solo habría que usar una expresión regular en caso de que estemos procesando un archivo que ha sido creado en un sistema operativo y se va a procesar en otro, en cuyo caso los caracteres de nueva línea son distintos entre sí (chomp() en un sistema no identificará los caracteres en el archivo creado en el otro).

También podemos usar la expresión regular

$texto =~ s/[\r\n]+//g;

que lo que hace es eliminar cualquier presencia de los caracteres Avance de línea y Retorno de carro.