Perl pos 函数

• 

  描述

  pos 此函数用于查找最后匹配的子字符串的偏移量或位置。如果指定了SCALAR，它将返回该标量变量上最后一个匹配项的偏移量。您也可以为此函数分配一个值（例如pos（$ foo）= 20;），以更改下一个匹配操作的起点。偏移是从第零位置开始的计数器。
• 

  句法

  以下是此函数的简单语法-

  
  pos EXPR
  
  pos
  

• 

  返回值

  此函数在Scalar上下文中返回Integer，然后在List上下文中返回所有匹配项在正则表达式中的位置。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  $name = "This is alpha beta gamma";
  $name =~ m/alpha/g;
  
  print("pos() ", pos($name), "\n");
  

  尝试一下

  执行结果：

  
  pos() 13