Foro - Perl en Español

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!

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

Los cambios principales son:

* Perl ahora es mucho más conforme al estándar Unicode. Además, esta versión incluye una actualización a la versión 5.2 del estándar.

* Unas nuevas API experimentales permite a los desarrolladores extender Perl con palabras clave y sintaxis "enchufables".

* Perl ahora tiene mejor sentido del tiempo y será capaz de mantener el tiempo exacto y pasar la barrera del año 2038.

* Una nueva sintaxis permite a los desarrolladores especificar ...

Hola, tengo una duda en cuanto al uso de buscadores de expresiones regulares, ya que soy nuevo usando Perl. He construido un string con una serie de comandos y pueden existir valores NULL. En ese caso quiero eliminar ese valor y su respectiva variable, me explico un poco:

STRING:
JasssnaNrtProfileName:parametro1
JasssnaNumberOfDigits: parametro2
JasssnaCNumberPrefix:parametro3
JasssnaNatureOfAddressIndicatorForCNumber: NULL
JasssnaNatureOfAddressIndicatorReservedValue: parametro5
JasssnaNextProfile:NULL
JasssnaUnsuccessfulProfile: parametro7

En este caso cuando encuentro la palabra NULL el string debería quedar así:
JasssnaNrtProfileName:parametro1
JasssnaNumberOfDigits: ...