10 lines
186 B
Perl
10 lines
186 B
Perl
#!/usr/bin/perl
|
|
|
|
$txt="1234ab56";
|
|
while($txt =~ m/\G\d\d/gc){ # 使用c修饰符
|
|
print "matched: $&, ",pos $txt,"\n";
|
|
}
|
|
|
|
$txt =~ m/\G\d\d/gc;
|
|
print "matched: $&, ",pos $txt,"\n";
|