Para la instalación de librerías se utiliza CPAN, que es una colección de módulos libres para Perl. Pueden descargar este script o sino instalarlo desde los repositorios, por ejemplo, en un Linux basado en Debian basta correr:

aptitude install cpanminus

Una vez instalado, para instalar módulos deben correr desde la consola el siguiente comando (teniendo en cuenta que el nombre del módulo es case-sensitive):

cpan install Modulo

Variables
Perl maneja tres tipos de variables:

• Scalar
• Array
• Hash

Scalar
Las variables escalares representan un valor simple. Los valores escalares pueden ser cadenas, enteros o números de coma flotante y se definen anteponiendo el signo $ al nombre de la variable.
No hay necesidad de pre-declarar sus tipos de variables , Perl los convertirá automáticamente entre ellos según sea necesario.

my $animal = "tortuga";
my $answer = 42;

Array
Las variables de tipo Array representan una lista de valores. Se declaran anteponiendo el signo @ al nombre de la variable

my @animals = ("turtle", "llama", "cat");
my @numbers = (23, 42, 69);
my @mixed   = ("whale", 666, 1.23);

Los Arrays son indexados a cero. Se puede acceder a los valores de la siguiente manera:

print $animals[0];              # imprime "turtle". Se utiliza $ porque es un valor scalar
print $animals[1];              # imprime "llama"

La variable especial $#nombrearray nos indica el índice del último elemento.

print $#mixed;                # imprime 2
print $mixed[$#mixed];        # último elemento, imprime 1.23

Si utilizamos @mixed en contexto escalar, obtendremos el tamaño de nuestro Array:

$arrayLength = @mixed;
print $arraylength;            #imprime 3

Para obtener múltiples valores de nuestro Array:

@animals[0,1];           # Devuelve ("turtle", "llama"), @ porque devuelve un array;
@animals[0..2];          # Devuelve ("turtle", "llama", "cat");
@animals[1..$#animals];  # Devuelve todo excepto el primer elemento

Hash
Un hash representa un conjunto de pares clave / valor. En realidad hash son tipo de Arrays, con la excepción de que el índice puede ser un número o una cadena. Están precedidos por el signo % de la siguiente manera:

my %fruta_color = ("manzana", "rojo", "banana", "amarillo");

Se pueden utilizar los espacios en blanco y el operador => para dejarlo mas claro:

my %fruta_color = (
    manzana => "red",
    banana => "amarillo",
);

Para obtener un elemento del hash:

$fruta_color{"manzana"}       # Devuelve "rojo"

Podemos obtener una lista con las claves o valores con las funciones predefinidas keys() y values():

my @frutas = keys(%fruta_color);
my colores = values(%fruta_color);

Alcance de las variables

En la sección anterior declaramos:

my $animal = "tortuga";

El modificador my no es necesario, también se puede usar:

$animal = "tortuga";

Sin embargo, el uso anterior creará variables globales a través de su programa, que es mala práctica de programación. my crea variables con ámbito local. Las variables locales están disponibles en el ámbito del bloque (es decir, un grupo de estados rodeadas de llaves) en el que están definidos.

my $x = "foo";
my $condicion = 1;
if ($condicion) {
    my $y = "bar";
    print $x;           # imprime "foo"
    print $y;           # imprime "bar"
}
print $x;               # imprime "foo"
print $y;               # no imprime nada ; $y no está en ese scope

Tabla de conversiones de tipos

Sintaxis básica
if, elsif, else, unless

# La sintaxis es muy similar a otros lenguajes
if ($var == 3) {
  do_magic();
}

# unless se usa para un if negativo
if (!$var) {
  do_magic();
}
unless ($var) {
  do_magic();
}

# Por supuesto también existe else
if ($var) {
    do_magic();
} else {
   do_another_magic();
}
# y se pueden anidar
if ($var) {
   do_magic();
} elsif ($another_var) {
   do_another_magic();
} else {
   do_something_else();
}

while, do while, until

my $counter = 10;
 
while ($counter > 0) {
   say $counter;
   $counter -= 1;
}

do {
  say $counter;
  $counter += 1;
} while ($counter < 10);


until( $counter > 20 ){
   say "$counter";
   $counter += 1;
}

say 'tadaaa';

for, for each

# for ( init; condition; increment )
for( $i = 1; $i < 20; $i = $i + 1 ){
    print "value: $i\n";
}

my @list = (1, 20, 33, 45, 59);
foreach $i (@list){
    say '$i';
}

Funciones
En realidad las funciones son subrutinas, quizás sea porque el lenguaje es viejo :P … la sintáxis es también bastante común.

sub name{
   # blablabla
   return $x;
}

Para pasar parámetros se hace de esta forma

sub TestScalar{
   my $x = @_;      #parámetro scalar 
   # blabla
}
sub TestArray{
   my @list = @_;   #parámetro array
   # blabla
}
sub TestHash {
   my (%hash) = @_; #parámetro hash
   # blabla
}

# Si esperamos varios parámetros, se pueden acceder desde la variable @_ como un array
sub TestScalar{
   my $x = @_[0]; 
   my $y = @_[1]; 
   # blabla
}

Variables privadas

sub TestPrivateVars{
   my $var; # inaccesible fuera de TestPrivateVars()
   $varx;   # accesible fuera de TestPrivateVars(), no hacerlo

   my ($another, @my_array, %my_hash); # declaración múltiple privada
}

TDD con Perl

Para hacer TDD en necesario bajar un paquete de CPAN, Test::More.
Acá un ejemplo de como correr un test, sobre una función específica.

# En esta línea declaramos el uso de Test::More
# y le decimos que solo se corre una vez
use Test::More test => 1;

# is() es la función que ejecuta el test, consta de 3 parámetros
# 1ro función a ejecutar con sus respectivos parámetros
# 2do resultado esperado
# 3ro nombre descriptivo
is(replace("hola"), "chau", "Reemplazo de nombres");
is(replace("chay"), "chau", "Reemplazo de nombres");

# Esta es la función que se ejecuta
sub replace( my ($text) = @_;
    $text =~ s/\bhola\b/chau/gi;
    return $text;
}

#Con esta función declaramos el fin del testing
done_testing()

Próximo post: Expresiones regulares en Perl. O sea: Perl.

Selectores básicos

$("#idName")          // Por id
  $(".className")       // Por clase

  $(document)           // DOM (Document Object Model)
  $(window)             // DOM + imágenes + iframes

  $("*")                // todos los elementos
  $("div.title")        // 
 
  $("div:first")        // Primer div

  $("article h1")       // Todos los h1 dentro de article
  $("article > h1")     // Todos los h1 hijos directo de article

  $("[href]")           // Todos los elementos que tengan href
  $("li:nth-child(n)")  // El elmento n - *cuenta desde 1*

  $("tr:even")          // TableRows pares	
  $("p:hidden")         // Todos los 
 ocultos (con .hide())

Selectores “avanzados”

$(":input")           // Todos los inputs
  $(":text")                 // Todos los elementos type="text"
  $(":checked")              // Todos los elementos chequeados
  $(":focus")                // Todos los elementos que tengan foco

  $("[href='index.html']")   // href que sean igual a index.html
  $("[href!='index.html']")  // href que no sean igual a "index.html"
  $("[href$='.html']")       // href que terminen en ".html"
  $("[href^='https://']")    // href que empiezen en "https://"
  $("[href*='cuenta']")      // href que contengan "cuenta"

  $("#nav ul li:first-child")   // Primer li dentro de un/los ul que estén dentro de #nav

Traversing

$("#nav ul:first li:eq(2)")   // 3er li, dentro del 1er ul que esté en #nav *inicia en 0*
  $("#nav ul:eq(0) li:eq(-1)")  // Último li, dentro del 1er ul que esté en #nav
  $("#nav ul li:gt(2)")         // Los li que tengan un index mayor a 2
  $("#nav ul li:lt(2)")         // Los li que tengan un index menor a 2

  $("#post").not("p")           // Todos los elementos que no sean 

  $("#nav ul li").not(":even")  // Todos los li que no sean pares
  $("#nav ul").children(":contains('Simulador')")   // .children() busca todos los hijos del elemento, :contains() filtra por texto
  $("#nav ul li p").parent(".active") // Selecciona el li que tenga un p activo
  
  $( "#nav ul li" ).each(function( index ) { 
      console.log( index + ": " + $( this ).text() );
  });

  if ( $("#nav").is("div") ) { ... }    

  // Otras opciones:
  // .end() .find() .first() .last() .has() .next() .nextAll() .prev() .prevAll() ...
  // https://api.jquery.com/category/traversing/

Pueden descargarlo desde GitHub o ver un ejemplo del funcionamiento desde esta demo

El uso básico es el siguiente, solo deben pasarle un listado de palabras a mostrar, ya incluye algunas por defecto (wow, so doge y asi):

$(document).ready( function() {
   // Create an array with some words
   $('body').doge({ 
       wordList : ["such page", "lorem impsum", "so cool", "much jquery", "kitten", "such demo", "Kitten Ipsum"]
   });
});

También se puede parametrizar un poco, con estas opciones:

$(document).ready( function() {
   $('body').doge({ 
       wordList : ["such page", "lorem impsum", "so cool", "much jquery", "text", "such demo", "Kitten Ipsum"],
       showDoge : true,
       fontSize : "2em",
       fontBorder: true,
       dogeImage : "doge.png",
       colours : ["red", "green", "orange", "violet", "aqua", "yellow", "slateblue", "purple", "pink", "lime", "fuchsia", "gold", "indigo"],
       textDuration: 1200,
       textRespawn: 1000,       
   });
});

Se podría imponer un sistema de puntos, que te descuenten por:

• Hablar: 3 puntos
• Hablar por teléfono: 5 puntos.
• Spoilear: 10 puntos.
• Revolver el pochoclo: 1 punto.
• Abrir caramelos: 2 puntos.
• Tomar gaseosa cuando ya no hay nada: 2 puntos.
• Ir con un bebé: 5 puntos.

Al perder x cantidad de puntos, se te revoca la licencia por unos meses y para renovarla hay que hacer un curso.

No aseguraríamos que, al ir al cine, no renegaríamos con pelotudos que no saben comportarse

Para poder instalarlo, pueden bajarse los fuentes desde GitHub (es licencia Beer-ware, una adaptación de BSD) o mejor aún directamente desde PyPi:

sudo pip install pacmanprogressbar

La utilización es la siguiente (proximamente voy a hacer que se pueda iterar directamente):

#!/usr/bin/env python
import time
from pacmanprogressbar import Pacman

if __name__ == "__main__":
    p = Pacman(end=100)

    for x in range(p.len):
        p.update()
        time.sleep(.2)

Una vez instanciada la clase, tiene dos métodos públicos:

• update([value]), actualiza el progreso sumándole el valor del parámetro, por defecto suma 1.
• progress(value), en vez de sumarizar, se le pasa directamente el valor del progreso.

La salida en consola sería más o menos como esta:

#!/bin/bash
clear
mkdir temp_gif

segs=`expr $1 \* 5`

for (( i = 1; i <= $segs ; i++ ));
do
	printf -v number "%06d" $i
	import -window $WINDOWID temp_gif/$number.gif 
	sleep 0.2
done

convert -delay 20 -loop 0 temp_gif/*.gif animacion.gif

rm -R temp_gif

El código terminó siendo más simple de lo que pensaba, toda la magia la hace ImageMagick. Explico por línea, porque la idea siempre es aprender como funciona:
Línea 5. Toma el primer parámetro que le demos, lo multiplica por 5 porque cada imagen la saco cada 0.2 segundos
Línea 9. El printf lo utilizo para formatear &i, neceito hacer un zero-padding, o sea, rellenar con ceros a la izquierda, para que después el conversor me tome el orden correcto. El parámetro -v indica que no lo imprima, sino que lo almacene en una variable.
Línea 10. ImageMagick se encarga de guardar la imágen de la ventana que le digo, para $WINDOWSID creo que es necesario xorg-xwininfo, ya lo tenía instalado.
Línea 13. Toma todas las imágenes de la carpeta, las concatena con un delay de 0.2 segundos y hace un loop infinito.

Antes que nada gracias a todos los que fueron ayer a la charla de desarrollo de videojuegos y a la gente de UNI-CODE por la invitación. Les dejo algunos links que había prometido o temas que quedaron en el aire. Cualquier cosa avisen.

• Los slides están online acá, es recomendable verlo a pantalla completa (espero que el touchpad no los trollée como a mi).
• El código fuente de los slides está en GitHub. Usé CoderDeck porque me permitía correr código JS y modificarlo mientras daba la charla.
• Esta es la documentación de Crafty.
• Los componente extras de Crafty se pueden ver en este sitio. Inlcuso ahí está Craftyboilerplate y Flexpi
• Este sitio tiene el creador de polígonos, porque hacerlos a mano es muy denso.
• En un momento se comentó de un grupo de gente que se juntaba cada tanto pero nadie tenía demasiados datos, eran de IndieGameDev.
• Vayan preparándose para la GlobalGameJam

La charla es abierta para todos y está de más decir que es gratis, va a ser muy introductoria con algunos conceptos básicos. También se va a mostrar un framework, Crafty, para simplificar el desarrollo. Si bien está pensada para programadores, la idea es juntar gente con ganas, quien sabe, puede surgir algun proyecto entre las personas que asistan. Las ganas de muchos están, falta organizarnos.

Un libro que cambió mi vida
Es difícil decir que libro me cambió la vida, porque quizás todos en alguna medida lo hagan… pero, le tengo mucho cariño a La peste del francés Albert Camus porque fue uno de los primeros libros que recuerde haber agarrado por mi cuenta para leer por gusto.

Un libro que tuve que leer más de una vez
Si bien no soy muy amante de releer los libros, en algunos caso en particular, como en El Señor de los Anillos, puede leer el libro una y otra vez. También puedo agregar a la lista El extraño caso del doctor Jekyll y el señor Hyde de Robert Louis Stevenson, que si bien es una historia muy conocida, adaptada muchísimas veces y todos sabemos que pasa…está tan bien escrito el libro que se puede leer una y otra vez.
Obviamente esto no cuenta para libros que me vi obligado a empezar de nuevo por dejarlos un tiempo largo :P

Un libro que me llevaría a una isla desierta
La Biblia. Es grande y tiene muchas hojas, ideal para cuando escasee el papel higiénico. OOOOKKK. Un manual de supervivencia sería mi segunda opción, claro.

Un libro que me hizo reír
¡Uf! Muchísimos. Puedon nombrar la “Guía del autoestopista galáctico” de Douglas Adams o Discworld de Terry Pratchett pero voy a caer en la obviedad. Un libro que leí hace poco que me hizo reir mucho fue “Los Enanos Gullys” de Parkinson Dan, basado en la cosmogonía de Dragonlance. Una aventura épica que mezcla a la raza mas insulsa y a la más poderosa de todo Krynn. Un dragón (Verden) castigado por Takhisis tiene que defender a una tribu de enanos Gullys, en una combinación que no falla.

Un libro que me hizo llorar
No se si llorar, pero la Saga de Los Confines de Liliana Bodoc tiene momentos por demás tristes, la muerte de los personajes que mas se hacen querer es muy duro, por momentos mirás al libro y decís “¡Liliana basta de matar gente buena!”

Un libro que me hubiera gustado escribir
Idem al item anterior, una fantasía tokieana con referencias a las invasiones españolas en América, es una formula infalible.

Un libro que aborrezco
Cualquier libro que me obligaron a leer en el colegio entra en esta categoría, pero sobre todo: Juan Salvador Gaviota. Los libros de autoayuda y los de Coelho, el Arjona de la literatura, completan el podio.

Un libro que me decepcionó
No se si “decepción” sea la palabra, pero Los Pilares de la Tierra de Ken Follet me pareció un libro estúpidamente largo. Quizás un arquitecto lo aprecie más que un desarrollador de software. Y el final es lo más “meh” que leí. Curiosamente el post de dónde saqué la cadena habla del mismo libro… es que, es muy tedioso.

Un libro que estoy leyendo ahora
Ayer empecé El Silmarillón, pero lo dejé a los 5 minutos porque la edición es vieja (tiene mi edad) y está impecable, me da cosa arruinarlo. Así que ahora estoy con las obras completas de H.P. Lovecraft.

Un libro que pretendo leer
Read all the books! La lista es larguísima… quisiera tener el tiempo suficiente.

#!/usr/bin/env python
# -*- coding: utf-8 -*-
import os
import random
from mpd import (MPDClient, CommandError)
from audioscrobbler import AudioScrobblerQuery

""" MPD """
mpd_host = 'localhost'
mpd_port = '6600'
mpd_connection = {'host': mpd_host, 'port': mpd_port}
client = MPDClient()

COUNT_SONGS = 5

def mpd_connect():
    try:
        client.connect(**mpd_connection)
    except SocketError:
        return False
    return True


def main():
    if not mpd_connect():
        sys.exit(1)

    # Meh, no se si se hace esto, pero bueh
    recommended_artists = []
    recommended_songs = []

    # Obtengo la cancion que esta sonando en este momento
    current = client.currentsong()

    # Saco sólo el artista del diccionario que me devuelve current
    current_artist = AudioScrobblerQuery(artist=current['artist'])

    # En base a todos los artistas similares, me fijo cuales tengo en el
    # server MPD, y los almaceno para usarlos despues.
    for artist in current_artist.similar():
        if float(client.count("artist", artist.name)['songs']) > 0:
            recommended_artists.append(artist.name)


    # Podria hacerlo mas efectivo, pero la idea es hacerlo lo mas random que
    # pueda, asi que desordeno la lista de similares, que siempre viene ya
    # ordenada por compatibilidad del current_artist
    random.shuffle(recommended_artists)

    while len(recommended_songs) < COUNT_SONGS:
        artist = random.choice(recommended_artists)
        recommended_songs.append(
                    random.choice(client.search('artist', artist)))

    for song in recommended_songs:
        print song["artist"], "-", song["title"]
        client.add(song["file"])

if __name__ == '__main__':
    main()

Descarga desde aca: GIST, seguramente la iré modificando, la idea es dejarla corriendo como un servicio.

Si bien al inicio estuve en contra de la banda porque era una copia de Hevisaurus, una banda finlandesa, con el tiempo terminé aceptando que la idea llevada al español era muy buena.
Con sólo mirarlos se destacan, es una fucking banda de dinosaurios que tocan heavy metal. con letras orientadas a los chicos pero con música que puede disfrutar cualquiera.
HeavySaurios llega de la mano de Sony en Argentina para mostrarle a los más peques que no tiene que “tirarse un paso” ni aplaudir como imbéciles en los programas de Disney o Discovery Kids.

Cómo verán, la puesta en escena es muy atrayente, y los temas muy pegadizos. Uno de mis preferidos…

Hace falta un bot que busque los tweets de Foursquare y responda “WHO CARES?!”

— Commander Shepard (@MissFillys) July 3, 2012

Todo comenzó con ese tweet de @MissFillys y cómo estaba aburrido lo intenté hacer. Ante mi sorpresa fué mas simple de lo que pensaba. Primero deben registrar la aplicación en el área de desarrollo de Twitter, particularmente usé una cuenta nueva, porque seguro lo reportan como spam o algún tipo de violación a las políticas de Twitter y no quería que caiga mi cuenta también. Para interactuar con Twitter desde Python usé tweepy, una librería bastante completa, y sobre todo, muy simple de usar

Esto es lo necesario para conectarse, los datos de Costumer_Key y Access_Key los sacan cuando registran la aplicación. Bastante simple, con este código ya podemos interactuar con la API

#!/usr/bin/python
# -*- coding: utf-8 -*-

import tweepy

#Twitter information
CONSUMER_KEY = "AsdAsdDsa"
CONSUMER_SECRET="QwertrQWEREwtr"
ACCESS_KEY="Asdasd-qeq123123123"
ACCESS_SECRET="asdasd342-123213123wqeqweqw"

auth = tweepy.OAuthHandler(CONSUMER_KEY, CONSUMER_SECRET)
auth.set_access_token(ACCESS_KEY, ACCESS_SECRET)
API = tweepy.API(auth)

Para este caso, lo que hago es buscar en la public timeline. Como la librería no tiene implementada la búsqueda por source, no queda otra que traer los 20 resultados y validar si alguno viene desde desde Foursquare. Es un bucle bastante simple, en caso de que exista, se utiliza el método API.update_status() con el username, in_reply_to y algún texto que querramos ponerle.

...
public = API.public_timeline()
for tweet in public:
    if tweet.source =='foursquare':
	API.update_status( "@"+ tweet.author.screen_name + "WHO CARES?!" , tweet.id)

También pueden usar búsquedas más específicas. Por ejemplo, personas que hablan de Tinelli. Acá pueden sacar ayuda sobre cómo realizar búsquedas y acá pueden leer la documentación de la librería

...
assholes = API.search('Tinelli')
for tweet in assholes:
	API.update_status( "@"+ tweet.author.screen_name + "Se te está pudriendo el cerebro..." , tweet.id)

El código final quedó más o menos así, sólo necesitan ponerlo en un loop donde quieran. Quizás les sirva y puedan hacer algo interesante, como por ejemplo @pepperMaido

El sábado pasado fue el BarCampCBA en Córdoba, que dicho sea de paso salió excelente.
Aproveché la ocasión, sabiendo que el púbico era bastante heterogéneo para dar una charla sobre GNU/Linux y Software Libre, desde lo básico, sin caer en evangelizaciones. La idea era demostrar que cualquiera puede usar Linux, que las opciones de software satisfacen las necesidades de la mayoría e incluso que instalarlo es bastante sencillo. Salí bastante conforme, no me abuchearon jaja y aprendí de algunos errores que después corregiré.

Les dejo aca la charla, como no fue grabado ni trasmitida por streaming, sólo son las diapositivas. Algunas van a parecer medio colgadas, sin texto ni nada.

La presentación está hecha completamente con software libre. El framework que usé para los slides es impress.js, para mostrar las imágenes usé Really Simple™ Slideshow y después GIMP para editar detalles y gedit para escribir el código. Una vez que le agarrás la mano es bastante simple de hacer.
Si quieren el código fuente está subido a GitHub.

La instalación es simple (está en los repos o incluso ya instalada, en toda distribución que se jacte de ser tal), en fín, en Arch podrían hacer:

pacman -S --needed cronie

Al principio puede resultar extraña la configuracion de crontab, pero con el tiempo termina siendo más simple de lo que aparenta y se puede lograr cosas muy buenas de una forma muy sencilla.

Primero, tenemos 5 espacios para colocar los tiempos, que se dividen en minutos, horas, días del mes, meses y días de la semana; si alguno de estos datos no se rellena, se debe colocar un asterísco, que significa “todos” (para que sea entendible y hasta leíble). Después de eso se coloca la ruta completa del script que quieren que se ejecute en ese determinado lapso de tiempo.

En cualquier campo, asumiendo que ya entendimos los rangos de cada uno, podemos colocar tanto un valor específico, varios valores separados por coma o un rango separado por un guión. Por ejemplo:

#Se ejecuta a las 5 y a las 17 horas, en punto
0 5,17 * * * /home/jesus/Scripts/loquesea.sh

#Se ejecuta *desde* las 5, cada hora "en punto" *hasta* las 17hs.
0 5-17 * * * /home/jesus/Scripts/latigo.sh

#Similar al anterior, pero ejecuta cada minuto entre las 5 y las 17
#miren el primer valor, le estan dicieno "todos"
* 5,17 * * * echo "trabajen mas duro"
[/code]

¿Cómo ver las tareas pendientes en cron?
crontab -l lista las del usuario activo, para ver las de otro usuario, deben ejecutar crontab -u user -l

¿Cómo se modifican las tareas?
Con crontab -e se nos abre el archivo para modificar, con el editor que tengamos por defecto. Para cambiarlo debemos cambiar: export EDITOR=”/usr/bin/nano”. Como por defecto se abre con vi, por favor no toquen el teclado si no saben como funciona y llamen a un mayor responsable a cargo.
También pueden editar los archivos de otros usuarios, con contab -u user -e .

Ahora bien, aquí viene lo bueno jóven, algunos ejemplos:

#Cada 5 minutos
*/5 * * * * /home/xebuz/script/cada_cinco_minutos.sh

#Cada hora, de 8 a 18, de lunes a viernes
00 08-18 * * 1-5 /home/xebuz/script/laboral.sh

#Una vez cada mes y medio
* * */15 */1 * /home/xebuz/goldequilmes.sh

#Cada 4 años
* * * */48 * /home/xebuz/script/mundial.sh
[/code]

¿Muy engorroso para escribir? ¿Sos un lazy-sysadmin? Existen también algunos (llamémosle) alias, para agilizar la administración, són cómodos y reemplazan a todos los campos de tiempo, es decir, sólo deben poner el alias y despues el script.

Gracias, vuelva prontos.