Perl如何将正则表达式传递给我的子程序，如grep

Question

print grep /test/, "mytestphrase";

使用 grep 语法，您可以传入不带引号的正则表达式。我希望我的子程序具有相同的行为，如下所示：

use strict; 
use warnings;

sub testsub {
    my $regex = shift;
    my $phrase = shift;

    print grep $regex, $phrase;
}

testsub /test/, "mytestphrase";

但是它在 testsub 调用之前尝试$_对我的正则表达式进行评估，发出以下错误：

Use of uninitialized value $_ in pattern match (m//) at ./a.pl line 14.

是否可以像 grep 命令一样调用 testsub 以及如何修改子例程以支持它？

Answer 1

像这样传递参数：

testsub qr/test/, "mytestphrase";

也改变了$regexto 的使用/$regex/：

#!/usr/bin/perl

use strict; 
use warnings;

sub testsub {
    my $regex = shift;
    my $phrase = shift;
    print grep /$regex/, $phrase;
}

testsub qr/test/, "mytestphrase";