Foro - Perl en Español

Gente, tengo un script en Perl muy lindo que con cariño armé para consola. Ahora que funciona me gustaría pasarlo a ventanas. Mi pregunta...

Necesito poner un menú con opciones tipo checkedlistbox de selección simple o múltiple...

¿Alguno sabe dónde puedo ver este tipo de estructura...?

Hola. Ando queriendo verificar el contenido de una página que ésta se redirecciona a otra en un momento.

Tengo prueba.htm:
<title>Probando</title>
<br>Simple movimiento</br>
<meta http-equiv="refresh" content="0;URL=http:/127.0.0.1/saludo.htm">

Y el código de saludo.htm:
<br>Bienvenido a mi web</br>

Y mi programita Perl

use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;

my $tor = "http://127.0.0.1/prueba.htm";
my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
my $http = new HTTP::Request GET ...

¡¡Buenas!! Os voy a exponer mi problema:
Tengo un array de las siguientes caracteristicas:

@array = ( 'AT','OH','GB','AT','AT','OH','TS')

Quisiera saber cómo podríamos hacer una subrutina que nos devolviera el valor más repetido en este array, teniendo en cuenta que se podrían usar arrays con cientos de elementos.

Muchas gracias.

Hola,

Tengo un programa que incluye su archivo de configuración de la siguiente manera:
do "config.pl";

Este archivo posee unas variables declaradas con my(), que cuando son usadas dentro del programa, producen el siguiente error: Global symbol "$algo" requires explicit package.

¿Cómo hago para solucionar el error?

Hola.

Ando queriendo descodificar dos codificaciones, una en ASCII y otra en hexadecimal.

Pues tengo :
users = 117,115,101,114,115 # Ascii separado cada tres dígitos con comas
users = 0x7573657273 # HeXADecimal

Mi pregunta es: ¿cómo hago para descodificar las dos codificaciones a su respectivo valor (users) en Perl?

Hola.

Ando queriendo reemplazar en una cadena un cierto número por hola.

@numE = ( "1","2","4");

$num = "1.2.3.4";

$hola = "hola";

foreach $z (@numE) {

$num =~ s/$z/$hola/;

print "LO HICE CON $z $num\n";

}

Los números que quiero reemplazar por hola son lo que están en @numE. El script me tira lo siguiente:

LO HICE CON 1 hola.2.3.4
LO HICE CON 2 hola.hola.3.4
LO HICE CON 4 hola.hola.3.hola

Pero lo que yo quiero ...

Hola a todos.

Volvemos al ataque. Yo también quiero hacerme famoso colgando módulos de Perl (es broma) y estoy intentando hacer uno. Y tengo algunas dudas, sobre todo a la hora de leer los datos para escribirlos en el archivo.

package volumen;
use strict;
use warnings;
use diagnostics;

use File::Slurp;
use Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw( lee escribe );
our $VERSION = 0.01;

#Declaramos las variables
my @volumen_cono;
my @datos_cono;
my ...

Gente a ver si a alguno le paso esto...
Se probó script de envío de correo con MIME:Lite y funciona bien por separado , pero cuando se suma dicho código a un script que genera un xls, sin adjuntar este último... da el siguiente error...
¿A alguno le paso algo así...? o saben cómo solucionarlo...

Uncaught exception from user code:
SMTP auth() command failed: No such file or directory
Need MIME::Base64 and Authen::SASL todo auth ...

Gente, para enviar mails por SMTP con autenticación y adjuntos, qué módulo me recomiendan...

Hola,

tengo un problema al acceder a un FTP y no sé cómo puedo solucionarlo. Utilizo el siguiente código para intentar obtener un fichero del ftp:

$ftp = Net::FTP->new("servidor.empresa.com", Debug => 0)
or die "Cannot connect to ftp://servidor.empresa.com/: $@";

$ftp->login("PSW",'1209')or die "Cannot login ", $ftp->message;
$ftp->cwd("/prueba")or die "Cannot change working directory ", $ftp->message;
my @Files = $ftp->ls();

$ftp->cwd("/Log_files")or die "Cannot change working directory ", $ftp->message;
$ftp->get("reports_IDs.txt")or die "get failed ", $ftp->message;

El problema lo ...