13 lines
497 B
Perl
13 lines
497 B
Perl
|
#!/usr/bin/perl
|
|||
|
|
|
|||
|
|
$txt="1234ab56";
|
|||
|
|
$txt =~ /\d\d/g;
|
|||
|
|
print "matched $&: ",pos $txt,"\n";
|
|||
|
|
$txt =~ /\d\d/g;
|
|||
|
|
print "matched $&: ",pos $txt,"\n";
|
|||
|
|
$txt =~ /\G\d/g; # 强制从位移4开始匹配，无法匹配字母a，但又不允许跳过
|
|||
|
|
# 所以本次\G全局匹配失败，由于没有修饰符c，指针重置
|
|||
|
|
print "matched $&: ",pos $txt,"\n";
|
|||
|
|
$txt =~ /\G\d/g; # 指针回到0，强制从0处开始匹配，数值1能匹配成功
|
|||
|
|
print "matched $&: ",pos $txt,"\n";
|