- chomp $line;
- my ( $filename, $cardnumber );
- my $delim = ($line =~ /\t/) ? "\t" : ",";
- ($cardnumber, $filename) = split $delim, $line;
- $cardnumber =~ s/[\"\r\n]//g; # remove offensive characters
- $filename =~ s/[\"\r\n\s]//g;
- warn "Cardnumber: $cardnumber Filename: $filename" if $DEBUG;
-
- if ($cardnumber && $filename) {
- warn "Source: $dir/$filename Target: $destdir/$cardnumber.jpg" if $DEBUG;
- my $result = move ( "$dir/$filename", "$destdir/$cardnumber.jpg" );
- if ( $result ) {
- $count{count}++;
- push @{ $count{filenames} }, { source => $filename, dest => $cardnumber .".jpg" };
- }
+ warn "Reading contents of $file" if $DEBUG;
+ chomp $line;
+ warn "Examining line: $line" if $DEBUG;
+ my ( $filename, $cardnumber );
+ my $delim = ($line =~ /\t/) ? "\t" : ",";
+ warn "Delimeter is \'$delim\'" if $DEBUG;
+ ($cardnumber, $filename) = split $delim, $line;
+ $cardnumber =~ s/[\"\r\n]//g; # remove offensive characters
+ $filename =~ s/[\"\r\n\s]//g;
+ warn "Cardnumber: $cardnumber Filename: $filename" if $DEBUG;
+ if ($cardnumber && $filename) {
+ warn "Source: $dir/$filename Target: $destdir/$cardnumber.jpg" if $DEBUG;
+ my $result = move ( "$dir/$filename", "$destdir/$cardnumber.jpg" );
+ if ( $result ) {
+ $count{count}++;
+ push @{ $count{filenames} }, { source => $filename, dest => $cardnumber .".jpg" };