习鞘7-6.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 8 行

$_ = "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";
}