display file size with hash
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 10 Feb 2020 03:36:12 +0000 (04:36 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 10 Feb 2020 03:36:12 +0000 (04:36 +0100)
termimg

diff --git a/termimg b/termimg
index bb66467fd27b1f88ded33a43d0fff4f234d7e702..a79ecf6b7a8b884549cc4a9b530e958efd279858 100755 (executable)
--- a/termimg
+++ b/termimg
@@ -37,12 +37,13 @@ my @info = eval {
        );
 } or warn $@;
 
+my $filesize = (stat $file)[7];
 eval {
        require Digest::MD5;
        open my $bin, '<', $file;
        binmode $bin;
-       my $md5 = Digest::MD5->new->addfile($bin);
-       push @info, ' # '.$md5->b64digest;
+       my $md5 = Digest::MD5->new->addfile($bin)->b64digest;
+       push @info, " # $md5 ($filesize)";
 } or warn $@;
 
 open my $pgm, '-|', convert => (