Foro - Perl en Español

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 ?

En el siguiente ejemplo se ve cómo llamo a un telnet desde Perl:

En mi caso utilizo el telnet para leer en una RN-XV de Roving, y leo el estado de los puertos digitales y también del analógico. Podría hacerlo también con el comando GET de PHP de la tarjeta, pero así utilizo el mismo proceso para escribir y para leer en la RN-XV.

Artículo

«A continuación pongo el programa con el que leo el puerto serie al que tengo conectado mi Arduino micro. En el mensaje sobre Arduino, podéis ver el programa con el que envío los datos que luego leo aquí.»

Artículo