Re: [問題] 把資料塞進陣列

看板Perl作者 (蜥蜴)時間17年前 (2008/03/18 16:22), 編輯推噓0(001)
留言1則, 1人參與, 最新討論串2/6 (看更多)
※ 引述《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

03/18 16:22, , 1F
是要這樣的結果嗎?
03/18 16:22, 1F
文章代碼(AID): #17ttkr11 (Perl)
文章代碼(AID): #17ttkr11 (Perl)