Foro - Perl en Español

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 ?

«Ahora mismo cualquiera tiene delante una máquina multinúcleo (en Linux comprueba /proc/cpuinfo) y con ella podremos acelerar significativamente nuestras búsquedas con BLAST si se cumple una condición:

La memoria RAM de tu hardware debe superar con creces el tamaño de la base de secuencias que queremos rastrear.

Si esta condición se cumple en tu caso, sigue leyendo. El siguiente código Perl, con ayuda del módulo Parallel-ForkManager, te permitirá exprimir tú máquina, partiendo el problema inicial ...

Hola, buenas. :D ¡Soy nueva en este foro! y me gustaría presentar mi duda. :(

Estoy elaborando un programa el cual me permite traer ciertos dados al insertar a través de la URL una variable. Mi problema es que al ejecutar me presenta un error 500. Investigando por Internet encontré las posibles fallas, una de las que no ...

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 ...

Tengo el siguiente código:

#!usr/bin/perl
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd


use LWP::UserAgent;
use Crypt::SSLeay;

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 $code = tomar("https://anonfiles.com/api?plain",{"file"=>"test.txt"});

print $code;

sub toma {
return $nave->get($_)->content;
}

sub tomar {
my ( $web, $var ) = @_;
return $nave->post( $web, )->content;
}

#The End ?

Y me devuelve esto :

No input file ...

¡Buenas!

Estoy haciendo un programa en el cual, a partir de un elemento de una matriz, quiero saber la suma de los elementos de su alrededor para, a partir de ella, determinar unas condiciones, todo ello, imprimido en un documento .txt.

Yo creo que fallan las subrutinas, ya que no me las imprime.
Esto es lo que tengo hasta ahora:
@fila0=(0,0,0,0,0,0);
@fila1=(0,1,0,1,1,0);
@fila2=(0,1,1,0,0,0);
@fila3=(0,1,1,0,1,0);
@fila4=(0,1,0,1,1,0);
@fila5=(0,0,0,0,0,0);
$nombre="vida.txt";

open(AA,">$nombre") || die "cannot open the file: ...

No sé qué poner como título porque realmente no sé por qué no funciona el programa, más bien por qué no se ejecuta correctamente. Mi intención es que el bucle se repita mientras se introduzca un valor no válido, es decir: distinto de 'a', 'g', 'c' o 't'. Y haciendo diversos cambios lo único que hemos conseguido es: o que el primer dato introducido no lo reconozca como válido aunque lo sea, y el segundo ...