yanick/gimps-review
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

simplify code

Browse Source
This commit is contained in:
Yanick Champoux 2023-08-26 12:50:48 -04:00
parent acc6a64388
commit e0ac19d7c0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
script.pl
View File

@ -80,10 +80,13 @@ sub generate_output_table ($ts) {
}
# sort hash by the average and print to screen
return Text::SimpleTable::AutoWidth->new(
my $tbl = Text::SimpleTable::AutoWidth->new(
captions => [qw/ Computer GHZDaysPerDay /] );
foreach
my $key ( reverse sort { $ranks{$a} <=> $ranks{$b} } keys(%ranks) ) {
$tbl->row( $key, $ranks{$key} );
}
return $tbl;
}