Nasıl perl grep yapabilirim regex ifadesini gerçekleştirme

Question

Aşağıdaki kodda (. *) Içeriğini alarak grep ile normal ifadeyi kullanarak bir alt yazı yakalamaya çalışıyorum.

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

Bu işe yaramıyor ....

Answer 1

Muhtemelen map işlevi daha iyi bir uyum istediğini içindir. Aşağıdaki (denenmemiş) koduna benzer bir şey arıyoruz: Liste bağlamda

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

Answer 2

, regex maç böylece tüm ihtiyaç vardır, onun yakalar eşleşti ne bir listesini verir:

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