标签：
1. 如何去重
#!/usr/bin/perl use strict; my %hash; while(<>){ chomp; print "$_\n" unless exists $hash{$_}; $hash{$_}+=1; }
刚开始没有$hash{$_}+=1这一行，结果发现无论怎么执行，文本都是原样输出，不会去重。加上这一行后就没有问题了，推测如果没有对$hash{$_}进行操作的话，在判断完它的键是否存在以后即会被丢弃掉，不会保存留待下一次判断。
标签：
原文地址：http://www.cnblogs.com/ivictor/p/4612695.html
