¡Hola!

El día de hoy me decidí comenzar a aprender a programar Perl, la verdad es que es un lenguaje súper sencillo, es casi idéntico al PHP, solo se diferencia en unas pocas funciones o métodos.

Como mi primer script, se me ocurrió hacer un scanner de imágenes, que saca todas las imágenes de un código HTML o PHP que especifiques, y te devuelve la URL.

#!/usr/bin/perl -w

use LWP::UserAgent;

if(!$ARGV[0])
{
print "[ERROR] Debes especificar una web.\n";
}
else
{
print "[...] Escaneando [",$ARGV[0],"] por favor espere.\n\n";

$robot = LWP::UserAgent->new();
$robot->agent('Warlox ImageScanner');
$pagina = $robot->get($ARGV[0]);

# Búsqueda de imágenes JPG
print "*---------------------------------------------------------------*\n";
print "Imágenes JPG encontradas:\n";
if(@imagenesJPG = ($pagina->content =~ m/src="([^<>]+)\.jpg"/g))
{
foreach $imagen(@imagenesJPG)
{
   print "- ",$ARGV[0],"/",$imagen,".jpg\n";
}
}
else
{
print "- [ERROR] No se han encontrado imágenes JPG en el documento.\n";
}
print "*---------------------------------------------------------------*\n";
}
Y ahí lo tienen. No es la gran cosa, pero igual me siento orgulloso de saber un poquito de otro lenguaje más .
Saludos ^^

Cita de Wikipedia:

Perl es un lenguaje de programación diseñado por Larry Wall en 1987. Perl toma características del lenguaje C, del lenguaje interpretado shell (sh), AWK, sed, Lisp y, en un grado inferior, de muchos otros lenguajes de programación.

Estructuralmente, Perl está basado en un estilo de bloques como los del C o AWK, y fue ampliamente adoptado por su destreza en el procesado de texto y no tener ninguna de las limitaciones de los otros lenguajes de script.

Vale, sobre cómo hacer para que funcione; si usas linux, creas el archivo "nombre.pl", luego, desde la terminal simplemente ejecutas el código de la siguiente manera: perl nombre.pl y listo, el programa se ejecutará en terminal.

Ahora, en Windows no sé como ponerlo a funcionar, pero de igual manera puedes buscar en Google
Saludos ^^