[bcn-pm] regexp dinamico
Xavier Noria
fxnahashref.com
Div Jul 6 04:33:52 PDT 2007
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
Més informació de la llista de correu Barcelona-pm