Re: GD isn't outputting image data

[JupiterHost.Net]

JupiterHost.Net wrote:

Scott R. Godin wrote:

JupiterHost.Net wrote:

hello list :)

Anyone have any idea why the last line doesn't print anything?
I get no errors and have eval'ed it with no errors. I've also tried with ->png and ->jpeg also with the same results...

I think I'm doing it right according to http://search.cpan.org/~lds/GD-2.19/GD.pm

All it outputs is the header:

 $ ./gdtest.pl
 Content-type: image/gif

 $

Here's the code:

#!/usr/bin/perl

use strict;
use warnings;
use GD;

my $image = GD::Image->new(100,50);
my $white = $image->colorAllocate(255,255,255);
$image->transparent($white);

my $fontcolor = $image->colorAllocate(0,0,0);
my $font = GD::Font->Small();

print "Content-type: image/gif\n\n";
$image->string($font,2,10,'hello world',$fontcolor);
#$image->rotate90;
print $image->gif;

TIA!

make sure that GD and libgd were built with gif support.

They were, as I can go the animated gif example in the docs perfectly.

I'd also tried $img->png and $img->jpeg :)

you may also wish to use

binmode STDOUT;

before you print

Yeah, same results with that. I will need to do that but I was just trying to get *something* to get printed ;p

I've added it to my test script and did the othe types as well and removed the content type header so that doesn't confuse the issue.

#!/usr/bin/perl

use strict;
use warnings;
use GD;

my $image = GD::Image->new(100,50);
my $white = $image->colorAllocate(255,255,255);
$image->transparent($white);

my $fontcolor = $image->colorAllocate(0,0,0);
my $font = GD::Font->Small();

$image->string($font,2,10,'hello world',$fontcolor);
binmode STDOUT;

print "PNG\n";
print $image->png;

print "\nGIF\n";
print $image->gif;

print "\nJPEG\n";
print $image->jpeg;

Gives:

$ perl Sites/gdtest.pl
PNG

GIF

JPEG
$

Weird eh? Any ideas?

The "A Simple Example" at
http://search.cpan.org/~lds/GD-2.19/GD.pm#DESCRIPTION

doesn't print anything either...

 $ perl ./gdsimple.pl
 $

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>