请问去重复并排序应该用什么代码？

perl911

比如：
12345
qwe123
!wertt4
!wertt4
12345

输出:
!wertt4
12345
qwe123

麻烦各位大侠帮忙指点一下，感谢中！！！

rorot

1. perl -e 'map{++$hash{$_};}<>;; print sort keys %hash;' tmp
   

复制代码

chelseann

用 hash 吧如果数据量不是很大的话。

打印的时候 for $key (sort keys %hashdata){print $key;}

如果对Perl 的数据结构有什么问题详细可以参考

http://www.pgsqldb.org/twiki/bin/view/Perl/DataStructures

仔细阅读可以解决很多问题。

perl911

感谢两位大侠指点！
不过俺初学还看不太懂，不知哪个代码表示是输入文件？
还有输出文件？

perl911

L:\per\nbw>;perl nn99.pl
Bareword found where operator expected at nn99.pl line 7, near "'map{++$hash{$_}
;}<>;; print sort keys %hash;' tmp"
        (Missing operator before tmp?)
syntax error at nn99.pl line 7, near "perl -e "
Execution of nn99.pl aborted due to compilation errors.

不知是什么意思？麻烦大家帮忙解释一下！谢谢！

rorot

1. perl -e '++$hash{$_}while(<>;); print sort keys %hash;' tmp
   

复制代码

这是命令行模式, tmp是输入文件. man perl

perl911

原来是命令行啊，多谢提醒！

俺试过了，CMD提示：

L:\per\nbw>;perl -e '++$hash{$_}while(<>; print sort keys %hash;' tmp
此时不应有 >;。

不知为什么，还是没通过。

俺现在最想知道的是如何完成去重复后只留下一个？麻烦大家了！

俺忘了说明一下，俺用的win32平台下的ActivePerl-5.8.7.813-MSWin32-x86-148120版本。

perl911

win32平台要使用""而不是''

perl -e "++$hash{$_}while(<>); print sort keys %hash;" tmp

问题解决了，多谢rorot兄！

要是有代码就更好了！

[ 本帖最后由 perl911 于 2006-1-10 21:41 编辑 ]

Qiang

或者...

D:\>;perl -ne "++$h{$_};END{print sort keys %h}" tmp

There is more than one way to do it  

关于 perl 命令行的使用请参考 perlchina 中文化翻译的这篇文章
http://www.perlchina.org/archive/archive.php?action=archive&page=19

forrest.w

用shell命令也可以吧？
sort -u inputfilename >; outputfilename