Foro - Perl en Español

Un saludo a todos los integrantes.

Estoy introduciéndome en el mundo de Perl desde hace poco. He leído mucho de su potencial. Después de hacer varias pruebas, no he logrado generar un script que me permita combinar dos archivos. Además, no sé si Perl permitirá procesar archivos con más de 2 millones de líneas.

Tengo un archivo A con
0 1 0.09130000 -0.07460000 4.22670000 1275 1275 1275
0 2 0.09130000 -0.07460000 4.22980000 1284 1284 1284 ...

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+/, $_);

}