Foro - Perl en Español

Hola a todos, soy nuevo en este foro; recién me estoy iniciando en el mundo del Perl y tengo una duda; ¡alguien que me ayude! :)

Buscando en Internet encontré este código para tratar un GET desde URL.
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
my(%Variables); #Iniciamos el hash
#Leemos el query enviado
my $buffer = $ENV{'QUERY_STRING'};
#Dividimos cada variable
my @pairs = split(/&/, $buffer);
foreach my $pair (@pairs) ...

Hola a todos.
Les cuento que he estado trabajando en un agente SNMP en Perl que, básicamente, recibe información de ciertos módulos (en un formato propio) y mediante una sesión SNMP creada usando el módulo SNMP envía traps (con la función trap()) a un master.

Lo anterior ya está hecho y funciona bien, pero ahora debo agregar una nueva funcionalidad. La idea que es que este mismo agente SNMP levante en otro puerto un server ...

¡Hola!

En un script Perl quiero hacer un:
my $scp_resultado = `scp -r /tmp/$file sybase\@dc-db2-db:/tmp/$file <<END1
END1`;
El problema es que el comando me pide password. ¿Cómo puedo hacer una llamada para copiar dos ficheros entre dos servidores y pasar el password como parámetro?

¡Gracias por adelantado!

Consulta.

¿Alguien usa o sabe dónde puedo conseguir un módulo y script el cual sirva para parsear el log del postfix? Porque me gustaría ver la posibilidad de sacar la cantidad de mails que envían todas las cuentas de correo de mi server en el periodo de una hora.

Saludos.

Hola,

perdón si este no es el foro adecuado para mi pregunta, porque no sé si mi pregunta puede catalogarse de experto... pero es sobre expresiones regulares, así que ahí va.

En mi programa debo recorrer un array y comparar uno a uno los campos. Mi problema es que cuando ese campo contiene el signo '?' no me lo reconoce como parte de la cadena.

Para identificar el error he hecho un programa sencillo en ...

Hola gente, escribo el post en esta sección para asegurarme de obtener una respuesta segura. Sucede que estoy programando una simulación "cosmológica" en Perl, y necesito conseguir la mejor eficiencia del código para que el script "vuele". Sucede que estoy trabajando con una matriz 3D de 1000x1000x3, y necesito saber cómo recorrerla con eficiencia... ya que también trabajo en ella otras 1000 veces más.

El programa me está demorando sus 6000 seg. aprox. en Ubuntu. ...

Hola.

Miren, tengo varias preguntas, cuando hago un fichero con los datos de mi correo, se escriben los datos de esta manera:

Code: Seleccionar todo

mail
password
pop.gmail.com
true ó false -> aquí depende de si se utiliza SSL

al usar Mail::POP3Client.

Quiero poner los datos de USER, PASSWORD, HOST, SSL directamente del fichero, bueno, primero abro el fichero y coloco los datos en un array.

Por ejemplo:
open(DATOS,">datos.txt");

push(@mem ,<DATOS>);

close DATOS;

Ya tengo en un array ...

Hola,

Tal vez esto no tiene que ver totalmente con el lenguaje Perl, pero yo creo que sí; este problema solo lo tengo en Perl, jeje.

Bueno, les explico, tengo un programa en Perl que carga un archivo plano en una tabla que se podría calificar como de "paso" y una vez cargada dicha tabla se realiza un "insert into" en otra tabla.

El problema es que me está marcando un error de número inválido, ...

Hola,

Estoy queriendo implementar un programa que establezca comunicación entre una PC maestro y dos o más PC esclavas, para lo cual he pensado en Perl.

Básicamente lo que quiero hacer es:

• Una vez establecida la comunicación entre las PC, desde la PC maestro, poder activar/desactivar botones de las ventanas del programa hecho con Win32::GUI y que corre en las PC esclavas.
  
• Activar/desactivar un cronómetro desde la PC maestro cuyo progreso sea visto desde ...

Tengo el siguiente array o hash o lo que sea... que luego siempre lo llamo como no es :P

STATUS: $VAR1 = bless( {
'alert' => '',
'transation_id' => undef,
'sip_fee_type' => '01',
'item' => bless( {
'hold_queue' => [
{
'hold_type' => '2',
'patron_id' => undef,
'expiration_date' => '20081125 110158',
'pickup_location' => 'LAXE1',
'item_id' => '9'
}
],
'patron' => bless( {
'hold_items' => [
'2' ...