How can I use IO::Scalar with Image::Magick::Read()?

Question

I have an image I have manipulated with GD::Image and I want to do further manipulations with Image::Magick. I\'d like to avoid writing the image out to disk just so Image:

Answer 1

I think you are looking for BlobToImage:

#!/usr/bin/perl

use strict;
use warnings;

use File::Slurp;
use Image::Magick;

my $image_bin = read_file 'test.jpg', binmode => ':raw';

my $magick = Image::Magick->new;

$magick->BlobToImage( $image_bin );

$magick->Resize( geometry => '64x64' );

$magick->Write( 'test-out.jpg' );

__END__

Answer 2

From the docs...

To read an image in the GIF format from a Perl filehandle, use:

$image = Image::Magick->new;
open(IMAGE, 'image.gif');
$image->Read(file=>\*IMAGE);
close(IMAGE);

So... I think a reference to your filehandle (\$FH) in your example, instead of just the filehandle, should do the trick?

Edit: To respond to brian d foy, this is what I was suggesting trying:

my $image = Image::Magick->new;
open my $fh, 'image.gif';
binmode $fh;
$image->Read( file => \$fh );
close $fh;

On my system, at least, this seg faults.

I'll let this post stand as an example of what doesn't work. :P