Foro - Perl en Español

my $executeCommand = $acommands{$tmpCommand};
$SIG{'KILL'} = sub { $processCommand->exit(); };
my $processCommand = threads->new(\&$executeCommand,$tmpCommand,"Valor2");
$processCommand->join();
$processCommand->kill('KILL');


Hola. Me gustaría saber la correcta implementación de threads en Perl, para evitar sobrecarga del programa, ya que si le envío, por ejemplo, 10 peticiones en segundo, me da respuestas ralentizadas.

P.D.: estoy construyendo un programa para gestión de servidores IRC donde podría recibir muchas más simultáneamente, y sería engorroso que el programa se 'pille' ...

Hola.

Tengo un fichero CSV: data.csv, y quiero convertirlo a un data.xls.

¿Qué me recomiendas? He visto por Internet estas dos librerías: Spreadsheet::WriteExcel, Text::CSV_XS.

Saludos

Hola,

necesito descargar el html entero de una lista de twitter. He probado de hacerlo con wget de la siguiente manera pero me descarga de forma incompleta el html porque el desplazamiento va desplegando toda la lista a medida que uno desciende.

Con bash utilizo
wget -c -N -p -O usa.dat https://twitter.com/IABM1995/lists/usa/members
Guarda solo un parte del listado del html de twitter en usa.dat.

¿Es posible descargar todo ...

¡ Hola a Todos ! :)

Recién empiezo a ver la función fork y me surge una gran duda: ¿Por qué fork() se le pasa a una variable escalar?

Es decir, en el siguiente conjunto de instrucciones:

$pid = fork;

if ($pid){
# instructions goes here
....
}else{
# more instructions here
....
}
No logro entender el porqué de la primera línea y tampoco logro ...

Hola.

Soy muy nuevo en esto de Perl y necesito ayuda.

El código que tengo lo que hace es recibir una fecha y un número (serán los días). El número se resta a la fecha actual para establecer la fecha de vencimiento.

Lo que necesito mejorar es que solo cuente los días laborales, saltándose los sábados y domingo, y si no es muy complicado, los feriados.

El código es el siguiente:
my $diasvcto = ...

Hola. Tengo el siguiente código:

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->timeout(10);

my $target = "5.135.178.142";

$re = tomar("http://www.melissadata.com/lookups/iplocation.asp",{'ipaddress='=>$target,'Submit'=>'submit'});

print $re;

sub tomar {
my ( $web, $var ) = @_;
return $nave->post( $web, )->content;
}

En este código estoy haciendo un formulario para que la página me revele unos datos de una IP pero el formulario nunca se completa, o sea, sigue apareciendo normal como si hubiese hecho algo mal. ...

Amigos Perlianos, tengo el siguiente código que es un servidor, mediante el cual me conecto a un cliente por medio de sockets:

use IO::Socket::INET;

# auto-flush on socket
$| = 1;

# creating a listening socket
my $socket = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => '232',
Proto => 'tcp',
Listen => 1,
Reuse => 1
);
die "No se puede crear el socket $!\n" unless $socket;
print "El servidor a la espera de ...

Hola, perleros, un saludo.

Estoy intentando usar protocolos de conexión socks 4/5, http, entre otros.
Los datos los tengo en un archivo llamado source.list:

ROUTER:23
SOCKS4:559
HTTPPOST:3128
SOCKS4:1080
HTTP:8080
SOCKS5:1182
HTTP:3128
HTTPPOST:8080
SOCKS4:9999
HTTPPOST:80
SOCKS5:1080
HTTP:63000
HTTP:8000
HTTPPOST:808
HTTP:80
HTTPPOST:6588
HTTP:6588
SOCKS5:3128
SOCKS5:10080
HTTPPOST:4480
SOCKS4:6664
SOCKS4:63808
HTTP:6667
SOCKS4:19991
SOCKS4:1098
SOCKS4:10000
SOCKS4:4471
HTTP:65506
HTTP:63809
SOCKS5:9090
pero al abrir el socket, me pone:
El nombre solicitado es válido pero no se encontraron datos del ...

Hola.

Me estoy iniciando en Perl y quiero filtrar algunas líneas de una salida, esto es: un resumen, puesto que la salida es más larga.
A3/APT "M#DEL5R 711BIPA" 288 150128 1113
RADIO X-CEIVER ADMINISTRATIN
TRANSCEIVER GROUP FAULT

MO RSITE ALARM SLOGAN
RXOTG-321 00083#COLLAD#D BTS INTERNAL



A3/APT "M#DEL5R 711BIPA" 291 150128 1119
DIGITAL PATH FAULT SUPERVISION

DIP DIPEND FAULT SECTION HG DATE TIME
RBLT118 RDI 150128 111915
Quiero: La primera línea que coincida con RXOTG-321.

Este ...

Hola, estoy programando una expresión regular en Delphi con un componente llamado perlregex, lo que hace que puede usar expresiones regulares de Perl, había pensado en usar la clásica expresión regular así:
while($code=~/href="(.*)"/migs) {
print $1;
}
El problema es que busco extraer todos los enlaces, ya sean de imágenes u otros, no solo los de href, algo así como extraer todos sin filtro.

¿ Alguien me puede ayudar ?