http://www.perlmonks.org?node_id=189375


in reply to Batch conversion of images using gimp and Perl

Excellent perl script. Works like a charm and does a great job: jpeg file size went down without any noticeable quality degradation. One request though: Would it be possible to add an image re-size option please?
  • Comment on Re: Batch conversion of images using gimp and Perl

Replies are listed 'Best First'.
Re: Re: Batch conversion of images using gimp and Perl
by IlyaM (Parson) on Aug 12, 2002 at 12:58 UTC
    You can find names of methods that correspond to various Gimp operations via Gimp's PDB Explorer (menu Xtns/PDB Explorer). In this case it is gimp_image_scale. According docs avialable via PDB Explorer this function expects following parameters: 
    
   In:
       IMAGE image
       INT32 new_width 
       INT32 new_height

    [download]
    Perl module Gimp that provides bindings allows you to call this function as 
    
    Gimp->gimp_image_scale($img, $new_width, $new_height);

    [download]
    It also does some magick so you can call same operation under different names. All following calls do the same thing: 
    
    Gimp->gimp_image_scale($img, $new_width, $new_height);
    Gimp->image_scale($img, $new_width, $new_height);
    $img->scale($new_width, $new_height);

    [download]
    All you have to do is adding such call before saving jpeg file.

    You can learn more from documenation in Gimp module and from Gimp-Perl web site.

    --
    Ilya Martynov (http://martynov.org/)

[reply]
[d/l]
[select]

In Section Cool Uses for Perl