Add thousands separator commas to output

CHANGELOG.md

@@ -12,6 +12,7 @@ All notable changes to this project will be documented in this file.
 
 - Limit "Skipped" output to only summary
 - Omit output of progress bar unless -v flag is present
+- Add thousands separator commas to output
 
 ## [3.0.0]
 

simplify_static_dir.pl

@@ -238,8 +238,8 @@ MAIN: {
         $freed_bytes += $inst->bytes_freed;
     }
 
-    printf STDERR "freed %d bytes (%0.4G %s)\n",
-        $freed_bytes,
+    printf STDERR "freed %s bytes (%0.4G %s)\n",
+        Directory::Simplify::Utils::addcommas($freed_bytes),
         Directory::Simplify::Utils::hr_size($freed_bytes)
             if $print_freed or $verbose;
 }
@@ -248,6 +248,18 @@ package Directory::Simplify::Utils;
 use strict;
 use warnings;
 
+sub addcommas {
+    my @added;
+    foreach my $num (@_) {
+        # don't split anything after the decimal
+        my @parts = split /\./, $num;
+        while ($parts[0] =~ s/(\d)(\d{3}(?:\D|$))/$1,$2/) {
+        }
+        push @added, (join '.', @parts);
+    }
+    wantarray ? @added : $added[0]
+}
+
 sub hr_size {
     my $sz = shift;
     my @sizes = qw/ B KB MB GB TB PB EB ZB YB /;