Foro - Perl en Español

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

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

Saludos, me pueden ayudar, diciéndome qué significa la siguiente expresión regular que tengo en mi firewall.

(\W|\b)(4\d|5)\d{2}(?)\d{4}(\3\d{4}){2}(\W|\b)

Hola, buenas tardes. ¿Alguien me puede ayudar a traducir este código por favor?
while (<>) {
if (/^\d/) {
chomp; chomp;
(@f) = split;
for $i (3,4,5) { $f =~ s|\$||g; $f =~ s|,||g; }
printf (" %02d %03d %-8s%22s%20s%21s%8d%4s %02d %-4s %-8s %2s %8s %06d*\n", @f);
}
}

Hola a todos.

Ando queriendo optimizar un método POST de la siguiente manera:

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

$valor = '{ "html" => "value1",
"venga" =>"submit",
}';

my $response
= $ua->post('http://127.0.0.1/xss.php',$valor);

my $content = $response->content;
print $content;


El código largo sería:

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

my $response
= $ua->post('http://127.0.0.1/xss.php',
{ "html" => "value1",
"venga" =>"submit",
}

);

my $content = $response->content;
print $content;


El problema radica ...

Hola a todos,

He tenido unos problema instalando el módulo Text:CSV, lo he descargado y cuando intento hacer el makefile me sale el siguiente mensaje:

C:\PerlModules\Modulos\CSV>perl makefile.pl

It looks like you don't have a C compiler on your PATH, so you will not be
able to compile C or XS extension modules. You can install GCC from the
MinGW package using the Perl Package Manager by running:

ppm install MinGW

Welcome to Text::CSV (v.1.17)
============================= ...

Hola a todos.

Quería preguntar si alguien conocía un editor gráfico para Perl. Ha habido varios para Python como wxpython u otros. Pero no sé si habrá alguno en Perl.

¿Alguien sabe algo?