Al guardar se desconfigura el contenido, e incluso salta las líneas del campo preestablecido donde debe estar contenido dicha información.
Using perl Syntax Highlighting
- open (DATOS, "$archivo_articulos") || &Error ($!, "$archivo_articulos");
- open (TEMPORAL, ">$archivo_temporal") || &Error ($!, "$archivo_temporal");
- while($archivo=<DATOS>){
- chop $archivo;
- $parrafo=~s/\r//g;
- $parrafo=~s/\n/\<br>/g;
- $parrafo=~s/\n/<\p>/g;
- $cadena="$archivo";
- @matriz=split("\t",$archivo);
- $cod=$matriz[0];
- if ($cod eq $codigo){
- $cadena="$codigo\t";
- $cadena="$cadena$titulo\t";
- $cadena="$cadena$parrafo\t$galerias\t$linkt\t$link\t$autor\t$email\t$inactivo";
- }
- print TEMPORAL "$cadena\n";
- }
- close DATOS;
- close TEMPORAL;
- open (TEMPORAL, "$archivo_temporal") || &Error ($!, "$archivo_temporal");
- @mat=<TEMPORAL>;
- close TEMPORAL;
- open (DATOS, ">$archivo_articulos") || &Error ($!, "$archivo_articulos");
- print DATOS @mat;
- close DATOS;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Esto guarda, pero como explique anteriormente se desconfigura el contenido que está dentro de la variable $parrafo.
Cabe destacar que guardo información por línea, como se muestra en el código, un grupo de artículos informativos. Por tanto el error daña la visualización terriblemente.
Me gustaría saber qué posible solución se podría hacer. De antemano, gracias.
