Help for this page

Select Code to Download


  1. or download this
    while (<$fh_log>) {
   my ($month, $user) = /^LOGGING: \S+?-(\S+) \S+: STARTING FLUSH: (\S
++)$/
...
   $flushes{$month}{$user}++;
   $flushes{$month}{TOTAL}++;
}
  2. or download this
    
my %flushes = (
...
        'TOTAL' => 8,
    },
);
  3. or download this
    for my $month ( keys %flushes ) {
    print $month . "\n";
...
    }
    print "\n";
}
  4. or download this
    for my $month ( keys %flushes ) {
    print $month . "\n";
...
    }
    print "\n";
}