¿Cómo puedo obtener perl grep? Realizo la expresión de expresión regular capturando

Question

Estoy tratando de capturar una subcadena usando la captura de expresiones regulares con grep obteniendo el contenido de (. *) En el siguiente código.

  @substring = grep /^test-results(.*)/,@$(array_reference); 

Esto no está funcionando ....

Answer 1

Probablemente la función map es un mejor ajuste para lo que quieres. Usted está buscando algo similar a la (no probado) siguiente código:

@substrings = map { /^test-results(.*)/ ? $1 :() } @{ $arrayref }; 

Answer 2

En el contexto de lista, un partido de expresiones regulares devuelve una lista de lo que sus capturas igualados, así que todo lo que necesita es:

@substrings = map /^test-results(.*)/, @$array;