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.

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.

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.