Foro - Perl en Español

¡¡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?

Gente, ¿alguno tiene a mano algún código para depurar direcciones de correo validas desde un select? Al sacarlos viene bastante sucio el listado y seguramente alguno paso por ello anteriormente...

La aplicación es de terceros y los formularios no validan nada... por ello necesito limpiar el listado en el select.

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

«En otras ocasiones les he hablado de Moose. Hoy voy a explicar lo más básico de este nuevo sistema de programación orientada a objetos que ha tomado por asalto al CPAN y que muchos desarrollos están adoptando como plataforma oficial de programación orientada a objetos.

Todo este ruido es porque Moose ofece mecanismos únicos de reutilización de código y polimorfismo que además son muy fáciles de utilizar. Así que ahora además de la herencia podrás ...

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?

Felices fiestas

Mucha salud y armonía en sus familias.

Feliz Navidad y un próspero Año Nuevo.

Que la pasen bien.

netsoul@intel:~$ perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'

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