Foro - Perl en Español

¿Qué otra alternativa sencilla tengo para poder mostrar los asteriscos que no sea usando Term::ReadPassword?

¿ Alguien me lo puede decir ?

Hola a todos los monjes.

Hace ya un año y medio que por primera vez vi lo que era Perl (y agradezco a Larry Wall).
Tanto fue que me gustó, que trato de usarlo para todo, sí... todo.

En esta ocasión me encuentro muy trabado con lo siguiente:

Necesito un programa que ejecute dos procesos al mismo tiempo.
Googlee y googlee y no doy en la tecla.
Entiendo que lanzar varios procesos recursivos (que no ...

Hola, me acabo de unir a este foro. Soy nueva en Perl y necesito numerar las líneas de un programa ya que me tiene que salir el contenido del texto numerado.

El código que tengo hasta ahora es:

open( FUENTE, "$archivo1" ) || die "no se puede abrir el archivo\n";
open( RESULTADO, ">$archivo5" ) || die "no se puede abrir el archivo\n";

while ( $linea = <FUENTE> ) {
if ( $linea =~ /EXPRESS/ ...

Hola, estaba practicando el manejo de tablas mediante Tk y llegué a un punto en el que no sé cómo
mostrar el valor entero.

El problema está en la función show_cells(), la cual muestra solo los números. Mi idea es que muestre el valor completo. Lo he intentado mostrando con $_ pero no se muestra.

#!/usr/bin/perl
use warnings;
use Tk;
use Tk::Table;
my $cols = 10;
my $rows = 20;
my %slct;

# ------------------------------------------------------------------------ ...

Tengo una duda básica sobre cómo usar for() para que vaya disminuyendo el número en vez de aumentar.

El código que tengo es:

$uno = "1";
$dos = "6";

for my $num($uno..$dos) {
print $num."\n";
}

La idea es que en vez del 1 al 6 vaya del 6 al 1.

¿ Alguien me puede explicar cómo lo hago ?

Muy buenas, me presento me llamo Iván y estoy desarrollando con Perl, CGI y DBI.

Bueno, al lio, resulta que estoy recuperando de una BD el valor de un campo. Este valor es un 0 pero cuando hago la consulta con Perl y obtengo el valor de la referencia me devuelve un 1 en el log... Os pongo la subrutina:

sub comprobarNDocsTiposFuentes {

my ( $self, $tipoComprobar ) = @_;

$self->guardarLog( "Valor que llega ...

Saludos, comunidad de Perl en Espanol.

Les escribo en este caso solicitando ayuda para la realización de una aplicación web.

Se me ha presentado un problema con respecto a la codificación de la página web. Quiero que ésta use UTF-8 debido a que todos mis datos los manejaré bajo esa codificación. He agregado la etiqueta meta en el html para tal fin, he modificado Apache2 para que defina utf-8 por defecto pero no consigo que ...

Buenas, este es el ejercicio que nos han mandado:

Previamente es necesario estudiar los temas de "Entrada y salida en archivos" y "procesamiento básico de textos".
Posteriormente hay que copiar los cuatro archivos que están en: http://bip.weizmann.ac.il/course/prog/a ... 4_sources/ y que corresponden a la descripción textual de un gen, presentes en la base de datos UniGene.

El objetivo de la práctica es:
Escribir un programa que reciba el nombre ...

Sí funcionan con los números, pero no con letras. Por ejemplo, si pongo:
print --($foo = 'BA');
Entiendo que debería aparecer en pantalla "AZ", pero en vez de eso me muestra "-1". Extrañamente, sí funciona bien el incremento.

Estimados,
Los molesto porque me gustaría hacer que el siguiente script me guarde los resultados en archivos diferentes y no como ahora todo en uno solo.


#!/usr/bin/perl
BEGIN {
eval "use LWP::Simple";
if ($@) {
warn "Error al cargar modulo: LWP::Simple\n"
. "Instalar Modulo:\n"
. "\t\tcpan\n"
. "\t\tcpan> install LWP::Simple\n";
exit();
}
}

use LWP::Simple;

sub unescape {
my ($str) = splice(@_);
$str =~ s/\\u(.{4})/chr(hex($1))/eg;
return $str;
}

## Archivo Externo
open $FILE, ...