diff options
| author | Sadeep Madurange <sadeep@asciimx.com> | 2026-04-19 11:35:02 +0800 |
|---|---|---|
| committer | Sadeep Madurange <sadeep@asciimx.com> | 2026-04-19 11:35:02 +0800 |
| commit | 015192c00e9bdc178eac2194228d7f5e190e88d3 (patch) | |
| tree | a64dec0bf026a06e9fa6a6df0a7a5434c46aac51 /bm | |
| parent | d900d1dc1f2365d5d03d45af4d05ac8791e61e15 (diff) | |
| download | urn-015192c00e9bdc178eac2194228d7f5e190e88d3.tar.gz | |
BM: improve report format.
Diffstat (limited to 'bm')
| -rw-r--r-- | bm/bm_size.pl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/bm/bm_size.pl b/bm/bm_size.pl index da35f2b..e9de614 100644 --- a/bm/bm_size.pl +++ b/bm/bm_size.pl @@ -77,27 +77,27 @@ run_benchmark("URN"); run_benchmark("GIT"); # --- Vertical Report Formatting --- -my $out_file = "BM_ULTIMATE_${files}_${depth}.txt"; +my $out_file = "BM_REPO_SIZE_${files}_${depth}.txt"; open(my $res, '>', $out_file) or die $!; -print $res "====================================================\n"; +print $res "=============================================================\n"; print $res " BENCHMARK: $files files @ $depth depth\n"; -print $res "====================================================\n\n"; +print $res "=============================================================\n\n"; foreach my $action (@actions) { my $u = $results{$action}{"URN"}; my $g = $results{$action}{"GIT"}; print $res "ACTION: $action\n"; - print $res "----------------------------------------------------\n"; + print $res "-------------------------------------------------------------\n"; printf $res "%-15s | %-20s | %-20s\n", "METRIC", "URN", "GIT"; - print $res "----------------+----------------------+------------\n"; + print $res "----------------+----------------------+---------------------\n"; printf $res "%-15s | %20s | %20s\n", "Real Time", $u->{real}."s", $g->{real}."s"; printf $res "%-15s | %20s | %20s\n", "Max RSS", $u->{rss}, $g->{rss}; printf $res "%-15s | %20s | %20s\n", "Page Faults", $u->{faults}, $g->{faults}; printf $res "%-15s | %20s | %20s\n", "Meta Inodes", $u->{inodes}, $g->{inodes}; printf $res "%-15s | %20s | %20s\n", "Meta Size", $u->{disk}, $g->{disk}; - print $res "----------------------------------------------------\n\n"; + print $res "-------------------------------------------------------------\n\n"; } close($res); @@ -105,3 +105,4 @@ close($res); print "\nComparison complete! Results saved to $out_file\n"; my $pager = $ENV{PAGER} || 'less'; system("$pager $out_file"); + |