Foro - Perl en Español

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?

Hola a todos.

Tengo los siguientes arrays:

@nombres = ("pablo","pepe","copia","copia","copia","copia");
@hace = ("paginas","nada","copia","copia","copia","copia");
@forma = ("ok","ok","ok","ok","ok","ok");


Lo que me gustaría es hacer que esos arrays se impriman de la siguiente manera agregándole en un print() la palabra "hace":

pablo hace paginas ok
pepe hace nada ok


Y así, sucesivamente.

Espero hacer explicado bien.

¿Alguien me podría ayudar?

Hola, mi problema es que tengo un archivo que tiene muchos elementos de los cuales yo solo me quedo con dos y hago un archivo .txt con dos columnas, a partir de ahí tengo que eliminar una parte de esas columnas... en cada columna de las dos me sale esto: uniprotkb:00993212 y solo me tendría que quedar con el número y no lo sé hacer... Aquí os dejo el programa... Muchas gracias.

#use strict; ...

Hola.

Quiero automatizar la creación de varios monitores de rendimiento en servidores Windows 2003/2008. En sí es fácil, pero una cosa no me sale. Con el comando logman.exe se pueden crear dichos monitores. Primero quiero ver si existe el monitor; para ello se ejecuta el comando:

D:\>logman query

Collection Type Status
-------------------------------------------------------------------------------
System Overview Counter Stopped

The command completed successfully.


El monitor 'System Overview' siempre está presente, es uno de muestra en Windows.

#!perl ...

Saludos, con una consulta: con qué módulo podría leer las fórmulas que se encuentran en una hoja de Excel. :shock: