2015年7月1日
Perl碎碎念
摘要： 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 阅读(646) 评论(0) 推荐(0) 编辑