Char::Plot problems

house15 has asked for the wisdom of the Perl Monks concerning the following question:

Hello, Everyone. I'm trying to get Chart::Plot to work. I don't get any errors that I can find. The data seems to be set right and appropriate bounds on the graph. I send the results string to an output file like:

open (OUT, "> plot.png");
print OUT $img->draw();
close OUT;
[download]

and everything seems to work fine, but when I try to view the results image, the viewer tells me it's not png or that it is corrupted. I opened up the png data in vim and it says PNG at the top so I'm guessing it's corrupted. Also, I used $img->image_type() and the result is png, so my version of GD (2.11) should be supporting it. Any ideas? Thanks, House.

Comment on Char::Plot problems Select or Download Code

Replies are listed 'Best First'.
Re: Char::Plot problems by MidLifeXis (Monsignor) on Dec 31, 2003 at 20:32 UTC
A couple things... Check the results of your open call. Check the results of your print - I am guessing that `draw()` is bailing, and may return something Make sure to `use strict; use warnings;` Good luck --MidLifeXis	[reply] [d/l] [select]
Re: Re: Char::Plot problems by house15 (Initiate) on Dec 31, 2003 at 20:48 UTC
Thanks for your response. I've been using `strict` and `warnings`. The open and the print are working, too as far as I can tell. Supposedly, if `draw()` fails an error is set in the `Chart::Plot` object, which I check for. In short, the script ends with no errors and the draw() function writes to the file. It just doesn't seem to be writing the right stuff. Obviously, I'm baffled.	[reply] [d/l] [select]
Re: Char::Plot problems by PERLscienceman (Curate) on Dec 31, 2003 at 22:40 UTC
TRY THIS: `open (OUT, "> plot.png"); binmode OUT; print OUT $img->draw(); close OUT;` [download]	[reply] [d/l]
Re: Re: Char::Plot problems by house15 (Initiate) on Jan 05, 2004 at 13:51 UTC
You, sir, are a genius. I saw that in the examples, but the comment said it was for "DOSish" systems. Since I'm a newbie and on LINUX I ignored that. Thanks for the help. House.	[reply]


Don't ask to ask, just ask
	PerlMonks