Buenos días. Tengo un problema a la hora de guardar contenido de un editor WYSIWYG en un .dat simple desde Perl.
Al guardar se desconfigura el contenido, e incluso salta las líneas del campo preestablecido donde debe estar contenido dicha información.
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;
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 ...