作者imce (蜥蜴)
看板Perl
标题Re: [问题] 把资料塞进阵列
时间Tue Mar 18 16:22:12 2008
※ 引述《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
1F：→ imce:是要这样的结果吗？ 03/18 16:22