Foro - Perl en Español

por **dldominguez** » 2011-04-14 15:49 @701

Buen día,

Me ha parecido fantástico el foro, soy nuevo en Perl; me ha parecido fantástico al igual que sus aportes, me han servido muchísimo pero ahora tengo un problema: estoy realizando mantenimiento a una aplicación que se encarga de leer un archivo .xls; éste a su vez crea un archivo temporal con el siguiente código...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( OUTFILE, ">$dir/$fname" ) or die print "No se puedo leer el archivo...";
binmode(OUTFILE);                      #Para no tener problemas en Windows
 
#Transferencia byte por byte
while ( my $bytesread = read( $fname_s, my $buffer, 1024 ) ) {
    print OUTFILE $buffer;
}
 
#Cerramos el archivo creado
close(OUTFILE);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y sí, efectivamente, crea el archivo en la ruta indicada pero no pasa los datos. Ese archivo nuevo queda vacío, y claro, al leerlo dice que no tengo datos. ¿Me podrían colaborar con esto? Muchas gracias..

sub carga_archivo {
 
    my $fname_s = shift;               # No sé qué hace esta línea...
 
    my ( $seg, $min, $hor, $dia, $mes, $anno );
    ( $seg, $min, $hor, $dia, $mes, $anno ) = (localtime)[ 0, 1, 2, 3, 4, 5 ];
 
    #Se suma  uno a la variable mes  debido a que la funcion  localtime,
    #retorna el mes menos uno.
    $mes++;
    $dia = length($dia) == 1 ? "0$dia" : $dia;
    $mes = length($mes) == 1 ? "0$mes" : $mes;
    $anno += 1900;
 
    my $fname = $fname_s;
    $fname =~ s/ /_/gi;
    $fname =~ /(\w+)\.(\w+)$/;
    $fname = $1 . $anno . $mes . $dia . $hor . $min . $seg . "." . $2;
 
    my $extension_correcta = 0;
    my $cont               = 0;
 
    foreach (@extensiones) {
        if ( $fname =~ /\.$_$/i ) {
            $extension_correcta = 1;
            $ext                = $cont;
            last;
        }
        $cont++;
    }
 
    if ($extension_correcta) {
        open( OUTFILE, ">$dir/$fname" )
            or die print "No se puedo leer el archivo...";
        binmode(OUTFILE);              #Para no tener problemas en Windows
 
        # Transferencia byte por byte
        while ( my $bytesread = read( $fname_s, my $buffer, 1024 ) ) {
            print OUTFILE $buffer;
        }
 
        #Cerramos el archivo creado
        close(OUTFILE);
 
    }
 
    else {
        print "<center><b><i>Extension incorrecta";
        print "<br>Sólo se reciben archivos con extension: ";
        print join( ",", @extensiones );
        print "</i></b></center>";
        exit;
    }
 
    return "$dir/$fname_s";
 
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-04-14 17:13 @759

La línea 3 pasa el primer argumento pasado a la subrutina carga_archivo() a la variable $fname_s, que, viendo el resto del programa, guarda el nombre de un fichero.

Y esa es, también, la razón por la cual falla la línea 38: no se puede usar el nombre de un fichero como primer argumento de la función read(). Antes hay que abrir el fichero, y usar el controlador de acceso de ese fichero como argumento a read(). Bueno... excepto si $fname_s sea un objeto IO::Handle... pero no lo creo...

Sería algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(my $fh, '<', $fname_s) or die "ERROR: no pude abrir el fichero $fname_s: $!\n";
binmode $fh;                           # modo binario
read( $fh, my $buffer, -s $fname_s );  # leemos todo el fichero (el operador -s da la longitud del fichero)
close $fh;
print OUTFILE $buffer;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema sería, si $fname_s no está en el mismo directorio en donde estamos trabajando. Habría que poner, en el open() y en el -s, la ruta correcta hacia el fichero.

por **pvaldes** » 2011-04-15 04:06 @212

No acabo de entender para qué creas la variable $bytesread si luego no la llegas a usar, es probable que puedas simplificar esa última parte.

EDITO: ¡Ah!, ya veo que explorer se ocupa de ese tema en el post.

por **dldominguez** » 2011-04-19 11:41 @528

Muchas gracias por su ayuda, me ha servido mucho... En el futuro los seguiré molestando con más dudas. Gracias.

Foro - Perl en Español

Se crea archivo vacío

Se crea archivo vacío

Publicidad

Re: Se crea archivo vacío

Re: Se crea archivo vacío

Re: Se crea archivo vacío

Re: Se crea archivo vacío

Re: Se crea archivo vacío

¿Quién está conectado?