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?

La nueva versión de Devel::NYTProf, trae las siguientes facilidades:

* Habilidad de perfilar opcodes, que significa...
* NYTProf puede ahora perfilar expresiones regulares lentas
* Más estadísticas detalladas de los bloques BEGIN
* Treemap de subrutinas
* Seguimiento de subrutinas que son llamadas desde otras subrutinas
* Gráfica de llamadas a subrutinas
* Informe de salida mejorado
* Habilidad de mezclar perfiles de ejecución, como cuando un proceso crea otros procesos, como lo hace el ...

Relacionado con este tema tengo yo una duda. Necesito pasar de una variable escalar de la forma acccgtttauuugt a un array de esta otra forma: acc, cgt, tta, ... etc. Es decir, que me divida el escalar en grupos de 3 elementos y cada grupo como una variable del array. Tengo que hacer un trabajo sobre qué codón es el más usado para codificar cada proteína y estoy hecha un lío.

Gracias.

Estoy trabajando con Perl v5.10 y tengo problemas para instalar el DBD::Informix.

Instalé el DBI, pero como estoy trabajando con Informix, al querer instalar DBD::Informix me sale lo siguiente.

CPAN.pm: Going to build J/JO/JOHNL/DBD-Informix-2008.0513.tar.gz

*** ExtUtils::AutoInstall version 0.63
*** Checking for dependencies...

- DBI ...loaded. (1.609 >= 1.38)

- Time::HiRes ...loaded. (1.9719)

- Test::Pod ...missing.
==> Auto-install the 1 optional module(s) from CPAN? y
Dispatching ...

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 ...

Los molesto para consultarles cómo puedo hacer para usar este módulo para bajar un archivo de un sitio.

Tengo este script el cual me lo baja pero no sé cómo decirle dónde quiero guardar el archivo y con qué nombre.
use File::Download;
$url = "http://localhost/1.txt";
$dwn = File::Download->new({
overwrite => 1,
});
print $dwn->download($url);
print $dwn->status();

Gracias