忘记密码   免费注册 查看新帖 | 论坛精华区
ChinaUnix.net
  平台论坛 博客 微博 读书 人才 精华 文库 自测 | 频道操作系统 开发 数据库 存储 服务器 网络 IT新闻 Linux 下载 Power用户组
最近访问板块 发新帖
查看: 2837 | 回复: 28

一个较好的perl代码, 包含了很多知识点 [复制链接]
更多

Rank: 3Rank: 3

帖子
762
主题
116
精华
0
可用积分
3910
专家积分
0
在线时间
412 小时
注册时间
2005-08-31
最后登录
2011-03-21
论坛徽章:
0
发表于 2009-06-30 21:42:50 |显示全部楼层
#!/usr/bin/perl -w


use strict;
use POSIX qw/strftime/;

my %hash;
my $in="udpInDatagrams";
my $out="udpOutDatagrams";
my $log="/log/udp.log";

open NETSTAT,"netstat -s -P udp 1 2 |" or die "$!";
while (<NETSTAT>) {
        $hash{$1}=$2 if /($in)\s+=\s+(\d+)\s+/;
        $hash{$1}=$2 if /($out)\s+=\s+(\d+)\s+/;
}
close NETSTAT;
my $date=strftime "%Y%m%d%H%M",localtime;
open FILE,">> $log" or die "$!";
print FILE "$date\t$hash{$in}\t$hash{$out}\n";
close FILE;


还有一个,用到reference。

my (%hash,@list);
open FILE,"< $log" or die "$!";
open FILE_FINAL,"> $log_final" or die "$!";
while (<FILE>) {
        chomp;
        @list=split /\s+/,$_;
        my $ref=\@list;
        if (exists $hash{$ref->[0]}) {
                $hash{$ref->[0]}=[$ref->[1]+$hash{$ref->[0]}->[0],$ref->[2]+$hash{$ref->[0]}->[1]];
                                
        } else {
                $hash{$list[0]}=[$ref->[1],$ref->[2]];
        }
}
foreach (sort keys %hash) {
        print FILE_FINAL "$_" . " " . "@{$hash{$_}}" . "\n";
}
close FILE_FINAL;
close FILE;


[ 本帖最后由 gaochong 于 2009-6-30 21:45 编辑 ]
外法猎手

Rank: 8Rank: 8

帖子
28976
主题
1497
精华
22
可用积分
75579
专家积分
1309
在线时间
13574 小时
注册时间
2002-08-12
最后登录
2012-02-09
论坛徽章:
0
发表于 2009-06-30 22:59:49 |显示全部楼层
都是垃圾代码。

2012 高薪诚聘大量研发工程师,站内联系

Rank: 3Rank: 3

帖子
3127
主题
219
精华
6
可用积分
2185
专家积分
10
在线时间
849 小时
注册时间
2003-05-30
最后登录
2012-02-07
论坛徽章:
0
发表于 2009-06-30 23:27:35 |显示全部楼层

Rank: 2

帖子
1132
主题
38
精华
3
可用积分
1744
专家积分
0
在线时间
3214 小时
注册时间
2006-05-13
最后登录
2011-12-13
论坛徽章:
0
发表于 2009-06-30 23:32:20 |显示全部楼层
LZ: 芙蓉也叫仙女?

Rank: 5Rank: 5

帖子
4989
主题
179
精华
0
可用积分
6929
专家积分
112
在线时间
3613 小时
注册时间
2004-03-18
最后登录
2012-02-09
论坛徽章:
0
发表于 2009-07-01 07:44:48 |显示全部楼层
看看,挨批了吧

爱生活
爱Perl
爱BSD

--------

  

Rank: 2

帖子
1160
主题
1
精华
0
可用积分
1561
专家积分
0
在线时间
4069 小时
注册时间
2008-09-15
最后登录
2012-02-09
论坛徽章:
0
发表于 2009-07-01 08:34:55 |显示全部楼层
版主说话就是这样直接。

[ 本帖最后由 wxlfh 于 2009-7-1 08:36 编辑 ]
check1234 该用户已被删除
发表于 2009-07-01 08:51:43 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

Rank: 1

帖子
197
主题
108
精华
2
可用积分
293
专家积分
0
在线时间
197 小时
注册时间
2006-11-20
最后登录
2010-12-28
论坛徽章:
0
发表于 2009-07-01 09:55:00 |显示全部楼层

回复 #1 gaochong 的帖子

to:gaochong
要想在perl版混 得时刻准备好flw导师的调侃

Rank: 2

帖子
583
主题
123
精华
0
可用积分
1362
专家积分
9
在线时间
559 小时
注册时间
2006-09-26
最后登录
2011-12-07
论坛徽章:
0
发表于 2009-07-01 11:17:01 |显示全部楼层

Rank: 3Rank: 3

帖子
762
主题
116
精华
0
可用积分
3910
专家积分
0
在线时间
412 小时
注册时间
2005-08-31
最后登录
2011-03-21
论坛徽章:
0
发表于 2009-07-01 11:46:38 |显示全部楼层

回复 #2 flw 的帖子

具体哪里是垃圾代码?


flw老大,请赐教!
您需要登录后才可以回帖 登录 | 注册

北京皓辰网域网络信息技术有限公司. 版权所有 京ICP证:060528号 北京市公安局海淀分局网监中心备案编号:1101082001
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP