Foro - Perl en Español

Hola a todos,

Soy nuevo en Perl y he estado tratando de entender cómo pasar una respuesta a un comando de un programa externo.

El comando lo ejecuto de la siguiente manera:

my $nhloaddb = `nhLoadDb -p C:\respaldoDb`;

El problema es que dicho comando me responde con una pregunta, a la cual debo escribir manualmente 'Yes' para confirmar el comando.

Necesito que ese 'Yes' sea escrito automáticamente con el código en Perl. Leí algo sobre ...

«En numerosos manuales de Perl se recomienda en general trabajar con variables de tipo hash en vez de con arrays. Para hashes, existen las funciones ‘exists’ y ‘defined’, que nos permiten saber si una clave existe en un hash, y si su valor está definido o no, respectivamente.

Pero en ocasiones debemos trabajar con un array (quizá porque estamos modificando un código que existía previamente), y necesitamos saber si un determinado valor existe en el ...

«En este artículo vamos a probar las bases de datos gratuitas de conversión IP-a-país e IP-a-ciudad disponibles que se pueden descargar de http://www.maxmind.com.»

Artículo

«Existen muy buenas aplicaciones open source, como por ejemplo AWStats, que permiten realizar un análisis en profundidad de la información contenida en los logs de acceso de un servidor web.

En otro artículo comentaremos la funcionalidad de dicha herramienta, y la manera de instalarla y configurarla.

Sin embargo, en ocasiones nos puede interesar realizar un proceso ad-hoc de los ficheros de logs de nuestro servidor, para obtener información específica de la estructura de nuestro sitio ...

«En un artículo anterior hemos visto cómo trabajar con variables de tipo hash en Perl.

En dicho artículo veíamos la manera de recorrer las entradas del hash mediante un bucle ‘foreach’, ordenando el hash por sus claves con el operador ‘sort’.

En ocasiones, sin embargo, lo que necesitamos es ordenar el hash por los valores de sus entradas, no por las claves. Por ejemplo, supongamos que tenemos un hash que contiene pares (clave,valor) en donde ...

Estimados, espero alguien me pueda ayudar. Estoy teniendo problemas con este trozo de código:

$file = "archivo.zip";
my $ftp = Net::FTP->new("ftp.ftpAlQueMeConecto.cl",Port => 21, Debug => 1)
or die "ERROR AL CONECTAR";
$ftp->login("Login",'Password')
or die "error en el login ", $ftp->message;
$ftp->pasv();
$ftp->binary();
$ftp->get($file, "/tmp/archivo.zip") ||
die "get($file) failed: " . $ftp->code() . ": " . $ftp->message();#error
$ftp->quit;

La llamada a la librería está hecha. Lo he probado en varios servers y ha funcionado muy bien, ...

Resulta que tengo este código
opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";

#@dirs = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
#Se lee el directorio
while(readdir $dh) {

#Pongo en directorio si, el archivo no es un fichero y el directorio no tiene . o ..
push (@dirs,$_) if (! -f "$some_dir/$_" && ! /^\./);

}
closedir $dh;

return Dumper @dirs;
cuando lo ejecuto en Windows me muestra los directorios, ...

Tengo una duda con el siguiente código:

my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
$mejor->bind($body,"<Key-Return>"=> sub {
print "al fin\n";
});

El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.

¿ Alguien me podría explicar cómo soluciono esto ?

Para los que estamos siguiendo las conferencias de la última YAPC::NA, vimos que hay que instalar la pesadez del Silverlight o Moonlight.

Bueno, pues hay una alternativa mejor: usar VLC.

Por un tiempo limitado, se puede leer la última edición del libro "Beginning Perl", de Curtis “Ovid” Poe.

(en inglés).