Tengo una aplicación web, donde el usuario quiere cargar los datos de un fichero txt y se guardan en una bd.
La carga del fichero en el servidor se hace de manera correcta si el navegador es Mozilla en cambio si el navegador es el Explorer da el siguiente error:
- Código: Seleccionar todo
Can't use string ("fichero.txt") as a symbol ref while "strict refs" in use at c:\www\upload.pl line XXX.
La línea de código donde se supone que esta el error es esta:
Using perl Syntax Highlighting
open (OUTFILE, ">$dir/$nombre_en_servidor") || die "No se puedo crear el archivo";
binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte por byte el archivo
-->ESTA ES LA LINEA while (my $bytesread = read($nombre_en_servidor, my $buffer,1024)) {
print OUTFILE $buffer;
}
#Cerramos el archivo creado
close (OUTFILE);
binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte por byte el archivo
-->ESTA ES LA LINEA while (my $bytesread = read($nombre_en_servidor, my $buffer,1024)) {
print OUTFILE $buffer;
}
#Cerramos el archivo creado
close (OUTFILE);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Debe tener algún problema al indicarle el nombre del fichero que se quiere cargar en el servidor ($nombre_en_servidor), le he puesto el nombre a pelo, pero me ha dado el mismo error.
Si alguien tiene alguna idea o orientación de por dónde puede venir el error.
Muchas gracias