From 015192c00e9bdc178eac2194228d7f5e190e88d3 Mon Sep 17 00:00:00 2001 From: Sadeep Madurange Date: Sun, 19 Apr 2026 11:35:02 +0800 Subject: BM: improve report format. --- bm/bm_size.pl | 13 +++++++------ 1 file 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"); + -- cgit v1.2.3