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