bin/m-l-smokerpt-parse.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9
  10
  11 =head1 SYNOPSIS
  12
  13  m-l-smokerpt-parse <filename>
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--help|h!>
  24
  25 This help
  26
  27 =back
  28
  29 =head1 DESCRIPTION
  30
  31
  32
  33 =head1 BUGS
  34
  35 This is a one-off script with shortcuts.
  36
  37 =cut
  38
  39
  40 use FindBin;
  41 use lib "$FindBin::Bin/../lib";
  42 BEGIN {
  43     push @INC, qw(       );
  44 }
  45
  46 use Dumpvalue;
  47 use File::Basename qw(dirname);
  48 use File::Path qw(mkpath);
  49 use File::Spec;
  50 use File::Temp;
  51 use Getopt::Long;
  52 use Pod::Usage;
  53 use Hash::Util qw(lock_keys);
  54
  55 our %Opt;
  56 lock_keys %Opt, map { /([^=|!]+)/ } @opt;
  57 GetOptions(\%Opt,
  58            @opt,
  59           ) or pod2usage(1);
  60
  61 my $filename = shift or pod2usage(1);
  62
  63 use YAML::Syck;
  64 my $y = YAML::Syck::LoadFile($filename);
  65 for my $report (sort { $y->{$a}{timestamp} cmp $y->{$b}{timestamp} } keys %$y) {
  66     my $treport = $y->{$report};
  67     my($avg) = $treport->{content} =~ /^    smoketime .+? \(average (.+?)\)/m;
  68     printf "%s %s\n", $treport->{timestamp}, $avg;
  69 }
  70
  71 # Local Variables:
  72 # mode: cperl
  73 # cperl-indent-level: 4
  74 # End: