#!/usr/bin/perl

use strict;
use warnings;

use Image::Magick;

my $dir = shift @ARGV;   # target directory, first argument.

for(@ARGV) { 
    # loop over file list
    print "processing file $_\n";
    unless ( /\.tif?$/ ) { 
        warn "$_ does not have a proper TIFF extension...skipping.";
        next;
    }

    my $image = Image::Magick->new;
    my $err;
    print "loading $_...\n";
    $err = $image->read($_);
    warn $err if $err;
    print "scaling $_...\n";
    $err = $image->Scale( geometry => '850x636' );
    warn $err if $err;

    s{/.*/}{};
    m/(.*?)\./;
    my $name = $dir . '/' . $1 . '.png';

    print "writing $name...\n";
    $err = $image->write( $name );
    warn $err if $err;

    undef $image;
}

##</code><code>##


[friedo@localhost friedo]$ perl imgprep.pl /home/friedo/imgs/P-2004-001/ /mnt/cdrom/*
processing file /mnt/cdrom/img_0001.tif
loading /mnt/cdrom/img_0001.tif...
Exception 315: incorrect count for field "DateTime" (18, expecting 20); tag ignored. (/mnt/cdrom/img_0001.tif) at imgprep.pl line 22.
scaling /mnt/cdrom/img_0001.tif...
writing /home/friedo/imgs/P-2004-001//img_0001.png...
processing file /mnt/cdrom/img_0002.tif
loading /mnt/cdrom/img_0002.tif...
Exception 315: incorrect count for field "DateTime" (18, expecting 20); tag ignored. (/mnt/cdrom/img_0002.tif) at imgprep.pl line 22.
scaling /mnt/cdrom/img_0002.tif...
writing /home/friedo/imgs/P-2004-001//img_0002.png...
processing file /mnt/cdrom/img_0003.tif
loading /mnt/cdrom/img_0003.tif...
Exception 315: incorrect count for field "DateTime" (18, expecting 20); tag ignored. (/mnt/cdrom/img_0003.tif) at imgprep.pl line 22.
scaling /mnt/cdrom/img_0003.tif...
writing /home/friedo/imgs/P-2004-001//img_0003.png...
processing file /mnt/cdrom/img_0004.tif
loading /mnt/cdrom/img_0004.tif...
Exception 315: incorrect count for field "DateTime" (18, expecting 20); tag ignored. (/mnt/cdrom/img_0004.tif) at imgprep.pl line 22.
scaling /mnt/cdrom/img_0004.tif...
writing /home/friedo/imgs/P-2004-001//img_0004.png...
processing file /mnt/cdrom/scan log.txt
file /mnt/cdrom/scan log.txt does not have a proper TIFF extension...skipping. at imgprep.pl line 14.



[friedo@localhost P-2004-001]$ ls -al
total 3564
drwxrwxr-x  2 friedo friedo   4096 Nov 11 03:22 .
drwxrwxr-x  3 friedo friedo   4096 Nov 11 02:23 ..
-rw-rw-r--  1 friedo friedo 391734 Nov 11 03:17 img_0001.png.0
-rw-rw-r--  1 friedo friedo 310422 Nov 11 03:17 img_0001.png.1
-rw-rw-r--  1 friedo friedo 673542 Nov 11 03:19 img_0002.png.0
-rw-rw-r--  1 friedo friedo 412338 Nov 11 03:19 img_0002.png.1
-rw-rw-r--  1 friedo friedo 560091 Nov 11 03:21 img_0003.png.0
-rw-rw-r--  1 friedo friedo 373808 Nov 11 03:21 img_0003.png.1
-rw-rw-r--  1 friedo friedo 515991 Nov 11 03:22 img_0004.png.0
-rw-rw-r--  1 friedo friedo 357368 Nov 11 03:22 img_0004.png.1