看板 Perl 關於我們 聯絡資訊
※ 引述《colderfred ( )》之銘言: : 假設有個a.txt 裡面有如下的資料 : 小明 1 : 大牛 1 : 丁丁 3 : 小明 4 : 大牛 2 : 丁丁 2 : 小明 2 : 大牛 1 : 丁丁 2 open(FILE,"a.txt"); foreach(<FILE>) { $name = (split)[0]; push(@ARRAY,$name) if (!grep(/$name/,@ARRAY)); } close(FILE); print join("\n",@ARRAY); -----結果----- 小明 大牛 丁丁 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 60.250.75.176
imce:是要這樣的結果嗎? 03/18 16:22