perl - perlgrepに正規表現キャプチャを実行させるにはどうすればよいですか？

Question

以下のコードで（。*）のコンテンツを取得することにより、grepで正規表現キャプチャを使用してサブストリングをキャプチャしようとしています。

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

これは機能していません...

Answer 1

リストコンテキストでは、正規表現の一致は、そのキャプチャが一致したもののリストを返すため、必要なのは次のとおりです。

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

Answer 2

おそらく、map関数はあなたが望むものにより適しています。次の (テストされていない) コードに似たものを探しています。

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