gaochong

#!/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 编辑 ]

flw

都是垃圾代码。

chenzq1604

hitsubunnu

LZ： 芙蓉也叫仙女？

cobrawgl

看看，挨批了吧

wxlfh

版主说话就是这样直接。

[ 本帖最后由 wxlfh 于 2009-7-1 08:36 编辑 ]

xuanfei

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

bitterness

gaochong

具体哪里是垃圾代码？


flw老大，请赐教！