Foro - Perl en Español

¡¡¡Hola!!!

Recién estoy aprendiendo Perl. He tenido que usar WWW::Mechanize para automatizar unos procesos web, y funciona, pero no tengo claro cómo está funcionando una parte del código que busqué de ejemplo en CPAN.

Es esta parte:
$m->get( $url );
my @links= @{$m->links};
foreach my $link (0..$#links) {
next if $links !~ /\.shtml$/i;
push(@lista,$links);
}
return @lista;
}

No entiendo la estructura de datos que se está utilizando...
my @links= @{$m->links};

Hasta donde ...

Hola a todos, soy nuevo en el foro y también usando este genial lenguaje llamado Perl. Ya he creado algunos scripts para crear archivos a partir de otros pero ahora me encuentro con otro problema. A continuación lo explico:

Tengo el archivo de entrada que tiene datos más o menos así:

BOARD,12345,ABDCE,1/1|2/2|3/3,1AB2

Y necesito que el archivo de salida sea así:

12345,ABDCE,1/1,1AB2
12345,ABDCE,2/2,1AB2
12345,ABDCE,3/3,1AB2

Cabe mencionar que la cadena de datos que está separada por ...

Buenas noches,

Estoy escribiendo un programa que me permite entrar en una base de datos por medio de FTP, tomar ciertos archivos que me interesan y guardarlos en mi disco duro.

Al correr el programa me sale el siguiente mensaje:

readline() on closed filehandle FILE at bajargenomasbacterias.pl line 31.
Use of uninitialized value $nombre in pattern match (m//) at bajargenomasbacterias.pl line 32.
Use of uninitialized value $nombre in substitution (s///) at bajargenomasbacterias.pl line 37.
Use ...

Hola otra vez,

Estoy intentando comprimir los archivos de un directorio, que tengan una extensión determinada, en un archivo tipo "gz" (también me valdría la extension Zip u otra).

Decidí usar el módulo Compress::Zlib para lograrlo, pero resulta que en vez de crearme un archivo comprimido, lo que hace es juntarme esos archivos en uno sólo (lo que necesito es poder tener los archivos comprimidos pero manteniendo su integridad individual, lo que es un "zip" ...

Hola a todos, mi duda es cómo volcar a un archivo de texto todos los campos de una base de datos en SQL.
La intención es poder imprimir en el archivo de salida (OUT) todo el contenido de la base de datos, pero no sé cómo asignar el resultado de la $query a una variable que pueda imprimir. Será una tontería pero no lo capto... y por más que retoco el script sigo sin dar ...

Buenas, ¿cómo se imprime un hash de hashes? Gracias

%HDH = (
patata => {
$a => 123,
$c => 212,
$g => 234,
$t => 254,
$u => 194,
},
calabacin => {
$a => 123,
$c => 345,
$g => 234,
$t => 543,
$u => 150,
},

¿Cómo puedo ver una imagen creada con Perl?

¿Sólo se pueden ver en un HTML o puedo obtener un archivo de imagen independiente para verlo con un editor de imágenes cualquiera?

He leído los tutoriales de Perl en español, y está todo muy bien explicado, pero aun así no consigo ver ninguna imagen de las que se crean (salen una cantidad de simbolitos de código (¿ensamblador?) en pantalla (STDOUT), pero no veo mi imagen...)

Gracias ...

Saludos.

¿Cómo podría instalar en mi disco duro un CPAN con todos los módulos que existen para poder programar sin tener que bajarme los módulos de Internet, para cuando no tenga conexión? Además es bueno de tener grabado en el disco duro todo ese código, por si algún día se borran, ya los tenemos ahí.


Gracias.

Tengo un problema con el siguiente código porque estoy abriendo un array para escribirlo en un archivo de texto. Lo que quiero hacer es que cuando esté escribiendo en el archivo poder reemplazar las \ por \\, las / las dejo como están, solo son las \.

my @files =

('C:/xampp/htdocs/aca.txt','C:/xampp/htdocs/aca.txt',niclog','/var/log/exim/paniclog','/var/lo/exim/rejectlog','/var/log/exim_rejectlog');

open(FILE,">>aca.txt");

for my $linea(@files) {
$linea=~s/\/\\//;
print FILE '"'.$linea.'",';
}
close FILE;

¿ Alguien puede ayudarme ?

Hola, estoy aquí porque necesito ayuda de Uds. Tengo una variable que necesito comparar en varias tablas de una BD... es decir, en la variable tengo una palabra que necesito que las busque en unas tablas (usuario, sede, etc), pero no sé cómo hacerlo. Intenté haciendo con Perl un if(), pero no me busca en las tablas.

También con un case pero no sé cómo hacer en el case que si no encuentra en un ...