摘要: 1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(<>){ chomp; print "$_\n" unless exists $hash{$_}; $hash{$_}+=1; } 刚开始没有$hash{$_}+=1这一行,结果发现无论怎么执行, 阅读全文
posted @ 2015-07-01 10:59 iVictor 阅读(651) 评论(0) 推荐(0) 编辑