Foro - Perl en Español

Hice este simple script para buscar y bajar música.

El código:

#!usr/bin/perl
#MP3 Downloader 0.1
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);
use Time::HiRes "usleep";

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 $se = "downloads_mp3";

unless ( -d $se ) {
mkdir( $se, "777" );
}

chdir $se;

head();

print " Song : ";
chomp( my $song = <stdin> );

$song =~ ...

«Yo soy más fan del desarrollo de iOS en objective-C y de sus apps,tweaks,etc,por eso no ven que hable mucho de android en Tiempo de Tux,ni de su desarrollo de apps nativas con eclipse ni de roms,root,apps,etc pero si los conozco y de hecho uso android desde el tmobile G1 competencia del iPhone 2g(qué tiempos), pero ya desde antes era usuario de iOS así que ya estaba amarrado a...»

Artículo

Un simple script para bajar los iconos que quieran. Los iconos bajados se guardan en un carpeta con el nombre buscado.


#!usr/bin/perl
#FindIcons 0.1
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);
use Time::HiRes "usleep";

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);

head();

print " Search : ";
chomp( my $se = <stdin> );

$se =~ s/ /-/;

my $code = toma( "http://findicons.com/search/" ...

«Empecé a aprender Perl hace poquito. Esto fue una buena excusa para practicar un poco. Para probar el script hay que salvarlo a un fichero, por ejemplo, cesar.pl, darle permisos de ejecución, y escribir en línea de comandos: ./cesar.pl texto_que_van_a_cifrar desplazamiento»

Artículo

Lo mismo que el otro buscador pero esta vez para CS 1.6

El código


#!usr/bin/perl
#Counter Strike 1.6 Servers List
#Version 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

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 @founds;
my @founds_final;

head();

print " Pages (1-899) : ";
chomp( my $pag = <stdin> );

print "\n\n Searching Servers ....\n";

for my ...

Este script se encarga de buscar servidores del juego Half Life para entrar y jugar. Los resultados se guardan en un archivo de texto.

El código


#!usr/bin/perl
#Half Life Servers List 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

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 @founds;
my @founds_final;

head();

print " Searching Servers ....\n";

for my $count ( ...

«Como saben,si son lectores del blog soy autodidacta,o si no saben soy autodidacta,lo que pasa es que al ser autodidacta se requiere información para estudiar y aprender ¿pero de donde viene esta información? como yo he dicho y es la verdad para mi en lo que he visto ,uno aprende lo que le enseñan y si el maestro no es bueno el alumno tampoco(a lo mejor si nunca se sabe),pero...»

Artículo

Un simple keylogger en Perl con las siguientes opciones :

Capturar teclas reconociendo mayusculas y minusculas asi como signos
Capturar ventanas activas
Capturar el escritorio de windows cada cierto tiempo o cada click del mouse
Oculta archivos relacionados al programa
Compresion de los logs a zip
Logs ordenados en un archivo HTML
Subir logs a un servidor FTP marcado
Ejecutarse cuando se inicie Windows

Una imagen del ...

«En nuestro anterior artículo hemos visto cómo podemos procesar un fichero en formato XML con el módulo CPAN XML::Simple.

Sin embargo, este módulo lee el fichero entero en memoria, por lo que no resulta adecuado cuando el fichero a procesar es muy grande y los recursos de memoria RAM de que disponemos son limitados.

En su lugar, podemos utilizar el módulo XML::Parse::PerlSAX (SAX: Simple API for XML). Conforme se va leyendo el fichero, este módulo ...

«El módulo XML::Simple que comentamos en este artículo puede ser el más adecuado para los casos más sencillos, en los que necesitamos leer o generar un fichero de pequeño tamaño que no hace uso de características avanzadas del formato XML.»

Artículo