Foro - Perl en Español

Ya comenzó el Calendario de Adviento de Perl Dancer 2012 (en inglés).

«Como decía el otro día, necesito un programa que calcule distancias entre ciudades. No puedo ir a GOOGLE MAPS y hacerlo a mano porque hablamos de una tabla completa.

Hoy vamos a utilizar Perl.»

Artículo

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 ...