Appending an image to a png file

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

I installed Image::Magick successfully. No more errors. My script to copy an image is

#!/usr/local/bin/perl   
use Image::Magick;   
my($image, $x);    
$image = Image::Magick->new;    
$x = $image->Read('D:/d/FirewallRespTimebyDay.xls.0.PNG'); 
warn "$x" if "$x";    
$x = $image->Write('C:/Graph.xls.01.08.2004.PNG');    
warn "$x" if "$x";
[download]

when I run this script, it replaces the image in 'C:/Graph.xls.01.08.2004.PNG' with the image in 'D:/d/FirewallRespTimebyDay.xls.0.PNG'(i.e. it is writting in to the 'C:/Graph.xls.01.08.2004.PNG'). But I want to append an image to the file. I tried

$x = $image->Append('C:/Graph.xls.01.08.2004.PNG');
[download]

But got a message saying

Image::Magick=ARRAY(0x1a453b0) at D:\image.pl line 8.
[download]

How do I append an image to a png file which already has an image?

Thanks & Regards

Nalina

Comment on Appending an image to a png file Select or Download Code

Replies are listed 'Best First'.
Re: Appending an image to a png file by davidj (Priest) on Aug 03, 2004 at 11:30 UTC
Check out this for a good document on using Image::Magick. I pulled the following off the website: "The Append() method append a set of images. For example, `$p = $image->Append(stack=>{true,false});` [download] appends all the images associated with object $image. By default, images are stacked left-to-right. Set stack to True to stack them top-to-bottom." Clearly the way you are trying to use the `Append` method is incorrect. Sorry, but as I have never used the program or the package, this is as much help as I can offer. davidj	[reply] [d/l] [select]
Re^2: Appending an image to a png file by Nalina (Monk) on Aug 04, 2004 at 05:29 UTC
I tried using append function, the script is as follows. `#!/usr/local/bin/perl use Image::Magick; my($image, $p, $q); $image = new Image::Magick; $image->Read('d:\\d\\Graph.xls..PNG','d:\\d\\Sample.jpg'); $p = $image->Append(stack=>{true,false}); $p = $image->Write('d:/pimage.jpg');` [download] this creates 2 files 'pimage.jpg.0' & 'pimage.jpg.1', and the read file images are placed in these two files. But I have mentioned the o/p file name as 'pimage.jpg'. I want both the images to be in the same file(pimage.jpg). How can I get it? Thanks & Regards Nalina	[reply] [d/l]
Re: Appending an image to a png file by Joost (Canon) on Aug 03, 2004 at 11:34 UTC
Could you please explain what you mean with "append an image to a png file"? I've already answered this question before but apparantly you want to do something else than I thought. Or maybe not. Also `warn "$x" if "$x";` is what is causing the message: you are printing an Image::Magick object, and an object in perl usually stringifies to the class name and memory address. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^2: Appending an image to a png file by Nalina (Monk) on Aug 04, 2004 at 06:16 UTC
I mean I want to read two png files and write the read images to an another png file OR read a png file and append the image in that file to an another png file. I tried `use Image::Magick; $image = Image::Magick->new; open(IMAGE, 'd:\d\Sample.jpg'); print "test1\n"; $image->Read(file=>\IMAGE); print "test2\n"; close(IMAGE); $filename = "test.png"; open(IMAGE, ">>$filename"); $image->Write(file=>\IMAGE, filename=>$filename); close(IMAGE);` [download] but got an Application error saying, `The instruction at "0x77f88216" referenced memory at "0x00000010". The + memory could not be "written". Click on OK to terminate the program.` [download] How to resolve this error? Thanks & Regards Nalina	[reply] [d/l] [select]
Re: Appending an image to a png file by beable (Friar) on Aug 03, 2004 at 11:34 UTC
Can you do that to a PNG file? I thought that a PNG file has within it data to tell how large the image is; so if you append another image to the end of the file, you'll end up with the same image except with junk on the end which is the second image. What does it mean to "append an image to a png file which already has an image"? Why do you want to do this?	[reply]
Re^2: Appending an image to a png file by Nalina (Monk) on Aug 04, 2004 at 05:58 UTC
If a png file can not be appended, atleast it can be written. How do I write images from 2 different png files to a single png file? I tried `#!/usr/local/bin/perl use Image::Magick; my($image, $p, $q); $image = new Image::Magick; $image->Read('d:\\d\\Graph.xls..PNG','d:\\d\\Sample.jpg'); $image->Write('d:\\pimage.jpg');` [download] but this writes the images to two files 'pimage.jpg.0' & 'pimage.jpg.1'(each having one image). I want both the images to be in a single png file. How do I get it? Thanks & Regards Nalina	[reply] [d/l]
Re^3: Appending an image to a png file by beable (Friar) on Aug 04, 2004 at 10:04 UTC
Let's suppose you have two png images, one with a red background with a green circle on it; and the other one with a blue background with a yellow triangle on it. What output would you like to get?	[reply]
Re: Appending an image to a png file by Anonymous Monk on Aug 03, 2004 at 15:23 UTC
I suppose you're not trying to create an animation? Because PNG can't be used for that. But you already knew that, of course.	[reply]


Perl: the Markov chain saw
	PerlMonks