Foro - Perl en Español

por **unestigma** » 2005-08-26 09:33 @440

Estoy tratando de utilizar el código para crear el sistema de subida de archivos.

Al querer subirlo me sale el siguiente error

Software error:
Global symbol "$public_html" requires explicit package name at /home/unestigm/public_html/cgi-bin/upload_archivo.cgi line 63.
Execution of /home/unestigm/public_html/cgi-bin/upload_archivo.cgi aborted due to compilation errors.

En la línea 63 que me indica yo tengo insertado el siguiente código:

open (OUTFILE, ">$dir/$public_html/subidos") || die "No se puedo crear el archivo";

Por favor, si podrían ayudarme para saber qué debo insertar.

Saludos

Arlo

Me parece que tienes un error tipográfico y donde dice $public_html debería decir simplemente public_html.

El error te aparece porque al poner "$public_html" estás indicando que ahí quieres el valor de esa variable. Como Perl no encuentra la variable entonces se queja y te manda el error.

SALUDOS

por **unestigma** » 2005-08-26 14:07 @630

Este es el código que tengo en el archivo upload_archivo.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
########################################################
#
# Código de ejemplo del tutorial: "Upload de archivos"
#
# Creado por: Uriel Lizama
# Todos los derechos reservado.
#
# http://perlenespanol.com/
#
#########################################################
 
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
 
my %Input;
 
my $query = new CGI;
my @pairs = $query->param;
 
foreach my $pair (@pairs) {
    $Input{$pair} = $query->param($pair);
}
 
#Directorio donde queremos estacionar los archivos
my $dir = "/subidos";
 
#Array con extensiones de archivos que podemos recibir
my @extensiones = ( 'gif', 'jpg', 'jpeg', 'bmp', 'png' );
 
recepcion_de_archivo();                #Iniciar la recepción del archivo
 
#TODO SALIO BIEN
print "Content-type: text/html\n\n";
print "<h1>El archivo fue recibido correctamente</h1>\n";
 
exit(1);
 
sub recepcion_de_archivo {
 
    my $nombre_en_servidor = $Input{'archivo'};
    $nombre_en_servidor =~ s/ /_/gi;
    $nombre_en_servidor =~ s!^.*(\\|\/)!!;
 
    my $extension_correcta = 0;
 
    foreach (@extensiones) {
        if ( $nombre_en_servidor =~ /\.$_$/i ) {
            $extension_correcta = 1;
            last;
        }
    }
 
    if ($extension_correcta) {
 
        #Abrimos el nuevo archivo
        open( OUTFILE, ">$dir/public_html" ) || 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( $Input{'archivo'}, my $buffer, 1024 ) ) {
            print OUTFILE $buffer;
        }
 
        #Cerramos el archivo creado
        close(OUTFILE);
 
    }
    else {
        print "Content-type: text/html\n\n";
        print "<h1>Extension incorrecta</h1>";
        print "Sólo se reciben archivo con extension:";
        print join( ",", @extensiones );
        exit(0);
    }
 
}                                      #sub recepcion_de_archivo
 
Coloreado en 0.008 segundos,  usando GeSHi 1.0.8.4

Ingreso a la dirección http://www.unestigma.com.ar/forma_upload.html para poder seleccionar el archivo y enviarlo.

Cuando lo quiero enviar me sale el siguiente error:

Software error:
No se puedo crear el archivo at /home/unestigm/public_html/cgi-bin/upload_archivo.cgi line 63.
For help, please send mail to the webmaster ([email protected]), giving this error message and the time and date of the error.

No se cual es el error que tengo en el line 63

Estoy por comerme el monitor.

Saludos

Arlo

por **explorer39** » 2005-08-26 16:34 @732

Cambia la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (OUTFILE, ">$dir/public_html") || die "No se puedo crear el archivo";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (OUTFILE, ">$dir/public_html/subido") || die "No se puedo crear el archivo $dir/public_html/subido: $!";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y nos cuentas si hay algún cambio.

por **kidd** » 2005-08-26 17:37 @775

Hay un error en el código. Donde dice:

open (OUTFILE, ">$dir/public_html") || die "No se puedo crear el archivo";

debería de decir

open (OUTFILE, ">$dir/$nombre_en_servidor") || die "No se puedo crear el archivo $dir/$nombre_en_servidor";

Recuerda que debes de cambiar la variable $dir para que corresponda a tu directorio.

SALUDOS

Foro - Perl en Español

Problema en archivo upload_archivo.cgi

Problema en archivo upload_archivo.cgi

Publicidad

Re: Problema en archivo upload_archivo.cgi

Re: Problema en archivo upload_archivo.cgi

Re: Problema en archivo upload_archivo.cgi

¿Quién está conectado?