523066680 (消遣区)当前离线
版主
open READ,"<a.txt" or die "file not exist $!"; open WRITE,">b.txt"; $ever=""; foreach (<READ>) { if ($_ ne $ever) {print WRITE;} $ever=$_; } <STDIN>; close READ; close WRITE;复制代码
评分人数
TOP