-rwxr-xr-x 1 root root 5236084 2008-10-02 10:26 /usr/bin/php5
-rwxr-xr-x 2 root root 1241148 2010-11-02 11:04 /usr/bin/perl
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
El día de hoy me decidí comenzar a aprender a programar Perl, la verdad es que es un lenguaje super 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 escáner de imágenes, que saca todas las imágenes de un código HTML o PHP que especifiques, y te devuelve la URL.
Using perl Syntax Highlighting
- #!/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";
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y ahí lo tienen. No es la gran cosa, pero igual me siento orgulloso de saber un poquito de otro lenguaje más
. Si tienen algo que mejorarle; alguna duda o cosas por el estilo, avísenme 
.Saludos ^^
