[Israel.pm] GIMP and Perl

Yona Shlomo yona at cs.technion.ac.il
Sat Mar 10 11:26:41 PST 2007


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
yona at cs.technion.ac.il
http://yeda.cs.technion.ac.il/~yona/



More information about the Perl mailing list