Foro - Perl en Español

Hola a todos.

Tengo un problema con unos módulos instalados vía PPM y a mano.

El caso es que no los localiza cuando compilo el script (utilizo un script de ejemplo del propio módulo cogido de CPAN).

He cargado a el path a mano a través de use lib porque éste no está en la variable por defecto @INC, pero aun así no logro que lo localice.

#!/usr/bin/perl
use lib '/opt/ActivePerl-5.12/site/lib/auto/Net';
use Net::Divert;
En ...

Quisiera una orientación, les explico mi caso:

Tengo unos datos en una base Oracle.

Al momento de imprimirlos por pantalla algunos de estos datos vienen con parámetros raros (ej:锟斤拷一锟斤拷楼锟斤拷锟斤拷锟斤拷式锟斤拷锟). Si uno elige manualmente la opción de codificación en Chino Simplificado (GBK) en el navegador (FireFox) estos datos se muestran bien.

Ahora, me gustaría hacer una condición antes de imprimirlos que dijera que si vienen caracteres raros hacer una codificación a Chino Simplificado e imprimirlos.

¿Se ...

Hola,

Tengo la siguiente función:

sub GetAddressesNotInMailList {
my $self = shift;
my $MailListID = shift; # mandatory

$self->{MSG} = "";
my $Addresses = undef;

unless( defined $MailListID ) {
$self->{MSG} = "Mandatory Input Arguments are not defined";
$self->{LOG}->error("GetAddressesNotInMailList: ".$self->{MSG});
} else {
my $Members = undef;
$Members = $self->GetMembersOfMailList( $MailListID );
if( defined $Members ) {
my $num_res = keys %$Members;
$self->{MSG} = "Number of members of \"$MailListID\" mail list is $num_res";
$self->{LOG}->log("GetAddressesNotInMailList: ...

Hola.

Ando queriendo saber cómo calcular el porcentaje de descarga de un archivo.
Pues tengo este código:
use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

if (download("http://127.0.0.1/bones.rar","bones.rar")) {
print " file downloaded\n";
}

sub download {
if ($nave->mirror($_,$_)) {
if (-f $_) {
return true;
}}}

Pero no sé cómo calcular la cantidad descargada del archivo poniendo el porcentaje de 1 al %100.

¿ Alguien me ...

Buenas tardes,

He creado una librería .pm que quiero emplear en un script .pl
Cuando ejecuto el script me aparece el siguiente error:

Can't locate loadable object for module infovista in @INC (@INC contains: /usr/local/ActivePerl-5.6/lib/5.6.1/sun4-solaris-thread-multi /usr/local/ActivePerl-5.6/lib/5.6.1 /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1/sun4-solaris-thread-multi /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1 /usr/local/ActivePerl-5.6/lib/site_perl .)

¿Qué debo hacer para poder utilizar la librería?
Saludos y gracias

Estoy intentando conectar un bot Perl al chat de justin.tv, pero necesito introducir la contraseña del usuario pero no sé cómo hacer que el bot se identifique.
:?

Tengo:
my $socket = IO::Socket::INET->new(
PeerAddr => "$servidor",
PeerPort => "$puerto",
Proto => 'tcp' ) || print("No hay conexión\.\n\cC");

He intentado poner Pass => "$key", pero no funciona.
El bot se conecta pero el servidor lo rechaza ...

Buenas tardes, necesito ayuda para resolver el siguiente problema:

Tengo un archivo con texto parecido al siguiente:

/XXXXXXXXXX/00:00/00:05
PCKT_RCVD/21039
BAD_HCHKSM/0
PCBS_FAIL/0
/YYYYYYYYYY/00:00/00:05
net0: IPKTS/22240
net0: IERRS/0
/ZZZZZZZZZZ/00:00/00:05
DISK_ALL/8391600
DISK_FREE/1524255

Tengo el siguiente código para que cuando se encuentre una línea que inicia con "/" y no cumpla con cierta condición todas las siguientes líneas sean ignoradas hasta encontrar una nueva línea que inicie con ese carácter y sea evaluada, y así sucesivamente. ¿Está correcto el ...

Tengo el siguiente script:

open (URLS, 'urls3.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);

open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

for (my $i = 0; $i < @urls; $i++) {

print $urls,"::::"," PROXY: ",$proxy,"\n";

my $ua = LWP::UserAgent->new;

$ua->proxy(, "http://$proxy");
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(10);


my $req = HTTP::Request->new(GET => $urls);
$req->content_type('application/x-www-form-urlencoded');
my $response = $ua->request($req);


$result = $response->code();


open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ARCHIVO $result," ",$response->message( ...

Hola, probando un script (tarda bastante en ejecutarse, unos 10-20 segundos) veo que de una deja de funcionar si cambio una serie de parámetros (trabajando con librería GD, al trabajar con una imagen cada vez mayor).

¿Sabéis si por norma general un hosting (en mi caso 100WebSpace) tiene un parámetro como el maximun_execution_time de php.ini donde si estás más de 10 segundos, te tire?

¿Alguna opción para cambiar este parámetro?

Un saludo.

Hola, un saludo. Estoy armando un código en el cual quiero ver la fecha desde una web. El código en HTML es el siguiente:

<tr bgcolor="#FFFFFF">
<td align="right">Estado:</td>
<td class="emphasis">Activo</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">Fecha de Registro:</td>
<td class="emphasis">26 Mayo 2009</td>
</tr>
El "Estado" Lo leo correctamente con:

my $internal=$mech->content;
if ($internal =~/<td class=\"emphasis\">(.*?)<\/td>/){
print "Estado: $1 \n";
}
Pero la "Fecha de Registro:" la intento leer con:

my $internal=$mech->content;
if ...