为什么 Perl pos() 总是返回 undef？

Question

Perl v5.26.3

我不明白为什么这不起作用。

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $var = "one two three four";
$var =~ m/three/i;
print $var . "\n";
print Dumper(pos($var));
print Dumper(@-);
print Dumper(@+);

我不明白为什么pos 总是返回undef，无论我尝试什么。这种情况下不应该和@+一样吗？

# Output from code
one two three four
$VAR1 = undef;
$VAR1 = 8;
$VAR1 = 13;

Answer 1

来自the documentation of pos：

返回上次 m//g 搜索停止的位置的偏移量...

您的代码中没有m//g。只有m//，没有/g 修饰符。添加后，pos 返回预期值。