如何实现合并相同行，求助，谢了！！

[tl66]

我要把一个文件的内容输出，但其中的相同行只能输出一次，请问如何实现，最好详细点，谢了！！！

[Linus2000]

open(FILE,"$filename");
while(<INPUT>){
chop;
$string=$_;
$i=0;
$b=0;
while ($i<=$#array) {
if ($string eq $array[$i])
{
$b=1;
}
$i=$i+1;
}
if ($b ne 1) {
print $_;
}
push (@array,$_);
}

[tl66]

谢谢

[otstar]

谢人家就要给人家加分啊，这点规矩都不懂以后怎么混？！

[Linus2000]

To:otstar(反斗星)　
分数在别的帖子上已经给了,再给就重了,别误会.呵呵呵...........

[netken]

open(FILE,"<$filename");
while(<FILE>) {
$hash{"$_"}=1;
}
close(FILE);
print keys %hash;

hoho ;)