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

«Hoy quería registrar un dominio en NIC Chile, y me di cuenta que está por vencer, de hecho en un mes aproximadamente debería estar libre. Pero en realidad lo mas probable es que me olvide y no alcance a registrarlo cuando quede libre y otra persona me lo “gane”.»

Artículo

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

«Ya hace un tiempo atrás en este artículo había escrito acerca de algunas herramientas que permiten gestionar de una manera muy eficiente y de primer nivel los incidentes que pueden ser reportados por usuarios de un sistema o servicio en particular.

Si bien en un principio me pareció importante y sumamente necesario utilizar este tipo de herramientas para gestionar los casos de incidentes y/o recomendaciones para el sistema que estoy manteniendo en la empresa me ...

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!