Foro - Perl en Español

Hola, explorer. Por ahí saqué algo que tu usaste:

open my $FILE, '<', $new_name."/".$file;
{
local $/; # activar modo aspiradora
$data_file = <$FILE>;
}

Sé que lo hizo mágicamente, pero no sé qué es lo que pasa. Si no tengo ese modo aspiradora solo me queda la primera línea del manejador en $data_file, pero si lo pongo entonces en la variable $data_file tengo todo el contenido del fichero... ...

Hola a todos.

Básicamente mi pregunta se remonta a intentar crear una herramienta que traduzca código Perl a código humano :o Es decir: poder leer el código Perl como si de un libro se tratase... Parece tonto, creo, pero leyendo por ahí, creo que sería un avance muy grande permitir traducir grandes códigos al lenguaje humano, y dada la capacidad de procesamiento de texto de Perl creo ...

Resulta que tenía mi alojamiento y todos mis sitios con conexión a MySQL. Dejaron de funcionar porque instalaron MySQL a una versión mayor y tengo este error:

install_driver(mysql) failed: Can't load '/usr/local/lib64/perl5/auto/DBD/mysql/mysql.so' for module DBD::mysql: libmysqlclient.so.16: cannot open shared object file: No such file or directory at /usr/lib64/perl5/XSLoader.pm line 70, line 1.
at /usr/local/lib64/perl5/DBD/mysql.pm line 15
Compilation failed in require at (eval 19) line 3, line 1.
Perhaps a required shared library or dll isn't ...

Buenos días, tengo una PC como servidor de desarrollo (pruebas) el cual posee perl, v5.8.8 built for i386-linux-thread-multi. A estas fechas Perl ha evolucionado a otras versiones, les agradeceré me indiquen por favor cuál es la versión a la que me recomiendan actualizar porque he encontrado soluciones que requieren de una versión mayor. Gracias.

Hola.

¿Dónde puedo ver el código fuente del intérprete perl? Muchas funciones estarán en C. ¿Es posible ver su código fuente?

Gracias.

Hola. Me podrían recordar, por favor, el uso de @$ para hacer referencia a los elementos de un arreglo.

Gracias.

Hola. Tengo dos fechas:

$date1 = ParseDate($fs);

####-->La variable $date1 siempre debe tener un valor porque fuerzo su captura, como ejemplo la variable date1 tendrá el valor de 2014/02/19 11:11:00

$date2 = ParseDate($fe);

####-->La variable $date2 le asigno el valor '0000/00/00 00:00:00' porque la variable $fe no ha sido capturada y es necesario calcular la diferencia entre $date2 y $date1. Por favor, ¿me podéis orientar si esta operación es correcta: ParseDate(0000/00/00 00:00:00),

para que en ...

Hola, ¿qué tal? ¿Alguno de ustedes conocerá cómo puedo hacer que Perl reconozca de una manera inteligente (smart) qué TAGS mostrados en HTML fueron los modificados? De tal manera que cuando ejecute el query de Update solo se actualizaran los TAGS que se modificaron.

Gracias, Perl es muy potente y no dudo que existe alguna manera para hacer lo que pregunto.

¿Existe algo más rápido que el grep para verificar si un dato de un array está repetido ?

Tengo esto:

my $c = grep { $_->{$key} == $data->{$key} } @$pagosCSVData;

Es un array de hash, de unos 30 000 registros, y quiero eliminar los repetidos según una llave :P Pero el proceso para los 30 000 registros me toma mucho, ¿ Cuánto me debería tomar, hay ...

Hola,

Por favor, necesito ayuda en lo siguiente:

Estoy trabajando con un CPE ADSL y estoy tratando de actualizar la versión de FW mediante FTP por la LAN, con el script es posible establecer la sesión FTP sin problema, pero en la línea de ingreso del comando $ftp-> put(('NUR4MQ012.bin') me arroja un mensaje: Unknown command PASV desde la consola.

He intentado con
$ftp = Net::FTP->new($host, Debug =>0, Passive=>1)
$ftp->put_Passive(1)

Estoy utilizando S.O. Ubuntu, el FTP ...