I've written this subroutine to create bitmaps for me automatically. I am working with large number of fairly large jpegs (ie, 700 or 800 k). I call this routine on a loop of filenames, but I keep running out of memory. (I have 384 MB so this should'nt be a problem). Somewhere, something isn't going out of scope like I think it should... 

use TK;
use TK::JPEG;

sub makeLittlePic {
    # 
    my $filename = shift;
    my $newFilename = shift;
    my $targetSize = shift;
    
    my $main = new MainWindow;
        
    my $jpgimg = $main -> Photo(-format    => 'jpeg',
                                    -file        => $filename);

    unless ($jpgimg->height() > $targetSize or $jpgimg->width() > $tar
+getSize) {
        $jpgimg->write( $newFilename );
        return 1;
    }
        
    my $newimg = $main -> Photo('-format'    => 'jpeg');
        
    if($jpgimg->height > $jpgimg->width) {
        $newimg->copy( $jpgimg, -subsample => int($jpgimg->height / $t
+argetSize) );
    } else {
        $newimg->copy( $jpgimg, -subsample => int($jpgimg->width / $ta
+rgetSize) );
    }
    
    $newimg->write( $newFilename );
    
    $main = undef;
    $jpgimg = undef;
    $newimg = undef;
    return 1;
}

[download]

In reply to TK (And my Faulty Script) Eating Memory by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.