From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 10 Feb 2020 03:36:12 +0000 (+0100)
Subject: display file size with hash
X-Git-Url: http://git.shiar.nl/minime.git/commitdiff_plain/e90b36e8f91418105503e74e74bd4b9ecfa4c358?hp=03d4d658770c714f864100e2f1423d0a6a92e98c;ds=sidebyside

display file size with hash
---

diff --git a/termimg b/termimg
index bb66467..a79ecf6 100755
--- 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 => (