程嶏清单12-1.txt

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

while(<STDIN>)　　# 同：while (defined ($_ = <STDIN>))
{
     chomp;         # 同：chomp($_);
     print $_,"\n";
}