priyaviswam has asked for the wisdom of the Perl Monks concerning the following question:
Hi All, I have tried converting the jpg file to tif file. This tiff file is not recognised by the microsoft office picture manager. This is the code I have tried
is there anyother way to convert the jpg to tiff which will be recognized by the microsoft office picture manager so that I can use that image to OCR?my $dir = "C:\\Users\\rgopikrx\\Desktop\\im"; opendir (DIR, $dir) or die $!; my @directory = readdir(DIR) or die "unable to read $dir : $!"; my $index = 1; foreach my $file (@directory){ my $im = Image::Magick->new(); my $rc; my $dc; my $new = "$index".".tif"; next if ($file eq "."); next if ($file eq ".."); next if ($file eq "tt"); print "Files : $file\n"; print "Tif file : $new\n"; $rc = $im->Read("$dir\\$file");die $rc if $rc; $dc = $im->Write(filename=>"$dir\\$new"); $index++; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: convert jpg to tiff file
by marto (Cardinal) on Oct 31, 2011 at 12:09 UTC | |
by priyaviswam (Sexton) on Nov 02, 2011 at 04:42 UTC | |
by marto (Cardinal) on Nov 02, 2011 at 09:25 UTC |