习鞘7-6.txt

< linux网络编程工具>>配套源码

$_ = "The year 1752 lost 10 days on the 3rd of September";
while (/(\d+)/gc) {
    print "Found number $1\n";
}
if (/\G(\S+)/g) {
    print "Found $1 after the last number.\n";
}