You create a new image:

my $gd = GD::Image->new($img_width, $img_height);
[download]

Write some text into it:

my $wrapbox = GD::Text::Wrap->new($gd,
                              line_space => 3,
                              color => $colors{$opt{'c'}},
                              text => $opt{'t'},
                              );
[download]

Then load an image from disk:

 $source_img = GD::Image->newFromJpeg($opt{'i'});
[download]

And attempt to copy the text onto it:

$gd->copy($source_img, 1, 1, 0, 0, $img_width, $img_height);
[download]

Accept that you are copying from the image you loaded, into the image containing the text! Thereby overwriting the text you drew with a 300 x 300 section of the image--assuming it is at least that big. You then write that to disk.

Does that accurately sum up the results you describe as "it doesn't properly "copy""?

The copy operation should almost certainly be more like:

$source_img->copy($gd, 1, 1, 0, 0, $img_width, $img_height);
[download]

Though you should probably use the width & height of the bounding box returned from the text operation to limit the amount of the original image you overwrite.

Perhaps better still, depending upon your goals, would be to simply write the text directly onto the loaded image. You could then set the background color of the text operation to transparent and get see-through text.

$source_img = GD::Image->newFromJpeg($opt{'i'});
[download]

 
or die "Failed to load $opt{'i'}: $!
[download]

After running your script and another test script based on the SYNOPSIS of the GD::Text::Wrap module, my conclusion is that unless I miss something critical about the usage, it may be something wrong with the module. Both scripts result image contains no text, but only some strange colored rectangles

use strict;
use warnings;

use GD;
use GD::Text::Wrap;

my $gd = GD::Image->new(800,600);
my $white = $gd->colorAllocate(255,255,255);
my $blue  = $gd->colorAllocate(0,0,255);

my $text = <<EOSTR;
Lorem ipsum dolor sit amet, consectetuer adipiscing elit,
sed diam nonummy nibh euismod tincidunt ut laoreet dolore
magna aliquam erat volutpat.
EOSTR

my $wrapbox = GD::Text::Wrap->new(
    $gd,
    line_space  => 4,
    color       => $blue,
    text        => $text,
);
$wrapbox->set_font(gdMediumBoldFont);
$wrapbox->set_font('arial', 12);
$wrapbox->set(align => 'left', width => 120);
$wrapbox->draw(10,140);

$gd->rectangle($wrapbox->get_bounds(10,140), $blue);

open my $file, '>', 'outfile.jpg';
binmode $file;
print { $file } $gd->jpeg;
close $file;
[download]

An alternative solution is to use PerlMagick (ImageMagick).

Update: revised as suggested by gmargo.

Update2: revised as suggested by gmargo :-) Thank you.

stefbv, your script works just fine. However, you write the text in WHITE while the background is also WHITE. Change the text color and it shows up.

You set binmode STDOUT; when I think you meant to set binmode FILE;.

There's another problem, which you would see immediately if you use strict;.

Line 90 of your script has this line:

    if ($start_height > 1 && $embed_height > 1 && $embed_width > 1) {
[download]

However, $embed_height and $embed_width are actually undefined (and treated as zero), since they are not the same variables defined on line 19 of your script, which are in a different scope:

    my ($embed_width, $embed_height) = imgsize($opt{'i'});
[download]

New Year's Resolution: always use strict and warnings.

Update: If you fix the above by moving the variable scope, and if you follow BrowserUk's advice about overwriting your text with the image (just move the $wrapbox->draw(1, $start_height); line to after the image copy), then your program will work.