|
|
@ -41,15 +41,15 @@ GetOptions ( |
|
|
|
say "--csvfile=FILE .............. creates a CSV file to store statistics"; |
|
|
|
say "--verbose ................... enables more verbose output in standard report"; |
|
|
|
say "--noprogress ................ disables progress bar"; |
|
|
|
say "droid_signature_filename..... DROID signature files (container filess not supported yet)"; |
|
|
|
say "droid_signature_filename..... DROID signature files (container files not supported yet)"; |
|
|
|
} |
|
|
|
) or croak "wrong option, try '$0 --help'"; |
|
|
|
if ((defined $csv_file) && (-e $csv_file)) { |
|
|
|
croak "CSV file '$csv_file' already exist"; |
|
|
|
} |
|
|
|
say "using $#ARGV signature files"; |
|
|
|
say "using ",scalar @ARGV," signature files"; |
|
|
|
my $progress = Term::ProgressBar->new( $#ARGV ); |
|
|
|
for (my $idx=0; $idx < $#ARGV; $idx++) { |
|
|
|
for (my $idx=0; $idx <= $#ARGV; $idx++) { |
|
|
|
my $pronomfile = $ARGV[$idx]; |
|
|
|
if ( !defined $pronomfile ) { |
|
|
|
say "you need at least a pronom signature file"; |
|
|
|