[bcn-pm] regexp dinamico
José Luis Pérez Diez
jluisaescomposlinux.org
Div Jul 6 04:07:59 PDT 2007
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.
$
Més informació de la llista de correu Barcelona-pm