Foro - Perl en Español

Hola, tengo un problema que, la verdad, no sé cómo resolverlo.

Tengo un script que lanza en una base de datos PostgreSQL una función que da las siguientes salidas:

01: Fichero no encontrado :/data/interfaces/salida/
o
00: El proceso ha finalizado Ok

Dependiendo de un código u otro, pues tengo que hacer una serie de cosas.
En un principio, estos códigos los saco con la siguiente subrutina:

my @r_tpfr_descargavisitas = &consultabbdd ($nombrebbdd,$dbhost,$dbuser,$dbpass,$consulta);

El resultado lo almaceno ...

Recién comienzo con las expresiones regulares y me parece todo un arte al igual que complejo.

Estoy intentando extraer los directorios del código fuente de una página web pero no consigo coger la lógica para que tenga más profundidad. :(

En mis intentos he intentado lo siguiente:

if($p =~ m/(\/+{1,}\/+{1,}\/)/) {
if (!grep $_ eq $1, @dirs) ...

Me pregunto si alguien tendría la amabilidad de decirme por qué no puedo volcar un archivo de una página web en local.

Sé que lo podría hacer con el método getstore() del módulo LWP::Simple... pero por circunstancias no puedo utilizarlo y necesito el código crudo HTML.

He intentado lo siguiente pero no me funciona.
use LWP::UserAgent;

my $ua = new LWP::UserAgent(
agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5',
); ...

Hola, soy nuevo en el foro y novato con el lenguaje Perl. Tengo que hacer una tarea de elaborar un organigrama y un programa en Perl.

Mi problema es el siguiente: he hecho el programa en Perl como he podido, pero no soy capaz de transcribirlo a un organigrama y me habían comentado que existen programas en los que introduces el código y te lo transforma en un organigrama... ¿Saben cuáles son estos programas??? ¡¡¡Es ...

Soy nuevo en esto, pero sé que para muchas secuencias es más fácil usar Perl para editar las cabeceras FASTA para evitar errores en análisis posteriores. Mi problema es no saber cómo meter una línea de comandos. Tengo archivos de entrada:

>gi|343457071|gb|JF424046.1| Streptomyces abikoensis strain KCTC 9662 recombinase A (recA) gene, partial cds
TCCACCGGGTCGACCGCTCTCGACGTCGCGCTCGGTGTCGGCGGCCTGCCGCGCGGCCGCGTGGTGGAGA
TCTACGGACCGGAGTCCTCCGGTAAGACGACCCTGACGTTGCACGCCGTGGCCAACGCCCAGCGGGCCGG
CGGCACCGTCGCCTTCGTGGACGCCGAGCACGCCCTCGACCCCGAGTACGCCAGAAAGCTCGGCGTCGAC
ATCGACAACCTGATCCTTTCCCAGCCGGACAACGGCGAGCAGGCTCTCGAGATCGTCGACATGCTGGTCC

>gi|78173104|gb|DQ234054.1| Streptomyces argillaceus strain ATCC 12956 RecA (recA) gene, complete cds
CCATGGCAGGCACCGACCGCGAGAAGGCCCTGGACGCCGCACTCGCACAGATTGAACGGCAATTCGGCAA
GGGCGCGGTCATGCGCATGGGCGACCGCTCGAAGGAGCCCATCGAGGTCATCCCGACCGGGTCGACCGCG
CTCGACGTGGCCCTCGGCGTCGGCGGTCTGCCGCGCGGCCGTGTCATCGAGGTCTACGGACCCGAGTCCT
CCGGCAAGACGACCCTGACCCTGCACGCGGTGGCGAACGCCCAGAGGGCCGGCGGCCAGGTGGCGTTCGT
GGACGCCGAGCACGCCCTCGACCCCGAGTACGCGCAGAAGCTCGGCGTGGACATCGACAACCTGATCCTG
TCCCAGCCGGACAACGGCGAGCAGGCCCTGGAGATCGTGGACATGCTCGTCCGCTCCGGGGCCCTCGACC
TGATCGTCATCGACTCCGTCGCCGCGCTCGTCCCGCGTGCGGAGATCGAGGGCGAGATGGGCGACAGCCA ...

Tengo el siguiente código:

use IO::Socket;

my $socket = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => '8080',
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1);

my ($cliente,$buff,$kid);

while ($cliente = $socket->accept())
{
next if $kid = fork;

while(<$cliente>) {
$data.=$_;
}

print $data;

}

Me gustaría recibir la información en una sola variable porque no quiero usar el while(). Intenté usando $data.= de esta forma para poder mostrarlo después del while(), pero no ...

Hola, tengo el siguiente script:

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12');

my $response = $ua->get("http://www.supertangas.com");

print $response->headers();
#print $response->header('content-type');


El problema es que en la información que consigo de las cabeceras no encuentro el useragent que es lo que busco para mostrar en pantalla.

¿ Alguien sabe cómo conseguirlo ?

Buenos días:

He preparado un formulario que pasa un valor a un script que a su vez genera una página con datos sacados de una BBDD SQLite.

¿Cómo podría modificar la URL que se ve en la barra del navegador cuando devuelve la página? Ahora es del estilo http.//www.sitio.com/cgi-bin/script.pl

¿Se podría hacer con el módulo CGI.pm?

Gracias

Tengo un problema al pasar a exe este script con perl2exe. El problema es que no se carga el segundo archivo cuando lo paso a perl2exe usando la opción -gui del mismo. Cuando no lo cargo en exe sí andan los dos archivos. El código es el siguiente:

use Win32::Job;


cargar_hide("coraje_uno.jpg");
cargar_hide("holamundo_dos.exe");


sub cargar_hide { # nombre de la función marcada anteriormente

my $job = Win32::Job->new;

$job->spawn( "cmd", qq{cmd /C $_}, { no_window => ...

Hola, perleros. Tengo un problema con el siguiente código para transferir ficheros de mi disco duro a un servidor remoto.

Quiero pasar todos los ficheros .htm que se encuentran en el directorio de mi ordenador /home/enric/htm al servidor (dispongo del nombre, usuario y contraseña).

Aquí va el código:
#!/usr/bin/perl -w

use strict;
use Net::FTP;

my $username = "meteoxx.com";
my $pwd = "xxxxx73";

my $ftp = Net::FTP->new("xxx.xx.132.xxx", Debug => 0) or die("No se pudo conectar ...