更新:
在我初始的发布和回复之后,我尝试重新编写了我的目标和结果,以使其更加清晰:
目标:
我试图计算日志文件中搜索字符串的点击数,以确定以下方式生成消息出现的次数:
- 每天总数。
- 每小时总数。
- 每分钟最高次数,每小时。
- 每秒钟最高次数,每小时。
我的工作代码:
#!/usr/bin/perl
#use strict;
use warnings;
use Data::Dumper;
my @a = (
[ qw /2012-02-21_09:43:43/ ],
[ qw /2012-02-21_09:43:43/ ],
[ qw /2012-02-21_09:43:44/ ],
[ qw /2012-02-21_09:43:44/ ],
[ qw /2012-02-21_09:43:44/ ],
[ qw /2012-02-21_09:43:45/ ],
[ qw /2012-02-21_09:43:45/ ],
[ qw /2012-02-21_09:43:45/ ],
[ qw /2012-02-21_09:43:45/ ],
[ qw /2012-02-21_09:44:47/ ],
[ qw /2012-02-21_09:44:47/ ],
[ qw /2012-02-22_09:44:49/ ],
[ qw /2012-02-21_10:44:49/ ]
);
my ( %count, $count ) = ();
foreach (@a) {
my $line = @$_[0] ;
$line =~ /(\S+)_(\d+):(\d+):(\d+)/ ;
my $day = $1;
my $hour= $2;
my $min = $3;
my $sec = $4;
$count {$day}->{$hour}->{$min}->{$sec}{'sec'} += 1 ;
$count {$day}->{$hour}->{$min}{'min'} += 1 ;
$count {$day}->{$hour}{'hour'} += 1 ;
$count {$day}{'day'} += 1 ;
}
#print Dumper (%count) . "\n";
foreach my $k1 ( sort keys %count ) {
print "$k1\t$count{$k1}{'day'}\n" ;
foreach my $k2 ( sort keys %{$count{$k1}} ) {
if ($k2 =~ /day/) {
next;
}
print " $k2:00\t\t$count{$k1}{$k2}->{'hour'}\n";
foreach my $k3 ( sort keys %{$count{$k1}{$k2}} ) {
if ($k3 =~ /hour/) {
next;
}
print " $k2:$k3\t\t$count{$k1}{$k2}{$k3}->{'min'}\n";
foreach my $k4 ( sort keys %{$count{$k1}{$k2}{$k3}} ) {
if ($k4 =~ /min/) {
next;
}
print " $k2:$k3:$k4\t$count{$k1}{$k2}{$k3}{$k4}->{'sec'}\n";
}
print "\n";
}
print "\n";
}
}
exit;
结果
由于我的哈希解引用方法不佳,我不得不关闭严格模式(这让我感到羞愧),
2012-02-21 12
09:00 11
09:43 9
09:43:43 2
09:43:44 3
09:43:45 4
09:44 2
09:44:47 2
10:00 1
10:44 1
10:44:49 1
尝试输出:
2012-02-21 12
09:00 11
09:43 9
09:43:45 4
10:00 1
10:44 1
10:44:49 1
问题:
- 有没有更好的编写代码和启用严格模式的方法?
- 如何列出哈希值中最高发生次数的哈希值,以尝试仅列出最高数字计数?
感谢之前所有的帖子,没有这些帖子我不可能走到这一步。
谢谢,
安迪