Foro - Perl en Español

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

¿ Cuál les parece mejor para programar ?

Querría saber el código óptimo para realizar una encuesta en Perl. La tenemos realizada, pero nos parecen demasiadas líneas y queríamos ver la manera más óptima. La encuesta consiste en una batería de preguntas a las que se responderá sí y no mediante y , y dependiendo de si la respuesta sea positiva o negativa se pasará a una siguiente pregunta que dependerá de la primera. Así, si a una pregunta que se interesa ...

Mi problema resulta al descargar un programa para alineamientos el cual es un binario de UNIX, me descarga un archivo .tgz al descomprimir aparecen cuatro archivos ejecutables de UNIX al tratar de abrirlos en la terminal 2 de ellos indican (cannot execute binary file), el tercero (SX_i386
Reason: image not found
Trace/BPT trap: 5) y finalmente uno me muestra en parte lo que quiero del programa pero de inmediato marca logout sin permitirme seleccionar la ...

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

Un simple script para subir imágenes a Imageshack.

El código :


#!usr/bin/perl
#Imageshack Uploader 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd

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);

head();

unless ( $ARGV ) {
print "\n Sintax : $0 <image>\n";
}
else {

my $your_key = "YOURKEY"; #Your API Key

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

my ...

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

«UAV::Pilot es una biblioteca Perl para controlar Vehículos Aéreos Autónomos. Actualmente funciona con el drone Parrot AR.Drone, y hay planes para funcionar con otros.



La biblioteca actual soporta una serie de comandos básicos, como despegue, inclinación, voltear, acelerar verticalmente, aterrizar. También hay soporte para las figuras preprogramadas. La navegación y vídeo todavía no están soportadas.»

Artículo (en inglés)