perl – 如何将下一个搜索开始位置倒回1？

发布时间：2020-12-15 21:41:19 所属栏目：大数据来源：网络整理

导读：如何将下一个搜索位置的开头倒数1？例如,假设我想匹配#之间的所有数字.以下将只给我奇数. my $data="#1#2#3#4#";while ( $data =~ /#(d)#/g ) { print $1,"n";} 但是如果我能够将下一个位置的开始倒数1,我会得到偶数和奇数. 这不起作用：pos()= pos() – 1

如何将下一个搜索位置的开头倒数1？例如,假设我想匹配#之间的所有数字.以下将只给我奇数.

my $data="#1#2#3#4#";

while ( $data =~ /#(d)#/g ) {
  print $1,"n";
}

但是如果我能够将下一个位置的开始倒数1,我会得到偶数和奇数.

这不起作用：pos()= pos() – 1;

我知道我可以用拆分完成这个.但这并没有回答我的问题.

for (split /#/,$data) {
  print $_,"n";
}

解决方法

你在$_上调用pos()而不是$data

从perldoc起

Returns the offset of where the last m//g search left off for the variable in question ($_ is used when the variable is not specified)

所以,

pos($data) = pos($data) - 1;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!