#! /usr/bin/perl
# mkocr.pl
use strict;
use warnings;
# use English;
use Image::Magick;
my $anzahl = 0;
# my $ENV = "/usr/bin";

# display aus Perl-Forum 19.3.2014 von GwenDragon. Bei Ubu 12.04.4 LTS zwingend
# dazu gsfonts-x11, gsfonts-other - offenbart sich erst mit Synaptic!
sub display {
	my $file_name = shift;
	# Betrachter von ImageMagicks display - ist bei Ubu 12.04.4 LTS.
  if (-e '/usr/bin/display') { system('/usr/bin/display',$file_name); }
	# Betrachter von X-Server
  elsif (-e '/usr/bin/xview') { system('/usr/bin/xview',$file_name); }
}
# check of DIRs - Verzeichnisse
if ( ! "~/Dokus" ) { system( "mkdir ~/Dokus" ); };
if ( ! "~/Sca" ) { system( "mkdir ~/Sca" ); };

# in Sca auf *.png testen - if NOT exit
if (! '~/Sca/*.png') {
	print "Keine *.png vorhanden - ENDE.\n";
	exit();
	};

# Perl-Forum von Linuxer 25.03.2014
my $eintrag;
my $cmd = "/user/bin/convert";

for my $file ( <~/Sca/*.png> ) {

  # ausgabe dateiname definieren
  ( my $newfile = $file ) =~ s/png$/tif/;

	# opendir(DIR,"Sca");
  # aufruf: convert inputfile outputfile; meldung bei fehler
  if (system( $cmd, $file, $newfile ) == 0)
		{
			$anzahl++;
		}
	else
		{
  		warn "system( $cmd, $file, $newfile ) failed: $! \n";  
		}
}
# Dateienanzeige. Umsetzung des ls -m *.tif ?? system(`ls ~/Sca/*.tif`)
{
  local $, = ", ";
  print <*.tif>;
}

# Gegencheck mit oeffnen in DIR wechselt rein und auflisten.
print " -- -- -- -- --\n";
opendir(DIR,"Sca");
while($eintrag=readdir(DIR)) {
	print"$eintrag \n";
	}
closedir(DIR);