vitalif
/
langs-performance
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Read $output_mode as a command-line argument

master
Ivan Zahariev 2016-09-09 23:33:30 +03:00
parent 5f82b686b0
commit b9afdca36f
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
results/analyze
View File

@ -228,6 +228,23 @@ sub print_results {
} }
} }
sub usage {
die("Usage: $0 [text|html]\nRead results at STDIN and format them as specified.\n");
}
sub parse_ARGV {
my $output_mode = shift @ARGV;
if (!defined($output_mode)) {
usage();
}
if ($output_mode !~ /^(text|html)$/) {
usage();
}
return $output_mode;
}
sub main { sub main {
my $line; my $line;
my $data = {}; my $data = {};
@ -236,6 +253,9 @@ sub main {
my $test_data; my $test_data;
my $test_name; my $test_name;
my @sorted_all = (); my @sorted_all = ();
my $output_mode;
$output_mode = parse_ARGV();
while ($line = <STDIN>) { while ($line = <STDIN>) {
chomp($line); chomp($line);
@ -310,10 +330,13 @@ sub main {
$a->{'averages'}->{'cpu_t'} <=> $b->{'averages'}->{'cpu_t'}; $a->{'averages'}->{'cpu_t'} <=> $b->{'averages'}->{'cpu_t'};
} @sorted_all; } @sorted_all;
#print_results('text', \@sorted_all); if ($output_mode eq 'html') {
_print_results_as_html_header(); _print_results_as_html_header();
print_results('html', \@sorted_all); }
_print_results_as_html_footer(); print_results($output_mode, \@sorted_all);
if ($output_mode eq 'html') {
_print_results_as_html_footer();
}
} }
main(); main();