tengo un problema con los formatos de dos y unix.
He sacado este código de los tutoriales de la web, en el que se hace un upload de un formulario.
Using perl Syntax Highlighting
my @pairs = $query->param;
my $nombre_archivo = "/tmp/Archivo.txt";
my $manipulador = $query->upload($pair);
#Abrimos el nuevo archivo
open (OUTFILE, ">$nombre_archivo") || die "No se puedo crear el archivo";
binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte por byte el archivo
while (my $bytesread = read($manipulador, my $buffer, 1024)) {
print OUTFILE $buffer;
}
#Cerramos el archivo creado
close (OUTFILE);
my $nombre_archivo = "/tmp/Archivo.txt";
my $manipulador = $query->upload($pair);
#Abrimos el nuevo archivo
open (OUTFILE, ">$nombre_archivo") || die "No se puedo crear el archivo";
binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte por byte el archivo
while (my $bytesread = read($manipulador, my $buffer, 1024)) {
print OUTFILE $buffer;
}
#Cerramos el archivo creado
close (OUTFILE);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Pero el fichero resultante tiene formato DOS (cuando el cliente es Windows) y los demás scripts no lo reconocen. ¿Como podría transformarlo a UNIX? Me imagino que con MAC habrá el mismo problema. ¿Hay alguna forma de generalizar los formatos de entrada?
Muchas gracias.
