Re: [問題] 把資料塞進陣列
#!/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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
