Foro - Perl en Español

Bueno parece extraño, pero tengo dos archivos:

Login.pl
En este primero creo la sesión con el CGI::Session correctamente y paso con el print $s->header(), la sessión por cookies,

Admin.pl
En este archivo quiero validar la session, pero solo puedo cargarla cuando uso ID estáticos., por ejemplo:
$s = CGI::Session->load("sdd989ere4354564345") la carga bien.

Pero, ¿cómo hago para cargar una session que creé en Login.pl en mi archivo admin.pl si cuando uso la función load por defecto, ...

Saludos.

Estoy probando catalyst y ejecute el script para generar los paquetes para CRUD (scaffold), me genero las clases y vistas. Al ejecutarlo me da error al tratar de agregar un registor, muestra la pagina con el titulo de cada campo pero sin las cajas de texto para colocar los valores. Cuando selecciono edit (de la lista generada con list) da el siguiente error :

|Caught exception in Telefono::Controller::Directorio->edit "Telefono::Model::CDBI::DirectorioTelefono::Model::CDBI::Directorio->retrieve(ARRAY(0x93b608c)) parameters don't include values for ...

Saludos.
Cómo puedo usar File::Tie y OO para unificarlo en un módulo?
Me explico:
Tengo el "sub new" que me crea el objeto, y otro sub que me hace el tie, pero si lo quiero usar en otro sub el array no encuentro forma de hacerlo, ya que si hago un "$obj->{Array} = \@array" pierde la idea de File::Tie, dejaría de ser array.
De antemano, gracias!

Alguien puede ayudarme a hacer estos ejercicios:
Ejercicio 1
Supongamos que un PC bajo Linux tiene dos discos duros: uno de ellos es el disco de trabajo, y el otro se usa solo para mantener una copia de seguridad. Se trata de escribir un programa en bash que haga el mantenimiento de la copia de seguridad del segundo disco. El programa se llamará "actualizaBackup", y tendrá dos argumentos: a) el sistema de ficheros, o el ...

Hola a todos...

Estoy haciendo algunas cosas en Perl y quisiera saber cómo podría hacer lo siguiente...

Quisiera hacer un script en Perl que me permitiera (por ejemplo) entrar a mi correo de yahoo y una vez dentro de él darle a un botón determinado...

Gracias por adelantado...

Saludos...

scorpion.

¿Algún tutorial que explique bien el uso de DBI con mysql?

Hola mi pregunta es cómo puedo ejecutar un script o alguna línea de PHP dentro de mi aplicación en Perl.

Hola a todos

Estoy trabajando en Perl y quisiera obtener con la función get el resultado de una url de internet.

Algo así como...

Code: Seleccionar todo

my $ua = LWP::UserAgent->new;
my @headers = (
   'User-Agent' => 'Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)',
   'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png,  */*',
   'Accept-Charset' => 'iso-8859-1,*',
   'Accept-Language' => 'en-US',
   'Referer' => 'http://www.pepepeppepepepeppe',
 );
my $url='http://www.blablabla.com';
 
my $req = $ua->get($url, @headers);

pero resulta que estoy por detrás de un proxy, ...

Saludos a todos.
Tengo problemas con el manejo de errores que se generan al insertar datos en una tabla.
Tengo una tabla "a" que contiene datos no normalizados, es decir, tiene datos repetidos. Y quiero pasar los datos a una tabla "b" que contiene las llaves necesarias para poder rechazar los datos de la tabla a que esten repetidos. Pero los datos que no pudieron ser insertados en la tabla "b" por estar repetidos, deseo ...

Estimados,
Debo realizar un servidor de escucha. Buscando información al respecto, encontré el módulo IO::Socket::INET. Además encontré algunos ejemplos de server. Expongo uno de ellos:

#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent; # for OO version of gethostbyaddr

$PORT = 9000;
$MAX_CLIENTS = 10;

$server = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $PORT, Listen => $MAX_CLIENTS, Reuse => 1);

die "can't setup server" unless $server;
print "[Server $0 accepting clients]\n";

while ($client = $server->accept()) {

$client->autoflush(1); ...