程嶏清单8-11.txt

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

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