tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

rrm: Progress info when checksumming.

Browse source
This commit is contained in:
Ole Tange 2024-12-29 16:22:50 +01:00
parent 02896e1eb7
commit 9a39d50440
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
rrm/rrm
View file

@ -55,6 +55,8 @@ use Digest::SHA;
my %size; my %size;
my %hashval; my %hashval;
my @remove; my @remove;
my $t = 1;
my $totalfiles = @ARGV;
for my $file (@ARGV) { for my $file (@ARGV) {
if(not -e $file) { if(not -e $file) {
warn("File does not exist: $file"); warn("File does not exist: $file");
@ -64,6 +66,7 @@ for my $file (@ARGV) {
warn("Not a file: $file"); warn("Not a file: $file");
next; next;
} }
printf("[%d/%d] %s\n", $t++, $totalfiles, $file);
if(-s $file > 0) { if(-s $file > 0) {
$size{$file} = -s $file; $size{$file} = -s $file;
my $sha = Digest::SHA->new(256); my $sha = Digest::SHA->new(256);