Как проверить, определен ли захват в соответствии с регулярным выражением Perl?

Question

Как проверить, определен ли захват в соответствии с регулярным выражением Perl?

#!/usr/bin/env perl
use v5.10;
my $str="foobar
barfoo";

while($str =~ m/(?:(f.*))|(?:(b.*))/g) {
    say "+ $1";
    say "- $2";
}

выводит

+ foobar
- 
+ 
- barfoo

пока я хочу

+ foobar
- barfoo

т.е. если $1 или $2 не совпадают, оно не должно печататься.

Answer 1

Дело в том, что вы не тестируете, если он определен, поэтому он будет печатать +/- в любом случае.

while($str =~ m/(?:(f.*))|(?:(b.*))/g) {
    say "+ $1" if defined($1);
    say "- $2" if defined($2);
}

Answer 2

Используйте функцию defined(...). Если $1 не определено, то defined($1) вернет false.

Answer 3

Лучше не полагаться на побочные эффекты настройки $1 и друзей. Как вы продемонстрировали, это является причиной семейства ошибок, и его следует избегать. Вместо этого просто используйте возвращаемые значения из оператора сопоставления.

while(my ($plus, $minus) = $str =~ m/(?:(f.*))|(?:(b.*))/g) {
    say "+ $plus";
    say "- $minus";