Perl pos 函数
描述
此函数用于查找最后匹配的子字符串的偏移量或位置。 如果指定了 SCALAR，它将返回该标量变量上最后一个匹配项的偏移量。
你也可以给这个函数赋值（例如，pos($foo) = 20;），以改变下一个匹配操作的起点。
偏移量是从第零位开始的计数器。
语法
以下是此函数的简单语法 −
pos EXPR pos
返回值
此函数在标量上下文中返回整数，然后在列表上下文中返回正则表达式中所有匹配项的位置。
示例
以下是显示其基本用法的示例代码 −
#!/usr/bin/perl -w
$name = "This is alpha beta gamma";
$name =~ m/alpha/g;
print("pos() ", pos($name), "\n");
执行上述代码时，会产生以下结果 −
pos() 13
