Hacking del Doodle de Google usando Perl

Hoy cerca de las 4 de la tarde el doodle de atletismo se torno competitivo entre algunos compañeros de trabajo, por más esfuerzos que hice lo más que logré fueron 11.8 segundos, mientras otro logro 10.8, claramente los Nerds no estamos ni para correr con el teclado, así que me puse con perl a la obra, simplemente usando la librería X11::GUITest y este tonto código logré 4.2 segundos (por una falla con el doodle), de resto el promedio es de 9.8 a 10.6 segundos.

En debian y sin sufrir mucho:

aptitude install libx11-guitest-perl

#!/usr/bin/perl -w
use X11::GUITest qw/ PressReleaseKey /;
for my $stroke ( 1 .. 100000) {
PressReleaseKey(Right);
PressReleaseKey(Left); }

Listo.. JEJE

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

*