Foro - Perl en Español

Hola, compañeros.

Tengo un problemilla curioso. Instalé con cpan Image::Grab.

Cuando ejecuto el script .pl manualmente por consola, me descarga la imagen en un directorio local. Si programo este mismo script en el crontab entonces me sale un error de que no encuentra dicha biblioteca o paquete... con el siguiente mensaje:
Can't locate Image/Grab.pm in @INC (@INC contains: /usr/local/lib/perl5/5.10.1/i686-linux-thread-multi /usr/local/lib/perl5/5.10.1 /usr/local/lib/perl5/site_perl/5.10.1/i686-linux-thread-multi /usr/local/lib/perl5/site_perl/5.10.1 .) at /home/enric/download_images.pl line 4.
BEGIN failed--compilation aborted at /home/enric/download_images.pl line 4.
Versión ...

Buenas tardes, maestros de Perl, tengo una duda. ¿Cómo hago para limpiar una variable como esta?

while($x<100){
my @var1=push(@var1,$valor);
}

# aquí hago lo que tengo que hacer

# Y aquí necesito borrar la variable algo así como "" o bien volver a setearla con nada

my @var1="";


De antemano, muchas gracias.

Tengo un arreglo y quiero mostrar el valor máximo y mínimo.

¡Buenas!
Quisiera saber si hay alguna forma de introducir el símbolo matemático que representa el infinito, en Perl.
Gracias

No conozco mucho sobre este módulo para extraer sus datos y verlos el código que tengo es así :

#!usr/bin/perl
#ppm install http://www.bribes.org/perl/ppm/JSON.ppd
#ppm install http://trouchelle.com/ppm/Digest-MD5-File.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd

use JSON;
use Digest::MD5::File qw(file_md5_hex);

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $api_key = "mikey"; #Your API ...

Estoy intentando sacar el hash md5 de un archivo mediante el módulo Digest::MD5::File con el siguiente código :

use Digest::MD5::File qw( file_md5_hex );

my $md5 = file_md5_hex("api.txt");

print $md5;


y devuelve :

Filehandle STDOUT reopened as only for input at C:/Perl/site/lib/Digest/MD5/File.pm line 53, <DATA> line 461.

¿ Alguien me puede decir qué hice mal ?

Tengo el siguiente código :


#!usr/bin/perl

use LWP::UserAgent;
use Data::Dumper;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

print "\n Uploading ...\n";

my $code = $nave->post("https://post.imageshack.us/upload_api.php",Content_Type =>"form-data",Content=>
[
key=>"blabla",
fileupload=>,
format=>"json"
]
)->content;

print $code;



Y me devuelve :

Uploading ...
{"status":"1","version":8,"timestamp":1368548024,"base_url":"imageshack.us/a/","
id":1031484817,"rating":{"ratings":0,"avg":0},"files":{"server":"401","bucket":"
2281","image":{"size":460503,"content-type":"image/png","filename":"javan.png","
original_filename":"java.jpg"},"thumb":{"size":6390,"content":"image/jpeg","file
name":"javan.th.png"}},"resolution":{"width":1024,"height":768},"exif-info":{"ex
ifcompression":"Deflate/Inflate","exifimagesnum":"1"},"class":"r","visibility":"
yes","uploader":{"ip":"127.0.0.1","cookie":"b237e07ab15272ee1d9e5e38d4cadd8a","u
sername":"doddyhackman"},"links":{"image_link":"http://imageshack.us/a/img401/22
81/javan.png","image_html":"<a href='http://imageshack.us/photo/my-images/401/ja
van.png/' target='_blank'><img src='http://imageshack.us/a/img401/2281/javan.png
' alt='Free Image Hosting at http://www.ImageShack.us' border='0'/></a>'","image
_bb":"http://image
shack.us/a/img401/2281/javan.png","image_bb2":"http://imageshack.us/
a/img401/2281/javan.png","thumb_link":"<a href='http://imageshack.us/photo/my-im ...

Quiero sacar los ficheros de un directorio con el script:

#!/usr/bin/perl
$dir = "/directorio";
opendir(DIR, "$dir");
@FILES = readdir(DIR);
foreach $file (@FILES) {
print $file, "\n";
}
closedir(DIR)

Si lanzáramos este script, me sacaría la siguiente salida:

.
sftp_put.pl
sube_zip_opersev.pl
directorio.pl
copia_todos.sh
sftp.pl
ftpssl.pl
..


¿Cómo podría quitar los puntos de los directorios, el '.' y el '..'?

Muchas Gracias.

Buenas tardes...

Está excelente este foro y la verdad sigo aprendiendo... Tengo la siguiente duda, a ver si me podrían ayudar, por favor.

Lo que necesito es leer un arreglo, por ejemplo @nodos, que contiene los valores 15, 20, 45, 78, 450, etc... y barrer una variable a través, de este arreglo, donde la variable trae un valor, por ejemplo $variable = 45, entonces imprimir si existe..

Muchas gracias por su apoyo.

Buenas tardes, maestros de Perl, deseo realizar lo siguiente:

Tengo un archivo TXT con líneas parecidas a estas:
0c0!1!0!0!0!0!0!0!0!1!0!1!0!0!0!0!0!
0!0!0!0!0!0!0!0!0!0!0!0!1!0!0!0!0!0!
0!0!305!0!0!0!0!0!24!0!317!0!1!24!18!75!5!14!
0!0!82!0!0!0!0!0!10!0!83!0!2!10!6!60!7!14!
0!0!0!0!0!0!0!0!0!0!0!0!1!0!0!0!0!0!
0!0!0!0!0!0!0!0!0!0!0!0!1!0!0!0!0!0!
0!0!0!0!0!0!0!0!0!0!0!0!1!0!0!0!0!0!
0!0!0!0!0!0!0!0!0!0!0!0!1!0!0!0!0!0!
0!0!5!0!0!0!0!0!0!0!7!0!1!0!2!0!2!2!
0!0!0!0!0!0!0!0!0!0!0!0!1!0!0!0!0!0!
Deseo únicamente extraer el valor número 11, que se encuentra entre el carácter "!" número 10 y el carácter "!" número 11.

Básicamente lo que necesito hacer es, una función que me permita recorrer la línea, carácter por carácter, y que cuando encuentre el carácter deseado me ...