[bcn-pm] regexp dinamico

[José Luis Pérez Diez]

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";}
}else {die "gracefully";}

if (my @valor = "123 56789 adios " =~ /(\d+)\s(\d+)\s(hola)/){
        foreach  my $g (@groups) {
                print $valor[$g-1], "\n";}
}else {die "gracefully";}
56789
123
hola
gracefully at foo.pl line 10.
$