Foro - Perl en Español

por **explorer** » 2011-08-20 17:36 @775

Pues entonces, solo tienes que agregar la ruta absoluta a donde se guardan los ficheros.

Por ejemplo. Al usuario se le presenta una serie de nombres de ficheros, de los cuales debe elegir uno. Entonces...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $file = param('file');      # Nos llega al CGI los nombres de los ficheros
$file = "/ruta/absoluta/al/directorio/del/$file";  # Le ponemos la ruta absoluta
 
# hacemos el resto de operaciones con el $file
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Hola de nuevo.

El problema con la solución que me planteas, es lo que yo pretendo, que el usuario pueda subir archivos a la web para que en ésta se trabaje con ellos (como hace por ejemplo la web de BLAST) y le devuelva unos resultados (en síntesis, se trata de darle a mis CGI un input sobre el que trabajar). Así pues, no puedo ofrecerle esos archivos como predeterminados (que es lo que he entendido que sugieres) sino que he de ser capaz de usar los que el usuario cargue... y aparentemente no me funciona, y no alcanzo a saber porqué.

por **explorer** » 2011-08-23 06:48 @325

Entonces estás usando mal la función param().

param() devuelve las cadenas de texto de las marcas <input> del formulario.

Para recibir el fichero, debes leerte la documentación del módulo CGI, referente al 'upload' de ficheros, en la sección PROCESSING A FILE UPLOAD FIELD.

Este es el código general para resolverlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

         $lightweight_fh  = $q->upload('field_name');
 
         # puede devolver un undef si no es un handle de archivo válido
         if (defined $lightweight_fh) {
           # Actualiza el handle a uno compatible con IO::Handle
           my $io_handle = $lightweight_fh->handle;
 
           open (OUTFILE,'>>','/usr/local/web/users/feedback');
           while ($bytesread = $io_handle->read($buffer,1024)) {
             print OUTFILE $buffer;
           }
         }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Naturalmente, hay que ajustarlo a tus necesidades específicas: nombre del campo del fichero, directorio donde se grabará (el directorio debe tener espacio suficiente y permisos para poder escribir en él), y en vez de 1024 bytes cada vez, se podría aumentar, según lo grandes que sean los ficheros y la memoria disponible (hoy en día, podrías incluso leerte el fichero entero a memoria. Mira el primer hilo indicado abajo).

Una cosa que falta en este código, es un binmode(OUTFILE), para indicar que estamos grabando un fichero en modo binario, si ese es el caso.

Mírate también estos hilos:

por **Alfumao** » 2011-08-28 15:34 @690

Hola explorer,

He intentado esto pero no me funciona...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin/perl.exe
use warnings;
use strict;
use CGI ':standard';
use IO::Handle;
###########
#Aqui va el formato de la pagina del CGI
###########
 
#my $file= param('file');
my $profile= param('profile');
my $dbprofile= param('dbprofile');
 
my $filename= "$$"."$^T"."$file";
 
my $lightweight_fh;
my $io_handle;
my $bytesread;
 
$lightweight_fh  = my $q->upload('file');
 
         # puede devolver un undef si no es un handle de archivo válido
         if (defined $lightweight_fh) {
           # Actualiza el handle a uno compatible con IO::Handle
           $io_handle = $lightweight_fh->handle;
            open (OUTFILE,'>>'.'C:/xampp/htdocs/DB/Uploads/');
            binmode(OUTFILE);
           while ($bytesread = $io_handle->read(my $buffer,2048)) {
             print OUTFILE $buffer;
           }
         }
 
my $resultado = `hmmsearch "$profile" "C:/xampp/htdocs/DB/Uploads/$filename" > C:/xampp/htdocs/DB/$filename.out`;
 
my $report= "C:/xampp/htdocs/DB/$filename.out";
 
print qq(<A HREF='$report' TARGET='_blank'>-Open in browser or Right click to download file-</A><br><br><br><br><br>\n);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-08-29 12:05 @545

La función my() está mal puesta, en la línea 20.

Prueba con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$lightweight_fh  = upload('file');
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Alfumao** » 2011-08-29 15:04 @669

Hola explorer,

el código funcional es este,

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin/perl.exe
use warnings;
use strict;
use CGI ':standard';
use IO::Handle;
 
my $file= param('file');
my $profile= param('profile');
my $dbprofile= param('dbprofile');
 
my $filename= "$$"."$^T"."$file";
 
my $lightweight_fh;
my $io_handle;
my $bytesread;
 
$lightweight_fh  = upload('file');
 
         if (defined $lightweight_fh) {
            $io_handle = $lightweight_fh->handle;
            open (OUTFILE,'>>'.'C:/xampp/htdocs/DB/Uploads/secuencia.txt'); #problema interpolacion de variable,  para que funcione he de poner un nombre al final de la ruta, no sirve una variable tipo escalar ($)
            binmode(OUTFILE);
           while ($bytesread = $io_handle->read(my $buffer,2048)) {
             print OUTFILE $buffer;
           }
         }
 
my $resultado = `hmmsearch "$profile" "C:/xampp/htdocs/DB/Uploads/secuencia.txt" > C:/xampp/htdocs/DB/$filename.out`;
 
my $report= 'C:/xampp/htdocs/DB/$filename.out'; #problema interpolacion igual que el caso anterior, si pongo $filename.out , no me sale resultado (pasa igual si va entre comillas " " ó ' ').
 
print qq(<A HREF='$report' TARGET='_blank'>-Open in browser or Right click to download file-</A><br><br><br><br><br>\n);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero tengo un problema con la interpolación de la variable al final de las rutas de archivo(marcado en código):
- Al abrir el archivo SALIDA (OUTFILE)
- En la ruta de la variable $report.

Si intento la interpolación en alguno de los casos, no obtengo resultado válido.

Y otra pregunta, ¿hay alguna forma de borrar el archivo OUTFILE una vez leído el resultado?

por **explorer** » 2011-08-29 15:10 @673

Cuando, dentro de una cadena de caracteres, exista una variable que quieras que se interpole su valor, debes usar comillas dobles:

"C:/xampp/htdocs/FUNGALOXPHOS_CSS/$filename.out"

Si usas comillas simples, estás indicando una cadena literal, una ruta a un nombre de fichero que se llama '$filename.out' (dolar, 'filename', punto, 'out').

Para borrar archivos, puedes usar la instrucción unlink():

unlink 'C:/xampp/htdocs/DB/Uploads/secuencia.txt';

por **Alfumao** » 2011-08-29 15:49 @700

Muchas gracias, explorer,

Solucionado el problema de las interpolaciones.

Eso sí, no logro borrar el archivo que se genera con unlink().

Te dejo una muestra del código funcional por completo excepto la parte de unlink().

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin/perl.exe
use warnings;
use strict;
use CGI ':standard';
use IO::Handle;
 
my $file= param('file');
my $profile= param('profile');
my $dbprofile= param('dbprofile');
 
my $filename= "$$"."$^T"."$file";
 
my $lightweight_fh;
my $io_handle;
my $bytesread;
 
$lightweight_fh  = upload('file');
 
         
         if (defined $lightweight_fh) {
            $io_handle = $lightweight_fh->handle;
            open (OUTFILE,'>>'."C:/xampp/htdocs/DB/Uploads/$filename.txt");
            binmode(OUTFILE);
           while ($bytesread = $io_handle->read(my $buffer,2048)) {
             print OUTFILE $buffer;
           }
         }
 
my $resultado = `hmmsearch "$profile" "C:/xampp/htdocs/DB/Uploads/$filename.txt" > C:/xampp/htdocs/DB/$filename.out`;
 
print qq(<A HREF='$filename.out' TARGET='_blank'>-Open in browser or Right click to download file-</A><br><br><br><br><br>\n);
 
CLOSE OUTFILE;
unlink 'C:/xampp/htdocs/DB/Uploads/$filename.txt';
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por cierto, cada vez que efectúo la operación del CGI, me aparecen unos archivos llamados CGItemp+"numero aleatorio" (parecen archivos temporales que usa el CGI para su ejecución, uno deriva de "$profile" y otro de "C:/xampp/htdocs/DB/Uploads/$filename.txt") que me llenan la carpeta de la DB... y tampoco sé cómo borrarlos.

por **explorer** » 2011-08-29 19:14 @843

unlink() no genera ficheros, los borra.

En la línea 34 vuelves a cometer el mismo error de antes: estás usando comillas simples, con lo que impides la interpolación de la variable $filename.

En la línea 33, escribes CLOSE, pero en realidad es close (en minúsculas).

La línea 33 (el close()) debería estar puesta entre la 26 y la 27. De hecho, todas las instrucciones de las líneas 29 a 34 deberían estar metidas dentro del if() de la línea 20 (ejecutar todo el código si el usuario nos ha pasado un fichero y podemos leerlo).

Los ficheros temporales CGItemp es donde el módulo CGI guarda, temporalmente, el fichero que ha mandado el usuario, esperando que lo leamos con el bucle while() de la línea 24. Por defecto, CGI borrará el fichero, al final del programa (salvo que el programa termine con errores).

Esto puede parecer un poco raro: el módulo CGI graba el fichero subido por el usuario en un fichero temporal. Y luego nosotros lo leemos, escribiendo una copia a otro fichero, ya con nuestro nombre. Lo ideal, en muchos casos, es que pudiéramos procesar, directamente, el fichero temporal. Eso se consigue con la función tmpFileName($file);. De esta manera, nos ahorramos todo el trabajo de open(), while() y close() (más información en la documentación de CGI.pm, sección PROCESSING A FILE UPLOAD FIELD).

Pero bueno, lo normal es hacerlo así, con una copia privada nuestra.

por **Alfumao** » 2011-09-10 09:04 @419

Hola explorer,

He seguido tus recomendaciones y ha funcionado, eso sí, el temporal lo sigue creando y dejándolo en la carpeta principal (C:/xampp/htdocs/DB/).

Aquí está el código con tus correcciones incorporadas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:/perl/bin/perl.exe
use warnings;
use strict;
use CGI ':standard';
use IO::Handle;
 
####################MAIN#####################
 
my $file      = param('file');
my $dbprofile = param('dbprofile');
 
my $filename = "$$" . "$^T" . "$file";
 
#my $filename= my $query-> param('file');
#my $tmpfilename= $query-> tmpfilename($filename);
 
#my $file= param('file');
 
my $lightweight_fh;
my $io_handle;
my $bytesread;
 
$lightweight_fh = upload('file');
 
if ( defined $lightweight_fh ) {
    $io_handle = $lightweight_fh->handle;
    open( OUTFILE, '>>' . "Uploads/$filename.txt" );
    binmode(OUTFILE);
    while ( $bytesread = $io_handle->read( my $buffer, 2048 ) ) {
        print OUTFILE $buffer;
    }
    close OUTFILE;
    my $resultado
        = `hmmsearch "C:/xampp/htdocs/DB/HMMs/$dbprofile" "C:/xampp/htdocs/DB/Uploads/$filename.txt" > C:/xampp/htdocs/DB/Results/$filename.out`;
 
    unlink "C:/xampp/htdocs/DB/Uploads/$filename.txt";
}
 
my $report = "$filename.out";
 
print
    qq(<A HREF='Results/$report' TARGET='_blank'>-Open in browser or Right click to download file-</A><br><br><br><br><br>\n);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Muchas gracias una vez más, explorer.

Foro - Perl en Español

Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Publicidad

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

Re: Cómo enviar instrucciones a un programa desde Perl

¿Quién está conectado?