Muchas gracias por la respuesta...
La probaré dentro de un momento...
el servidor quedó bloqueado... no sé por qué... no funciona ni una página...
apenas se restablezca seguiré probando...
y les informo...
Gracias
-
- Publicidad
Leer campo FILE con STDIN
13 mensajes
• Página 2 de 2 • 1, 2
Publicidad
por roy » 2009-02-21 22:57 @998
Bien les mando el código para me den una manita.
Los ejemplos anteriores no funcionaron. Gracias por todo.
Los ejemplos anteriores no funcionaron. Gracias por todo.
Using perl Syntax Highlighting
#!/usr/bin/perl -W
#Definimos los módulos que vamos a utilizar
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Fcntl qw(:DEFAULT :flock);
use File::Temp qw/ tempfile tempdir /;
use LWP::UserAgent;
use HTTP::Request;
my $tmp_dir="/home/www/rcdasoft/";
my $max_upload = 500000; #Aproximadamente 0,5MB
#si comento estas tres lineas y pongo stdin funciona y me lo envia con cabeceras
my $query = new CGI(STDIN);
my $ARCHIVOO = $query->param("archivo");
my $ARCHIVOO = $query->upload('archivo'); # Accedemos al campo upload del formulario
my $archivo = "ejemplo1.jpg";
my $datos_archivo = "$tmp_dir/$archivo"; #Donde se guardará el archivo
my $tam_archivo = "$tmp_dir/$archivo"."tam"; #Donde se guardará el tamaño del archivo total
#my $content_type = $ENV{'CONTENT_TYPE'};
#my $content_length = $ENV{'CONTENT_LENGTH'};
#Abrimos el nuevo archivo
open (OUTFILE, ">$tmp_dir/$archivo") || die "No se puedo crear el archivo";
#binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte por byte el archivo ahora solo obtengo un archivo vacio..
while ( read($ARCHIVOO, my $buffer, 1024) ) {
print OUTFILE $buffer;
}
#Cerramos el archivo
close (OUTFILE);
print "Content-type: text/html\n\n";
print "Archivo subido con éxito <br/>";
print "<a href='http://pruebas.quomusic.es/demo/descargar.php?id=>Descargar archivo</a>";
#Definimos los módulos que vamos a utilizar
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Fcntl qw(:DEFAULT :flock);
use File::Temp qw/ tempfile tempdir /;
use LWP::UserAgent;
use HTTP::Request;
my $tmp_dir="/home/www/rcdasoft/";
my $max_upload = 500000; #Aproximadamente 0,5MB
#si comento estas tres lineas y pongo stdin funciona y me lo envia con cabeceras
my $query = new CGI(STDIN);
my $ARCHIVOO = $query->param("archivo");
my $ARCHIVOO = $query->upload('archivo'); # Accedemos al campo upload del formulario
my $archivo = "ejemplo1.jpg";
my $datos_archivo = "$tmp_dir/$archivo"; #Donde se guardará el archivo
my $tam_archivo = "$tmp_dir/$archivo"."tam"; #Donde se guardará el tamaño del archivo total
#my $content_type = $ENV{'CONTENT_TYPE'};
#my $content_length = $ENV{'CONTENT_LENGTH'};
#Abrimos el nuevo archivo
open (OUTFILE, ">$tmp_dir/$archivo") || die "No se puedo crear el archivo";
#binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte por byte el archivo ahora solo obtengo un archivo vacio..
while ( read($ARCHIVOO, my $buffer, 1024) ) {
print OUTFILE $buffer;
}
#Cerramos el archivo
close (OUTFILE);
print "Content-type: text/html\n\n";
print "Archivo subido con éxito <br/>";
print "<a href='http://pruebas.quomusic.es/demo/descargar.php?id=>Descargar archivo</a>";
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
- roy
- Perlero nuevo
- Mensajes: 8
- Registrado: 2009-02-21 10:57 @498
13 mensajes
• Página 2 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado