作者jlovet ( Q我~)
看板Perl
标题Re: [问题] 把资料塞进阵列
时间Tue Mar 18 22:41:29 2008
#!/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