regex - 'if' 语句中的 Perl 正则表达式 [语法]

Question

到目前为止，如果我想在一个 if 语句中将几个正则表达式组合在一起，我是这样做的:

my $data =...
if ($data =~ m/regex/ && $data =~ m/secondregex/) {...}

是否有快捷方式(我确定有；它是 Perl!)以避免重复 $data，例如:

if ($data =~ m/regex/ && m/secondregex/) {..}

??

Answer 1

使用默认变量 $_像这样:

$_ = $data;
if ( m/regex/ && m/secondregex/ ) {..}

因为正则表达式作用于 $_默认情况下(就像 Perl 中的许多其他东西一样)。

只需确保您不在 $_ 自动填充的块中，您将需要在此块中稍后使用它。一旦覆盖它就消失了。