[oracle@localhost ~]$ cat tmpperl01
#!/usr/bin/perl
$_ = "The year 1752 lost 10 days on the 3rd of September";
while (/(\d+)/g)
{
print pos($_),"\n";
}
print pos($_)."---","\n";
while (/e/g)
{
print pos($_),"\n";
}
#!/usr/bin/perl
$_ = "The year 1752 lost 10 days on the 3rd of September";
while (/(\d+)/g)
{
print pos($_),"\n";
}
print pos($_)."---","\n";
while (/e/g)
{
print pos($_),"\n";
}
print pos($_)."---","\n";
[oracle@localhost ~]$ cat tmpperl02
#!/usr/bin/perl
$_ = "The year 1752 lost 10 days on the 3rd of September";
while (/(\d+)/cg)
{
print pos($_),"\n";
}
print pos($_)."---","\n";
while (/e/cg)
{
print pos($_),"\n";
[oracle@localhost ~]$ ./tmpperl01
13
21
35
---
3
6
33
43
46
49
---
[oracle@localhost ~]$ ./tmpperl02
13
21
35
35---
43
46
49
49---
#增加/c修饰符在匹配失败后不重置pos的位置