[bcn-pm] regexp dinamico

[Xavier Noria]

On Jul 6, 2007, at 1:07 PM, José Luis Pérez Diez wrote:

> On Friday 06 July 2007 12:04, Xavier Pegenaute wrote:
>> Creo que me gusta más la solución que he encontrado, aunque esta  
>> me la
>> apunto, nunca se sabe.
>
> Yo prefiero evitar los eval.  En este caso seria como tener el  
> fichero de
> configuracion en formato perl ( array de hases) y cargarlo con un  
> require
>
> Mira si esta  solucion te gusta mas (basada en la de fnx):
>
> $ cat foo.pl;perl foo.pl
> use strict;
> use warnings;
>
> my @groups = '$2:$1:$3' =~ /\d/g; # extract digits
> if (my @valor = "123 56789 hola" =~ /(\d+)\s(\d+)\s(hola)/){
>         foreach my $g (@groups) {
>                 print $valor[$g-1], "\n";}

Esta solucion es la que me gusta mas de las tres.

-- fxn