¿Puedo usar grupos con nombre en una expresión regular de Perl para obtener los resultados en un hash?

Question

¿Es posible realizar una coincidencia de grupo con nombre en la sintaxis de expresiones regulares de Perl como con la de Python? Siempre vinculo los valores $n a los nombres propios después de la coincidencia, por lo que me parece más conveniente hacerlo en la expresión regular si es posible.

Python lo hace así:

>>> import re 
>>> regex = re.compile(r'(?P<count>\d+)') 
>>> match = regex.match('42') 
>>> print match.groupdict() 
{'count': '42'} 

Sé que el ?P indica que se trata de una característica de expresiones regulares en Python específica, pero espero que es en Perl de una manera diferente o se añadió más tarde. ¿Hay alguna forma de obtener un hash de resultados de manera similar en Perl?

Answer 1

Perl usa (?<NAME>pattern) para especificar las capturas de nombres. Tienes que usar el hash %+ para recuperarlos.

$variable =~ /(?<count>\d+)/; 
print "Count is $+{count}"; 

Esto solo es compatible con Perl 5.10 y versiones posteriores.

Answer 2

AFIK PCRE ha llamado grupo de captura como:

(?'NAME'pattern) 
(?<NAME>pattern) 

Puede encontrar información here.

Answer 3

A partir de Perl 5.10, las expresiones regulares de Perl admiten some Python features, lo que las convierte en expresiones regulares compatibles con Python, supongo. Las versiones de Python tienen la "P" en ellas, pero todas funcionan en Perl 5.10. Consulte la documentación de perlre para obtener más información:

Defina un búfer de captura con nombre. Equivalente a (?<NAME>pattern).

(?P<NAME>pattern) 

Referencia reversa a un buffer de captura nombrado. Equivalente a \g{NAME}.

(?P=NAME) 

Subrutina llamada a un buffer de captura con nombre. Equivalente a (?&NAME).

(?P>NAME) 

Aunque no añadí el Python-compatibilidad con la última edición de Learning Perl, nosotros cubrimos los nuevos Perl 5.10 características, incluyendo capturas con nombre.

Answer 4

Como mucha gente dijo que perl 5.10 ha nombrado grupos.

Pero en perlas anteriores se puede hacer algo, no es tan conveniente, pero relativamente agradable:

my %hash; 
@hash{"count", "something_else"} = $string =~ /(\d+)\s*,\s*(\S+)/; 

y luego se puede utilizar:

$ picadillo { "recuento"} y $ picadillo {" algo más"}.