Foro - Perl en Español

Se informa que la Fundación Perl ha sido admitida para participar en el Google Code-in 2011.

Hola a todos, es mi primer tema aquí.

Soy demasiado novato en esto y necesito ayuda.

Mi problema es que al intentar hacer una clase derivada, heredo de su clase padre, intento definir las nuevas propiedades de la clase derivada y al testear el programa me tira el error "global symbol "$self" requires explicit package at "alumno.pm" at line 35.

El código de alumno es el siguiente:
#! /usr/bin/perl
package Alumno;

use Persona;
@ISA=qw(Persona); ...

Hola,

Tengo un script en el cual el usuario bloquea los registros que usa almacenándolos en una tabla de bloqueos al cargar el script, y los desbloquea al cerrar la ventana. para esto utilizo una subrutina de ajax que funciona a la perfección en IE y Chrome, pero un firefox NO.

Por lo que he investigado se debe a que firefox no alcanza a ejecutar el ajax en el tiempo que dura cerrando la ventana. ...

Estimados:

Estoy intentando obtener con LWP::UserAgent la información retornada desde un sitio X. Utilizo wireshark para sniffear los paquetes enviados y recibidos, y necesito obtener un dato desde $res->content;, pero cuando corro mi script y leo la información entregada en $res->content, al parecer viene en binario, mientras que wireshark muestra correctamente la información:
\t<frame name="contentFrame" src="PreLogin.jsf?time=1320604789399" scrolling="auto"\r\n

De $res->content, necesito obtener el valor de time=1320604789399, pero en Perl, al correr mi script me retorna lo ...

Casi de escondidas, ha aparecido una nueva web: Perl Nights.

Su misión: desconocida.
Público objetivo: desconocido.

Hola,

Tengo un txt con varias columnas separadas por tab, y una de esas columnas (la 3ª, por ej.) tiene valores repetidos. Me interesa que borre todas las filas que contengan valores repetidos según la columna 3ª, dejando un único caso de cada. ¿Qué debería utilizar?

¡Muchas gracias!

Estoy realizando un proyecto en el cual, desde Perl, realizo una conexión a LDAP. La cuestión es que necesito insertar imágenes a mi directorio de Perl. Mi duda es cómo hacerlo.

El proyecto MetaCPAN ha cumplido un añito (en inglés), una forma de buscar por los contenidos de CPAN, usando tanto un navegador web como su API asociada.

Y gracias a su API han surgido otros proyectos, como el editor Padre, la aplicación iCPAN para el iPhone, y el sitio web github meets CPAN.

Hola,

tengo que comprimir un archivo remotamente y al ser muy grande el archivo, no lo realiza.

my $ssh = Net::SSH::Expect->new(
host => $ip,
password => $pass,
user => $user,
raw_pty => 1
);
my $login_output = $ssh->login();
if ( $login_output !~ /Last/ ) {
&writeLog("Login has failed. Login output was $login_output");
$retorno = 'error';

}
if ( $retorno eq 'success' ) {
my $gzip = $ssh->exec("gzip $path/$archivo");



Ahora, si coloco timeout (my ...

Hola, estoy intentando ejecutar unos comandos por REST URI para Azure, por ejemplo para ver los servicios hospedados que tengo en Azure. Para ejecutarlo se necesita un certificado pero no soy capaz de asociar este certificado en la petición GET. Este es mi código:

#!/usr/bin/perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ua->default_header("x-ms-version" => "2009-10-01");
$ua->protocols_allowed( );
$ua->show_progress( TRUE );
$ENV{HTTPS_CA_DIR} = 'C:/Users/Leo/Desktop';
$ENV{HTTPS_CA_FILE} = 'C:/Users/Leo/Desktop/azure.cer';

my $req = HTTP::Request->new(GET =>'https://management.core.windows.net/XXXXXXXXXXXXXX/services/hostedservices');
$req->header("x-ms-version" => "2009-10-01"); ...