From 1d707eec4158a514143c16f7bbd9997b32cc6dab Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <art1@andreas-romeyke.de>
Date: Wed, 6 Oct 2021 14:40:08 +0200
Subject: [PATCH] - increased blocksize for better throughput - added
transferrate
---
deep_fixitycheck.pl | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/deep_fixitycheck.pl b/deep_fixitycheck.pl
index fafc5e4..6e0eb42 100644
--- a/deep_fixitycheck.pl
+++ b/deep_fixitycheck.pl
@@ -267,7 +267,7 @@ sub check_file_fixities($$) {
binmode($fh);
my $buffer;
my $block=0;
- my $blocksize = 8*1024; # 8kB blocks
+ my $blocksize = 128*1024; # 128kB blocks
while (1) {
my $ret = read($fh, $buffer, $blocksize);
if (defined $ret) {
@@ -352,7 +352,8 @@ if (defined $search_dir && -d "$search_dir") {
while ( <$fh_unsorted_file>) { # scan each IE
$stat->{IEs}++;
chomp;
- print $progressbar->report("parse IE files: %40b running: %L ETA: %E ($count/$cnt_unsorted_files IEs) \r", ++$count);
+ my $transferrate_in_MBs = sprintf("%0.2f", $stat->{scansize} / (time - $stat->{begin}+1) / 1024 / 1024);
+ print $progressbar->report("parse IE files: %40b running: %L ETA: %E ($count/$cnt_unsorted_files IEs, tfr=$transferrate_in_MBs MB/s) \r", ++$count);
my $ret = parse_iexml( $_, $recovery);
foreach my $fileobj (@{ $ret->{files} }) {
$fileobj->{file_mounted} = map_file($map_path, $fileobj->{filepath});
--
GitLab