一个文件有两个相同的和不同的怎样去冗余啊？

wanguan2000

比如：
244901_at
244901_at
244902_at
244903_at
244904_at
244906_at
244906_at
244910_s_at
244912_at
244912_at
怎样把重复的去掉啊？

gamester

my $fileName="文件路径";
use FileHandle;
my $in=new FileHandle($fileName);
my @lines=<$in>;;
$in->;close();
my $line='';
my $lastLine='';
foreach $line(@lines){
  if($line eq $lastLine){
    next;
}else{
    print $line;
    $lastLine=$line;
}
}
与此类似的方法应该可以解决你的问题。但我写的程序很丑陋，也没效率，不好意思。