快些,在快些,perl的小优化
浏览:2545次 出处信息
一个小程序的简单优化,经过大师指点后速度的分别
[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系统需要关注的一些点 (阅读:14066)
- 30分钟3300%性能提升――python+memcached网页优化小记 (阅读:12110)
- perl更新/修改/删除文本文件内容 (阅读:9424)
- 基于SSD的数据库性能优化 (阅读:7386)
- jQuery性能优化指南 (阅读:7303)
- perl大牛flw传说 (阅读:6506)
- perl模块Getopt::Std用法及实例-从命令行读取参数模块 (阅读:5867)
- 一次简单C程序的性能优化 (阅读:5583)
- [Perl] Template::Toolkit 模板技术. (阅读:5361)
- 在perl中连接和使用sqlite做数据存储 (阅读:5041)
QQ技术交流群:445447336,欢迎加入!
扫一扫订阅我的微信号:IT技术博客大学习
扫一扫订阅我的微信号:IT技术博客大学习
<< 前一篇:perl的写excel文件
后一篇:在perl中连接和使用sqlite做数据存储 >>
文章信息
- 作者:扶凯 来源: 扶凯
- 标签: perl 优化 速度
- 发布时间:2009-12-21 12:24:39
建议继续学习
近3天十大热文
- [66] Go Reflect 性能
- [66] Oracle MTS模式下 进程地址与会话信
- [65] 如何拿下简短的域名
- [59] IOS安全–浅谈关于IOS加固的几种方法
- [59] android 开发入门
- [59] 图书馆的世界纪录
- [58] 【社会化设计】自我(self)部分――欢迎区
- [53] 视觉调整-设计师 vs. 逻辑
- [47] 界面设计速成
- [47] 读书笔记-壹百度:百度十年千倍的29条法则