Foro - Perl en Español

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 ...

Alguien me podría responder a una duda que tengo... estando Perl 6, ¿cuánto tiempo de vida podrá quedarle a Perl 5?

Gracias =^.^=

Buen día.

Tengo un archivo .dat que al abrirlo con Quickviwer me muestra las tablas con los datos. Necesito editar un campo con una cantidad incorrecta pero no me permite corregirla. Ya intenté leerlo con varios programas: Wordpad, Excel, Access, etc. y este es el único que me permite visualizar de manera correcta el archivo pero no puedo modificarlo.

¿Alguna idea de un programa para editar .dat? Saludos y gracias.

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 ...

«De momento, no es vinculante, pero representa el primer acercamiento serio a una postura oficial de una organización militar transnacional relevante sobre cómo debe actuarse ante los 'hackers' y 'hacktivistas' civiles en una contexto bélico.

Hablamos del Manual Tallinn sobre el Derecho Internacional Aplicable a la Guerra Cibernética, un documento de 302 páginas auspiciado por la OTAN que estos días ha dado la vuelta al mundo levantando un polvorín entre la comunidad de internautas, sobre ...

http://es.wikipedia.org/wiki/Netsukuku

http://netsukuku.freaknet.org/

http://www.youtube.com/watch?v=teAu1j9jrJo

Saludos =^.^=

Tengo el siguiente código, pero no logro que mis datos no se dupliquen me podrían ayudar con el UPDATE por favor
#!/usr/bin/perl

##CONEXIÓN POSTGRES##################################
use ConectarDB;

my ( $dbh, $sth, $dbh2, $sth2 );
$dbh = ConectarDB->connect();
####INSTRUCCIÓN SQL PARA LA SELECCIÓN DE DATOS DE LAS TABLAS REQUERIDAS EN POSTGRES#####################
$sql = "SELECT A.idtiposcobros_a,B.impuesto_b,A.caja_a,A.partida_a,A.atl_a,B.pcancl_b,
hcn.valor_anter_hcn,hcn.valor_nuevo_hcn,cc.descripcion_cc
FROM his_cobros_nuevo hcn
LEFT JOIN cobros_campos cc ON (hcn.idcampo_hcn=cc.idcampo_cc)
LEFT JOIN cobrosxcuenta A ON (hcn.atl_hcn = A.atl_a)
LEFT JOIN cobros ...

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 ...