lunes, 12 de mayo de 2008

Lo nuevo de Perl 5.10. 3: El operador smart match

El operador de coincidencia universal, ~~. El sueño hecho realidad del programador que quiere tener un código corto, limpio, claro.

Para los programadores de Perl, se nos convirtió en costumbre pensar la forma en la cual tenemos que saber cómo comparar dos elementos. Estamos acostumbrados a pensar en las múltiples formas, operadores y posibilidades de comparación entre elementos, comprobación y existencia de elementos dentro unos de otros, valores de retorno de las funciones, existencia de un elemento dentro de un array o hash.

Pero a su vez, esto es un problema para los que empiezan, que se sienten abrumados por la cantidad de operadores y nueva sintaxis que deben aprender.

Ahora no. Casi todas de estas operaciones se pueden realizar con el mismo operador.

Un ejemplo:
     if ( $a ~~ @b ) {

hará lo que sospechamos: devolverá verdadero si el elemento $a está dentro de @b, es decir, que alguno de los elementos de @b es igual a $a. Ya no hay que escribir un bucle para recorrer el array, en busca de ese elemento.

La siguiente tabla es un resumen de las combinaciones posibles:

    $a          $b          Tipo de coincidencia     Código similar
====== ===== ==================== ==============

Codigo[+] Codigo[+] igualdad referencial $a == $b
Cualquiera Código[+] test escalar de sub $b->($a)

Hash Hash claves hash idénticas [sort keys %$a]~~[sort keys %$b]
Hash Array existencia hash slice grep {exists $a->{$_}} @$b
Hash Regex filtrado claves hash grep /$b/, keys %$a
Hash Cualquiera existencia item hash exists $a->{$b}

Array Array arrays son idénticos[*]
Array Regex filtrado array grep /$b/, @$a
Array Número array contiene número grep $_ == $b, @$a
Array Cualquiera array contiene string grep $_ eq $b, @$a

Cualquiera undef indefinido !defined $a
Cualquiera Regex búsqueda del patrón $a =~ /$b/
Código() Código() resultados son iguales $a->() eq $b->()
Cualquiera Código() simple closure truth $b->() # ignoring $a
Número valor[!] igualdad numérica $a == $b
Cualquiera string igualdad de cadena $a eq $b
Cualquiera Número igualdad numérica $a == $b

Cualquiera Cualquiera igualdad de cadena $a eq $b

+ - debe ser una referencia a un código cuyo prototipo (si está presente) no sea ""
(sub con un prototipo "" son tratados en la entrada 'Código()' que está más abajo).
* - es decir, cada elemento coincide con el elemento del mismo índice en el otro
array. Si aparece una referencia circular, volvemos a la igualdad referencial.
! - Cualquier cosa, sea un número real o un string que parezca un número.


domingo, 4 de mayo de 2008

Lo nuevo de Perl 5.10. 2: El operador de definición

Se trata del operador //. La expresión
$a // $b
es equivalente a
defined $a ? $a : $b

Su uso principal será en la entrada de parámetros, en la que necesitamos saber si se le ha pasado un parámetro al programa o debemos tomar un valor por defecto.
my $parametro1 = $argumento1 // $valor_por_defecto1;

Como nota curiosa, decir que en algunas raras situaciones se podría confundir con una expresión regular vacía. Lo normal es que no nos encontremos nunca en esas situaciones. Para evitar confusiones, lo ideal es prefijar las expresiones regulares con m. Además, es una regla básica de las buenas prácticas de programación en Perl, así que entonces, no hay problemas.

sábado, 3 de mayo de 2008

Lo nuevo de Perl 5.10. 1: El pragma feature

Comenzamos aquí una serie de artículos sobre las novedades que trae la última versión estable de Perl, la v5.10, publicada en diciembre de 2007. Estarán basados en el documento perl5100delta.pod de la actual documentación de Perl v5.10.


El pragma feature

Este pragma se usa para activar la nueva sintaxis de esta versión. Se usa así para evitar problemas de compatibilidad con programas hechos para versiones de Perl anteriores.

Las nuevas features disponibles son say, switch y state que veremos próximamente.

Como otros pragmas, el efecto de las features solo estarán disponibles en el contexto o bloque en que se definen:
{
use feature 'say';
say "say está disponible aquí";
}
print "Pero no aquí.\n";

También se puede activar solicitando que el intérprete de Perl sea de una versión superior a la 5.9.5:
use 5.010;
que es, además, la forma recomendada para activar la nueva sintaxis.

Desde la línea de comandos, se podrá activar con la opción -E, en lugar de la anterior -e.

Más información en feature.