会员
周边
捐助
新闻
博问
闪存
赞助商
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
SlowTech
生活本应就是慢的
博客园
首页
新随笔
联系
管理
订阅
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
阅读(651)
评论(0)
推荐(0)
编辑
公告