程嶏清单12-1.txt

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

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