#!/usr/bin/perl
foreach(sort<STDIN>){
$t=(split)[0];
push (@array,$t) if ($t ne $array[$#array]);
}
foreach(@array){
print $_,"\n";
}
先把檔案sort過
丟進去的時候,檢查跟最後一個丟進去的不一樣才丟進去....
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.123.102.254