Commit 77e5bc07 authored by Olav Kvittem's avatar Olav Kvittem
Browse files

beautified print

parent d61a9757
Pipeline #45559 passed with stages
in 55 seconds
......@@ -3,11 +3,11 @@ use Statistics::Lite qw/:stats/;
my @stats=qw/mean max stddev/;
my @parms=qw/cpu bo bi cs/;
my $parmline = sprintf "%-30s","File name";
my $statsline = sprintf "%-30s"," ";
my $parmline = sprintf "%-40s ","File name";
my $statsline = sprintf "%-40s"," ";
foreach $parm(@parms){
$parmline .= sprintf " %-21s", $parm;
$parmline .= sprintf "%-21s", $parm;
foreach $stat ( @stats ){
$statsline .= sprintf " %6s", $stat;
}
......@@ -61,7 +61,7 @@ sub process_file{
my $name = $parts[$#parts-2];
my $date = $parts[$#parts-1];
# my ($name, $dom) = split(/\./, $fqdn);
printf "%-30s", $name . "/" . $date;
printf "%-30s %10s", substr($name,0,29), $date;
foreach $parm (@parms){
my %sh=statshash( @{$rd{$parm}} );
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment