Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
En $datos{'userfile'} obtengo la información de la dirección del archivo... (no aparece la ruta entera... no sé si esto es relevante...
Using perl Syntax Highlighting
- my $ruta = "/var/www/cgi-bin";# ruta a donde va a ir el archivo
- my $nombre_en_servidor = $datos{'userfile'};
- $nombre_en_servidor =~ s/ /_/gi;
- $nombre_en_servidor =~ s!^.*(\\|\/)!!;
- if($nombre_en_servidor =~ /\.txt$/){
- open (OUTFILE, ">$ruta/$nombre_en_servidor") || 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($datos{'userfile'}, my $buffer, 1024)) {
- print "Subiendo archivo";
- print OUTFILE $buffer;
- }
- #Cerramos el archivo creado
- close (OUTFILE);
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
He estado toda la tarde tratando de subir el archivo .txt :s... Crea el documento en la carpeta, pero no la información en él.
El error.log de Apache dice:
Using text Syntax Highlighting
read() on unopened filehandle at /var/www/cgi-bin/whois.pl line 51., referer: http://localhost/staff/seleccion.php?lista=Whois
La linea 51 es la del while... ¿qué estoy haciendo mal?.. ¡¡¡¡ayuda!!!!
Ya no sé que más pueda ser.