use strict;
use autodie;
use Digest::MD5 qw(md5_hex);
+use Digest::SHA1 qw(sha1_hex);
use Data::Dump qw(dump);
+my $use_sha1 = $ENV{SHA1} || 1;
+
my @files = @ARGV;
@files = glob '/tmp/isi.*-*.txt' unless @files;
my $path = '/tmp/isi.full.txt';
+
+warn "# ", $#files + 1, " files to $path sha:$use_sha1\n";
+
open(my $out_fh, '>', $path);
print $out_fh "FN ISI Export Format\nVR 1.0\n";
$rec .= $_;
} else {
$nr++;
- my $digest = md5_hex $rec;
+ my $digest = $use_sha1 ? sha1_hex $rec : md5_hex $rec;
if ( my $times = $md5->{$digest} ) {
print STDERR 'd';
$report->{file}->{$file}->{duplicates}++;