Hello,
I'm looking for simple and easy instructions for performing the
following task on a batch of files in Perl using GIMP.
foreach my $file (@jpg_gilenames) {
my $gimp_obj= SOME::MODULE::GIMP::new($file);
gimp_obj->unsharp_mask({radius=>0.1, amount=>1, threashold=>0});
gimp_obj->saturation(30);
gimp_obj->rotate($exiftool->orientation($file));
gimp_obj->x_resolution({amount=>300, metrics=>'dpi'});
gimp_obj->y_resolution({amount=>300, metrics=>'dpi'});
gimp_obj->interpolation('cubic');
gimp_obj->save({filename=>$file, quality=>100});
}
Any ideas?
--
Shlomo Yona
[EMAIL PROTECTED]
http://yeda.cs.technion.ac.il/~yona/
_______________________________________________
Perl mailing list
[email protected]
http://perl.org.il/mailman/listinfo/perl
