Foro - Perl en Español

Hola a todos...

Estoy haciendo un script en Perl para descargar ficheros de un sitio FTP pero cuando me conecto que doy un dir o ls se queda como bloqueado y al final no me muestra ningún fichero.

Entonces, desde el putty me conecto a un servidor Linux y hago telnet a un FTP, me logueo sin problemas con un usuario y contraseña válidos; al estar dentro pongo dir o ls y se me queda ...

Hola.

En realidad soy nuevo en esto y estoy corriendo un script pero me sale el siguiente error; este script venía corriendo sin problemas.

root@Aware2$ perl proc_tabla.pl
Can't load '/opt/perl/lib/site_perl/5.8.8/sun4-solaris/auto/RRDs/RRDs.so' for module RRDs: ld.so.1: perl: fatal: librrd.so.2: open failed: No such file or directory at /opt/perl/lib/5.8.8/sun4-solaris/DynaLoader.pm line 230.
at /opt/perl/lib/site_perl/5.8.8/RRD/Query.pm line 4
Compilation failed in require at /opt/perl/lib/site_perl/5.8.8/RRD/Query.pm line 4.
BEGIN failed--compilation aborted at /opt/perl/lib/site_perl/5.8.8/RRD/Query.pm line 4.
Compilation failed in require at proc_tabla.pl line 16. ...

Al final el programa acabó funcionando, y sacando al archivo de texto lo que quería, el problema es que me saca mal tanto los caracteres rusos como los koreanos; he mirado por ahí mil páginas de encoding y probado el módulo encode de Perl pero no consigo hacer para que guarde correctamente en el archivo de texto los caracteres coreanos y rusos. Este es el resultado que obtengo:

[ITEMDEF 01db3]
DEFNAME=i_barrel_broken
RESOURCES=16 i_BOARD, 2 i_BARREL_HOOP, ...

Lo que busco es abrir un documento de texto, buscar palabras que cumplan una determinada condición (estar tras "DESCRIPTION="), enviarlas a un traductor online, coger el resultado y en otro documento de texto poner el original pero con las palabras enviadas a traducir sustituidas por sus correspondientes traducciones, ya esta todo hecho menos la última parte...

¿Cómo puedo hacer para en ese documento de texto sustituir las palabras por las mencionadas?

Este es el código, ...

¡¡¡Hola a todos!!!
Estoy intentado escribir en un fichero en modo binario.


my $long = 1312;

open(F,...);
binmode(F);

print F $long;



intento escribir un long, es decir 8 bytes.
¿Alguna ayuda? He pensado que con sprintf se podría cambiar el formato a %l y después escribir en el fichero.

¿Existe algún módulo o alguna forma de matar un proceso de Windows con Perl?
Ya sé qué con las API de Windows por supuesto se puede pero no sabría por donde empezar. En lo personal prefiero y utilizo Linux, pero en clase tengo Windows, y me surgió esta necesidad...
Al final acabé solucionándole con un simple taskkill de batch, pero me quedé con la curiosidad y por más que miro por aquí y por allá ...

Hola, estoy desarrollando en Perl una aplicación y estoy reutilizando código. Necesito recorrer un hash que está guardado en otro y el código es el siguiente:

while ($infopd = $dbpd->fetchrow_hashref()) {
$limite = $infoo->{limitc} if ( ! ( $infoo->{limited} ) ); $sumamaterial.=" <br>$materials{$infopd->{material}}&nbsp;&nbsp;&nbsp;$infopd->{quantity}";
$destajo+= $infopd->{salary};
$resumenmaterial{$infopd->{material}}+= $infopd->{quantity};
}

El hash que necesito recorrer es $resumenmaterial.

Por su atención: GRACIAS y un caluroso saludo. :D

Hola a todos...

Necesito saber si desde un script de perl se pueden abrir simultáneamente dos sesiones ftp a dos servidores FTP distintos...

Gracias por adelantado.

saludos...

Hola,

Tengo un problema al leer acentos de un archivo con Perl. Abro el archivo leo cada línea y separo las palabras por espacios, pero los acentos aparecen como espacios en blanco y televisión se convierte en "televi" y "n". ¿que debo tocar para que lea los acentos bien?

open(FPIN, "<$mystoplist");

while (<FPIN>) {

@tokens = split(/\s+/, $_);

}

Hola a todos, primero de todo felicitaros por la gran tarea que lleváis a cabo... Creo que sois una gran herramienta para todos los que, como yo, nos iniciamos en el mundo de la programacion en Perl.

Creo que mi duda será fácil de contestar... la cuestión es que tengo que crear un hash el cual he creado de la siguiente manera:

%hash = (
"diez",10,
"cien",100,
"mil",1000,
);

Representa que diez, cien y mil ...