请问关于文件处理的问题

ppiandy

1^# ppiandy 发表于 2008-04-27 13:38

想去掉文件中重复的信息

比如
123
123
456
467

去掉一个123，怎么写？

ppiandy

2^# ppiandy 发表于 2008-04-27 13:42

帮个忙撒，刚学这个，不怎么会，谢谢了

coldfishc

3^# coldfishc 发表于 2008-04-27 14:38

文件有多大
对信息的顺序有要求么？
如果不大对顺序又没要求的话用hash吧
@bag = <DATA>;
%tmp = map {$_ => 1} @bag;
@set = keys %tmp;

__DATA__
123
123
456
467

ppiandy

4^# ppiandy 发表于 2008-04-27 15:42

谢谢

__lxmxn__

5^# __lxmxn__ 发表于 2008-04-27 17:51

while(<DATA>){
chomp;
print if !($hash{$_}++);
}

没测试，试试……