如何将下一个
搜索位置的开头倒数1？例如,假设我想匹配#之间的所有数字.以下将只给我奇数.
my $data="#1#2#3#4#";
while ( $data =~ /#(\d)#/g ) {
print $1,"\n";
}
但是如果我能够将下一个位置的开始倒数1,我会得到偶数和奇数.@H_301_5@
这不起作用：pos()= pos() – 1;@H_301_5@
我知道我可以用拆分完成这个.但这并没有回答我的问题.@H_301_5@
for (split /#/,$data) {
print $_,"\n";
}
