程嶏清单8-11.txt

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

$string =  "1-10,20";
print $string,"\n";
foreach $byte (split /([-,])/, $string) {
    print $byte,"\n";;
}