程嶏清单7-8.txt

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

$digits = "123456789";
@nonlap = $digits =~ /(\d\d\d)/g;
@yeslap = $digits =~ /(?=(\d\d\d))/g;
print "Non-overlapping:  @nonlap\n";
print "Overlapping:      @yeslap\n";