Foro - Perl en Español

Hola :

Desde mi código llamo a otro programa en perl con system() y le paso parámetros

es decir :

system("miprograma.pl", "parametro1");

lo que necesito saber es cómo en mi "miprograma.pl" puedo capturar "parametro1".

Muchas gracias.

Buenas días.

Solicito ayuda con un caso que se me esta presentando en un programa Perl que corre bajo Unix.

Tengo un arreglo @RECORDINVOICE que posee 1000 registros y cuando está ejecutando la siguiente instrucción me muestra el mensaje 'out of memory':
foreach $J (sort {$a <=> $b} keys %{$RECORDINVOICE}) {

la porción de código donde está este comando es:

for ($i = 1; $i <=$NUMINVOICES ; $i++) {
foreach $J (sort {$a <=> ...

Hola a todos
Bueno me han dicho que realice un programa para el problema de los filósofos comensales con "threads". Estoy empezando a desarrollarlo en Perl pero la verdad que soy nuevo en este lenguaje y como que no entiendo bien cómo usar hilos y buscando en Internet he encontrado muy pocos ejemplos sobre esto, sobretodo "sincronización de hilos"; agradecería mucho si alguien me pudiera proporcionar un manual relacionado con este tema.

Gracias de antemano ...

Hola estamos instalando snmptt en una Debian, cuando quiero lanzar la aplicación...

/usr/sbin/snmptt -dump

nos sale el siguiente error ...

Code: Seleccionar todo

Can't locate version.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at /usr/share/perl/5.8/Text/Balanced.pm line 13.
BEGIN failed--compilation aborted at /usr/share/perl/5.8/Text/Balanced.pm line 13.
Compilation failed in require at /usr/sbin/snmptt line 309.
BEGIN failed--compilation aborted at /usr/sbin/snmptt line 309.

Tenemos instalado el Perl y los módulos pero el Text::Balanced cuando lo cargamos ...

Bueno, me ha dado por jugar con VT100 y superiores, con ANSI escapes y se me ocurrió "emular" (n)curses con ésto.

¿Qué dicen, sería interesante o muuuuy mala idea?

Y sí, ya se que existe curses para Perl en CPAN :)

http://www.termsys.demon.co.uk/vtansi.htm

Sé que esto poco o nada tiene que ver con Perl pero creo yo que es un dato curioso que puede servir a muchos y es que el otro día en la oficina en mi tiempo libre estaba viendo unos vídeos de hacer un mechero con una papa y pasta de dientes y una lámpara con el cable USB. A lo que pensé si se puede hacer una lámpara por qué no un cargador. Así ...

Agradecería si me pudiesen indicar cómo leo los datos de un arreglo que ha sido pasado como parámetro.

Es decir, mi script recibe un parámetro que es un arreglo de elementos y quiero leer sus datos.

El SCRIPT que envía el arreglo tengo:

hidden(-name=>'array_materiales', -default=>@array_materiales)

El SCRIPT que recibe:

import_names('Q');
my @array_materiales = $Q::array_materiales || "";


Muchísimas gracias. :D

Los molesto nuevamente, pero en este caso para consultarles si alguien tiene algún ejemplo para poder cifrar archivos con gnupg (gpg).

Gracias

Buenas, en este caso les escribo con el fin de consultarles cómo puedo hacer para aplicar un comando sobre todos los archivos de un directorio.

Por ejemplo quiero duplicar los archivos de un directorio.

Tipo,

Code: Seleccionar todo

cp archivo archivo_copia

Gracias

Estoy intentando aprender por encima cómo programar Sockets en perl y no me funciona ni tan solo el programa ejemplo más simple que he encontrado:

#!/usr/bin/perl -w
use IO::Socket;
$sender = new IO::Socket::INET (
PeerAddr => 'localhost' ,
PeerPort => 1999,
Proto => 'tcp',
);
die "No se puede abrir el socket, Motivo: $!\n" unless $sender;
print $sender "MSG : enviando mi mensaje\n";
close $sender;

Para probarlo, por un lado abro una escucha en el ...