fioの出力をgithub wikiのtable形式にフォーマットする

pretty_format_fio.pl

#!/usr/bin/perl
use strict;
use warnings;


print <<EOT;

 -            | bandwidth   | iops
--------------|-------------|--------
EOT


while ( defined(my $line = <>) ) {
    next unless $line =~ /^(.+):.*groupid=/o;
    my $group = $1;

    my $result = <>;
    my ( $bw, $iops ) = $result =~ /bw=(.*?),.*iops=(.*?),/;

    printf " %-12s | %11s | %7s\n",
        $group,
        $bw,
        $iops;
}

print "\n";


=head1 NAME

 pretty_format.pl

=head1 SYNOPSIS

 fio hogehoge | tee /tmp/fio.log | ./pretty_format.pl

=head1 DESCRIPTION

fioの出力をgithub wikiのtable形式にフォーマットする。


=head1 AUTHOR

 <[email protected]>

=head1 SEE ALSO

=cut