Foro - Perl en Español

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)

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.

Traducción a Perl del programa hecho por $DoC llamado AnonFiles Uploader hecho para subir archivos a la página AnonFiles.


#!usr/bin/perl
#AnonFiles Uploader
#Original author: $ DoC
#Translations made 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);

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

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

Estoy intentando instalar el módulo shodan en Windows pero después de instalar todo lo necesario el script me devuelve este error:
common/sense.pm did not return a true value at C:/Perl/lib/JSON/XS.pm line 104
<DATA> line 461.
BEGIN failed--compilation aborted at C:/Perl/lib/JSON/XS.pm line 104, <DATA> l
e 461.

¿ Qué tengo que hacer para que ande ?