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