Foro - Perl en Español

Saludos a todos a este estupendo foro;

Quisiera recurrir a ustedes para sacarme de un duda ;D

El problema surge cuando tengo una cadena de texto, y quisiera buscar strings y guardarlos en un array, pero los patrones de búsqueda que estén entre . Ejemplo, ,, o sea, todo lo que esté dentro de , y los que lo encuentre los guarde en un array.

Gracias.

Hola, mi nombre es Leandro y soy nuevo en el foro, acudo a éste a ver si alguien puede ayudarme :P.

Estoy tratando de conectar con un servidor SSH desde código Perl. Estoy probando con la librería ésta, pero no me toma el password. Necesito que conecte sin tener que poner el password.

También probé el Net::SSH2 pero me tira o illegal o un error de segmentation. ...

Hola. Ando teniendo una duda, porque quiero usar un gif animado que se comience a mover cuando le de clic a un botón pero lo raro es que no da errores pero el gif ni se mueve.

Código
use Tk;
use Tk::Animation;

my $mw = MainWindow->new;
$mw->title("Animated GIF");

my @gif_files = "tigre.gif";

my $animate = $mw->Animation;

for (@gif_files) {
$animate->add_frame(
$mw->Photo( -file => $_ )
);
}

$animate->set_image(0);

my $lab = $mw->Label( -image => ...

Bueno, os comento lo que estoy haciendo y el código que he hecho pero que no me hace nada... Tengo 2 ficheros .csv con unos cuantos campos. La idea es comparar los 2 ficheros y actualizar en un tercero los campos que aparezcan nuevos. Me explico:

Tendríamos como fichero de entrada1:
campo1;campo2;campo3;campo4;campo5
campo6;campo7;campo8;campo9;campo10
campo11;campo12;campo13;campo14;campo15
campo16;campo17;campo18;campo19;campo20
campo21;campo22;campo23;campo24;campo25
Y queremos comparar los campos de la segunda columna con otro fichero que pongo a continuación, que está en ...

Hola, mi duda está aquí: quería conseguir hacer un programa que de un archivo (HPRD.txt) con mucha información, cogiera solo dos columnas y me las pasase a otro archivo (HPRD2.txt), y convertir las dos columnas en una, eliminando repeticiones. El problema está en que cuando voy a la terminal para que el programa funcione, parece que funciona, pero el archivo HPRD2.txt no se corresponde a los datos que me salen en la terminal: el archivo ...

¿Qué tal? Tengo una duda... Tengo este código que me cuenta cuántas veces aparece una palabra. Ejemplo: "lupus". Quisiera saber si me pueden ayudar a ver en qué registros se encuentran... es un formato de Genbank de bioinformática.

Este es el código:
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

open (my $fh, $ARGV) || die "No puedo abrir el fichero: $!\n";
print "Palabra a buscar...!\n";
my $busqueda = <STDIN>;
chomp($busqueda);
my $total = 0; ...

Hola a todos,

Estoy haciendo un programa que me lee los logs continuamente; el problema lo tengo cuando quiero seleccionar las líneas. Por ejemplo, lo que sería en una línea de comandos normal:

cat /var/log/auth.log|grep failures|awk '{print $2, $3, $12}'

Me quedo solo con los campos 2, 3 y 12 de las líneas que contengan la palabra failure. Mi problema es que no sé cómo hacer este grep() con Perl, ya que cuando trato de ...

Lo que quiero hacer es simplemente quitar el último carácter de una variable. Es decir, si tengo "Ejemplo", pues quedarme sólo con "Ejempl". Es una chorradilla seguramente... Sé que se puede hacer con la función substr():

substr($variable,0,6)

La cosa es que lo voy a meter en un bucle y las variables tienen longitudes distintas, por eso no puedo particularizar con la función substr()... A ver si me podéis echar una mano...

¡Gracias!

Deseo saber cómo desinstalar un paquete. Bajé un paquete desde CPAN, Autodia::Diagram::Class, y me percaté de que no me sirve.

También si tienen métodos o formas propias para probar los módulos sin instalarlos, para no volver a este tipo de instancias :P

Gracias

Hola. Estoy siguiendo uno de los tutoriales de este foro, concretamente el de usando File::Find.

El código que quiero reutilizar es el siguiente:

#!/usr/bin/perl

use strict;
use File::Find;

my $dir = 'C:/Perl/lib/';

find(\&imprimir_directorio, $dir);

sub imprimir_directorio{
my $elemento = $_;
print "$File::Find::name\n" if -d $elemento;
}

Funciona perfecto, pero yo lo que quiero ahora es poder tratar la variable elemento, metiéndola en una array.

La verdad que lo he intentado de todas las formas ...