Foro - Perl en Español

por **charlygarcia** » 2009-10-10 07:13 @342

Hola a todos.

Gracias a toda la comunidad de perlenespanol pues aquí he aprendido y seguiré aprendiendo mucho.

Resulta que le he dado a mis usuarios un formulario para que ingresen datos y los datos enviados por mis usuarios los agrego a un archivo de tipo texto de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$FILE="datosoct.txt";
open(archivconf,">>".$FILE);
$linea=$id."::".$campo1."::".$campo2."::\n";
print archivconf ($linea);
close(archivconf);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

pero los contenidos de la variable $campo1 vienen de un textarea por lo cual el usuario puede entrar una descripción de varias líneas, y cuando reviso el archivo "datosoct.txt" encuentro a veces las líneas terminadas en los fines de línea (\n) ingresados por los usuarios en el textarea asociada a $campo1.

Mi pregunta es: ¿cómo podría yo, antes de armar la línea $linea, que voy a ingresar al archivo, eliminarle esos retornos de carro al campo $campo1?

Muchas gracias por la colaboración.

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

El problema de chop() es que elimina, de forma indubitativa, el último carácter de cada línea. Sea cual sea.

En el caso que cuenta charlygarcia, que los finales de línea son solo un carácter "\n", entonces sí que puede valer, salvo la última línea, que quizás no lo tenga. En ese caso, chop() se carga el último carácter, algo que no debía de hacer.

Es mejor usar entonces el chomp().

Otro detalle que me he dado cuenta: tanto las soluciones con chop(), con chomp() o la de expresión regular, tienen un fallo: la eliminación de los finales de línea provoca la unión de líneas de un mismo párrafo.

Una mejor solución es la de hacer un filtrado más drástico: quitar toda secuencia de uno o más caracteres espacio, por un solo espacio:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$campo1=~s/\s+/ /g;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De esta manera,
* Las secuencias de dos o más caracteres espacio quedan reducidos a uno solo.
* Los finales de línea, que también son capturados por '\s', son cambiados por un carácter, por lo que, ademas de eliminarlos, unimos las líneas con un espacio en blanco.

Problemas:
* No se respetará el formato de párrafos creado por el usuario
* Si el usuario usa el textarea para enviar algo más que texto no formateado, se perderá el formateo (tablas, listas de opciones, etc.).

No es un asunto sencillo, pero tal como lo ha planteado charly, de forma fácil, pues igual de fácil se debería resolver.

Foro - Perl en Español

Cómo eliminar los fines de línea de una cadena

Cómo eliminar los fines de línea de una cadena

Publicidad

Re: como eliminar el fin de linea de una cadena ?

Re: como eliminar el fin de linea de una cadena ?

Re: Cómo eliminar los fines de línea de una cadena

Re: Cómo eliminar los fines de línea de una cadena

¿Quién está conectado?