Foro - Perl en Español

Saludos. Soy nuevo en esto del Perl y mi duda es muy básica. Tengo dos archivos.
Archivo 1:
8=50=50356536
6=50=49351358
7=50=709286
5=50=702400
8=54=390078008
6=54=629567679
7=54=67566209
5=54=84824766
8=56=347390
6=56=153975
7=56=2890
5=56=2196
8=58=413916
etc, número de líneas.

Archivo 2
10932=189.209.208.161=9=1=1=Componente3
189.209.208.161=50=1=1=Componente2
etc, etc, etc, número de líneas.

Mi pregunta es cómo comparo el segundo archivo en el campo con el primer archivo, en su campo , para tener un tercer archivo donde muestre lo encontrado en ...

Hola. Estoy usando WWW::Mechanize para hacer varias peticiones a distintas web pero hay algunas web
que son inexistentes y me tira:

Error GETing http://127.0.0.1///images//images: Not Found at

use WWW::Mechanize;
use HTTP::Response;

my $new = WWW::Mechanize->new();
$new->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");

open (FILE,"yeah.txt");
@webs = <FILE>
close FILE;

for(@webs) {
cara($_);
}

sub cara {
return $new->get($_)->content;
}

¿No hay alguna forma de evitar el error y seguir el script ...

Hola.

Estoy intentando enviar datos (hexadecimales) desde un microcontrolador conectado a un dispositivo (Digione SP) por una entrada serie. Este dispositivo tiene una salida ethernet la cual está conectada a un enrutador que le asigna una IP.

En un servidor conectado al enrutador tengo el siguiente código para crear un socket TCP que quede escuchando.

#!/usr/bin/perl -w
use IO::Socket;

my $server = IO::Socket::INET->new(
Proto => 'tcp',
LocalPort => 5800,
Listen => 1,
Reuse => ...

Hola a todos.

¿Alguien sabe cómo calcular un hash (sha-1) de un fichero? Por ejemplo, de un ejecutable del sistema (.exe).

Muchas gracias.

Un saludo,
Ricar.

Hace unos días comencé con Perl, y hace un rato decidí hacer una calculadora simple. Acá van extractos del código:
$numero1 = <>;
$operador = <>;
$numero2 = <>;

if ($operador == "+") {
$total = ($numero1 + $numero2);
print "$total\n";
}
if ($operador == "-") {
$total = ($numero1 - $numero2);
print "$total\n";
}

El output me da la salida de todos los if(), siempre entra en todos los if() y no logro ...

Hola. Tengo que hacer un script en Perl que pase unas 50 pruebas y una de ellas es que al darle una opción (-HZ) comprobar si existe un histórico y si existe, borrarlo; sino, decir que no existe y la siguiente prueba es darle la misma opción y que te compruebe que el histórico ya ha sido borrado antes y que por lo tanto compruebe directamente que ya no existe. Eso más o menos lo ...

Buenas a todos. Estoy realizando un cgi y éste recibe dos parámetros, uno máximo y otro mínimo.

Quisiera dibujar con algún módulo de Perl una barra de progreso (estática, no avanza con el tiempo) la cual pinto rellenada la cantidad que me dice en la variable mínimo, he estado mirando por CPAN y Google y lo más parecido que he visto es el módulo GD::3DBarGrapher el cual ya he usado para crear gráficas en un ...

«Hoy traigo un script en Perl que vigila la red en busca de nuevos hosts o de ataques de ARP spoofing (buscando cambios en la tabla arp). El nombre, Sniperlcat es (obviamente) una mezcla entre snipercat y Perl, lenguaje en el que está programado.»

Artículo

«Hola, siguiendo el hilo de los comentarios a la entrada anterior de Álvaro, hoy pongo un ejemplo de como incluir una o más subrutinas escritas en C dentro de un texto en Perl, recurriendo al módulo Inline:»

Artículo

«Erróneamente decimos que queremos generar todas las posibles 'combinaciones' de n letras, nucleótidos o aminoácidos cuando el término correcto sería 'permutaciones con repetición' (Combinations & permutations). Por ejemplo, las 16 posibles permutaciones con repetición de 2 nucleótidos serían: AA, AC, AG, AT, CA, CC, CG, CT, GA, GC, GG, GT, TA, TC, TG, TT. El número de permutaciones con repetición de n nucleótidos es 4^n y de n aminoácidos 20^n.»

Artículo