Foro - Perl en Español

¡¡¡Hola a todos!!!

Tengo una duda... cuando ejecuto un script ( ftp://ftp.ncbi.nlm.nih.gov/blast/documents/web_blast.pl ) la información que me devuelve es larguísima y no puedo verla en la ventana de comandos, así que había pensado en crear un archivo de texto con esa información... pero me estoy liando...

Había probado esto:

$response = $ua->request($req);

open (BLAST,">blast.txt");
print BLAST $response;
close (BLAST);

print $response->content;


pero no funciona, no me devuelve lo que veo en pantalla.

¿¿¿Alguien me ayuda??? Graciassssssssssssss

Bienvenido a los foros de Perl en español, palomichu.

No necesitas programar nada. Solo saber un poco de gestión de ficheros desde la línea de comandos.

Suponiendo que tu programa se llama programa.pl, escribirás, desde la línea de comandos:

perl programa.pl

y verás que sale todo el resultado en pantalla.

Si estás en Linux/UNIX/Mac, solo tienes que ponerlo de esta manera:

perl programa.pl | less

Si estás en Windows deberás usar more.

Con eso, estás redirigiendo la salida de tu programa al programa less, que te permitirá ver el contenido (subiendo, bajando, buscando por una palabra, etc).

Si, en realidad, no quieres ver el contenido, sino solo guardar a un fichero, te vale con redirigir la salida:

perl programa.pl > salida.txt

La salida que hace tu programa queda grabado en el fichero salida.txt.

Si aún quieres hacerlo por programa, solo tienes que cambiar

print BLAST $response;

por

print BLAST $response->content;

Si quieres saber como perder peso en semana rapido sin dietas y estas buscando dietas de diabeticos mira esto.