Foro - Perl en Español

Hola, ¿qué tal?
¡¡Nuevamente les agradezco por la ayuda en mi primera consulta!!

Mi pregunta es la siguiente:
necesito obtener una fila determinado de una tabla pasando como parámetro el número de fila.
Todos los datos de la tabla se encuentran en @array pero si hago $array no me da la primera fila sino la primera columna...

¿¿Me podrían ayudar con esto??
¡¡¡Muchas gracias!!! ¡¡¡Saludos!!!

¡Buenas de nuevo!

Tengo entre manos un código que necesita leer de una DB de Oracle las fechas en UTC (1227696222) y tengo que convertirlas a formato normal (26/11/2008 10:00).
He estado buscando por CPAN, investigando el uso del modulo DateTime y nada, ¿alguien sabe cómo hacerlo?
Debería de poderse hacer para usarlo como subrutina de conversión (una para cada sentido de la conversión).

¡Gracias por adelantado!

Buenos días, he instalado el módulo XML::Parser v 2.23 descargado de CPAN, en un AIX 5.3, cuando se ejecuta el make test aparecen varios errores como el siguiente:

Code: Seleccionar todo

Failed 20/23 tests, 13.04% okay
t/cdata...........PositionContext: Parse position is outside of buffer
at
/app/desa/metrred/modulosPerl/XML−Parser−2.23/blib/lib/XML/Parser/Expat.pm
line 344.
t/cdata...........dubious

Sin embargo, al realizar el make install todo va bien, pero al ejecutar el código de la aplicación vuelve a dar el error:

PositionContext: Parse position is outside of buffer ...

¿Por qué no puedo usar ningún módulo , o instalarlo?

Al querer instalarlo:

Code: Seleccionar todo

perl Makefile.PL

me tira un error como este:

Code: Seleccionar todo

Can't locate HTML/LinkExtractor.pm in @INC (@INC contains: /usr/lib/perl5/5.10.0/i386-linux-thread-multi /usr/lib/perl5/5.10.0 /usr/local/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi /usr/local/lib/perl5/site_perl/5.10.0 /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/perl5/vendor_perl /usr/local/lib/perl5/site_perl /usr/lib/perl5/site_perl .) at test.pl line 15.
BEGIN failed--compilation aborted at test.pl line 15.

Ya probé con más de 15 módulos y todos me tiran lo mismo, ya intenté con root, y todo.

Hola, primero que nada mucho gusto.

Tengo un query que me devuelve en la variable $nombre registros de una base MySQL de esta forma: Benjamin A. Gomez Ca. 'Nuevo usuario' (nótese los apóstrofos)

Lo que quiero hacer es meter este texto exactamente a otra tabla, pero me da error el MySQL porque cuando encuentra el primer apóstrofo, piensa que termino la línea, entonces quiero ponerle doble apóstrofo, o triple (no estoy seguro si son dos ...

Hola amigos del foro, tengo un script con el que quiero reemplazar dos valores que se repiten por ceros, pero hay un valor que no me lo reemplaza, y en eso quiero que me ayuden, acá esta un archivo:

1000 -9.989999710577421e+33 -9999 -9999 -9999 -9999
950 -9.989999710577421e+33 -9999 -9999 -9999 -9999
925 -9.989999710577421e+33 -9999 -9999 -9999 -9999
900 -9.989999710577421e+33 -9999 -9999 -9999 -9999
850 -9.989999710577421e+33 -9999 -9999 -9999 -9999
800 -9.989999710577421e+33 -9999 -9999 -9999 -9999 ...

Hola,

Tengo un problema con Perl... he realizado un script para transferir archivos vía ftp de un servidor a otro. El hecho es que me da error cuando se ejecuta la instrucción donde especifico la ruta origen.

Es un script muy sencillo, pero el problema es que recién estoy conociendo Perl y no tengo ni idea de cómo solucionar este problema.

Por favor si alguien puede ayudarme, el script es el siguiente:
#!/usr/bin/perl

use Net::FTP; ...

No sé mucho de este tema con Perl, pero necesito crear una cola de mensajes pero cuando uso la función ftok() para generar la clave me da error, no sé si en Perl se hará de otra forma o si existe algún modulo para esto.
Cualquier sugerencia me vendría muy bien, gracias.

Saludos.

si pongo la salida en un archivo .txt ya respeta los acentos pero si uso el query para subirlo a una base de datos ya no funciona

use DBI;
use encoding "iso-8859-1";

$sqlcambiop="UPDATE avisos SET categoria=? WHERE referencia=?";
$sthcambiop= $dbh->prepare($sqlcambiop);

$ref=1;
$frase= "Un niño aniñado día";
print "$frase";
$sthcambio->execute($frase,$ref);

Bueno les cuento lo que quiero hacer.

1. Lo primero que quiero es conectarme a mi router (con un equipo dentro de la LAN) ingresando los campos de USUARIO y PASSWORD. /* El router utiliza una interfaz WEB para administrarlo. */
   
   Esto lo logre usando SAMIE, pero me gustaría hacerlo con Mechanize para que no quede solo para ser usado con Internet Explorer.
   
2. Lo segundo, realizar un click sobre algún link que proporciona la ...