regex - Perl 匹配只返回 "1"。 bool 人？为什么？

Question

这必须是显而易见的，但我只是没有看到。

我有一个包含数千条记录的文档，如下所示:

Row:1 DATA:
[0]37755442
[1]DDG00000010
[2]FALLS
[3]IMAGE
[4]Defect
[5]3
[6]CLOSED

我已经设法将每条记录分开，现在我正在尝试解析每个字段。

我正在尝试匹配编号的标题，以便我可以提取成功的数据，但问题是我的匹配项仅在成功时返回“1”，如果不成功则返回“1”。我尝试申请的任何比赛都会发生这种情况。

例如，应用于每条记录中的一个简单单词:

my($foo) = $record=~ /Defect/;
print STDOUT $foo;

如果每条记录包含“缺陷”，则为每条记录打印“1”，如果包含其他内容则不打印。

或者:

$record =~ /Defect/;
print STDOUT $1;

完全不打印。

$record =~ s/Defect/Blefect/

另一方面，将完美地用“Blefect”替换“Defect”。

我真的很困惑为什么我的比赛的返回如此糟糕。
任何帮助将非常感激。

Answer 1

您需要使用捕获括号来实际捕获:

if ($record =~ /(Defect)/ ) {
    print "$1\n";
}