快些,在快些,perl的小优化
浏览:2564次 出处信息
一个小程序的简单优化,经过大师指点后速度的分别
[root@localhost ~]# time cat 5000 |perl check.pl >/tmp/b real 5m59.953s user 5m59.956s sys 0m0.105s [root@localhost ~]# time cat 5000 |perl check1.pl >/tmp/a real 0m0.134s user 0m0.111s sys 0m0.030s
下面是程序优化后的check.pl
#!/usr/bin/perl use strict; use warnings; open A,"<a>){ my ($md5,$ip) = split; $hash{$md5} = $ip; } while (<>){ my $line = $_; if( /http:\/\/[\w.]+\/\d+\/(\w+)\// ){ if( exists $hash{$1}){ print $line."\n"; } } } </a>
<a>#!/usr/bin/perl use strict; use warnings; open A,"</a><a>){ my ($md5,$ip) = split; $hash{$md5} = $ip; } while (<>){ my $line = $_; foreach my $md5 ( keys %hash){ if($line =~ /$md5/){ print $line."\n"; } } } </a>
在logan中有1W的记录.cat时有5k的行.发现正则的性能实在太好,然后使用keys来取hash查所有的表,反到性能不好,但是查是否存在,hash优化的相当于的不错.
建议继续学习:
- WEB系统需要关注的一些点 (阅读:14110)
- 30分钟3300%性能提升――python+memcached网页优化小记 (阅读:12129)
- perl更新/修改/删除文本文件内容 (阅读:9438)
- 基于SSD的数据库性能优化 (阅读:7414)
- jQuery性能优化指南 (阅读:7325)
- perl大牛flw传说 (阅读:6515)
- perl模块Getopt::Std用法及实例-从命令行读取参数模块 (阅读:5884)
- 一次简单C程序的性能优化 (阅读:5598)
- [Perl] Template::Toolkit 模板技术. (阅读:5369)
- 在perl中连接和使用sqlite做数据存储 (阅读:5059)
QQ技术交流群:445447336,欢迎加入!
扫一扫订阅我的微信号:IT技术博客大学习
扫一扫订阅我的微信号:IT技术博客大学习
<< 前一篇:perl的写excel文件
后一篇:在perl中连接和使用sqlite做数据存储 >>
文章信息
- 作者:扶凯 来源: 扶凯
- 标签: perl 优化 速度
- 发布时间:2009-12-21 12:24:39
建议继续学习
近3天十大热文
- [54] IOS安全–浅谈关于IOS加固的几种方法
- [52] android 开发入门
- [52] 如何拿下简短的域名
- [51] 图书馆的世界纪录
- [49] Go Reflect 性能
- [49] Oracle MTS模式下 进程地址与会话信
- [47] 【社会化设计】自我(self)部分――欢迎区
- [46] 读书笔记-壹百度:百度十年千倍的29条法则
- [35] 程序员技术练级攻略
- [27] 视觉调整-设计师 vs. 逻辑