Parent Directory
|
Revision Log
exaple of group by date from unix timestap
1 | |
2 | if ( $rec->{package}->{name} eq 'dnsd' ) { |
3 | my $domain = $rec->{qname}; |
4 | $domain =~ s{^.+\.+([^\.]+)\.([^\.]+)$}{$1.$2}; |
5 | my $t = int( $rec->{package}->{time} / 86400 ) * 86400; |
6 | my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t); |
7 | my $date = sprintf("%04d-%02d-%02d", $year + 1900, $mon + 1, $mday); |
8 | $out->{'date-domain,count+'}->{ "$date $domain" }++; |
9 | $out->{'date,domains+'}->{$date}++; |
10 | } |
11 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |