Sig: Ejecución de Código dentro Sup: Algunas Extensiones Ant: Cuantificadores Posesivos Err: Si hallas una errata ...

Perl 5.10: Numeración de los Grupos en Alternativas

A veces conviene tener una forma de acceso uniforme a la lista proporcionada por los paréntesis con memoria. Por ejemplo, la siguiente expresión regular reconoce el lenguaje de las horas en notaciones civil y militar:

pl@nereida:~/Lperltesting$ perl5.10.1 -wde 0
main::(-e:1):   0
  DB<1> '23:12' =~ /(\d\d|\d):(\d\d)|(\d\d)(\d\d)/; print "1->$1 2->$2\n"
1->23 2->12

  DB<2> '2312' =~ /(\d\d|\d):(\d\d)|(\d\d)(\d\d)/; print "3->$3 4->$4\n"
3->23 4->12

Parece inconveniente tener los resultados en variables distintas. El constructo (?| ...) hace que los paréntesis se enumeren relativos a las alternativas:

  DB<3> '2312' =~ /(?|(\d\d|\d):(\d\d)|(\d\d)(\d\d))/; print "1->$1 2->$2\n"
1->23 2->12

  DB<4> '23:12' =~ /(?|(\d\d|\d):(\d\d)|(\d\d)(\d\d))/; print "1->$1 2->$2\n"
1->23 2->12

Ahora en ambos casos $1 y $2 contienen las horas y minutos.

Sig: Ejecución de Código dentro Sup: Algunas Extensiones Ant: Cuantificadores Posesivos Err: Si hallas una errata ...