If I understand the Image::Grab docs correctly, it just returns the image as binary data. According to the docs, Image::Magick supports reading filehandles, which you could use with an in-memory filehandle (open), as well as reading data in memory directly:

my $image = Image::Magick->new(magick=>'jpg');

open my $fh, '<', \$imgdata or die $!;
$image->Read(file=>$fh);
# - or -
$image->BlobToImage($imgdata);
[download]

(untested)

Do I need to use Blobs??

Did you try the code I posted? As far as I can tell from the docs, this should be all you need to get the $imgdata I showed in my other post:

use Image::Grab qw/grab/;

my $imgdata = grab('http://upload.wikimedia.org/wikipedia/commons/1/1a
+/Image_upload_test.jpg');
# - or -
my $pic = Image::Grab->new;
$pic->url('http://upload.wikimedia.org/wikipedia/commons/1/1a/Image_up
+load_test.jpg')
$pic->grab;
my $imgdata = $pic->image;
[download]

(untested)

Hi

I found this code sample that converts from GD to Image::Magick objects. It is like I want to do and it should work between any objects.

Haukex, I will give your code a go.

#!/user/bin/perl
use strict;
use Image::Magick;
use GD;
# First read an image with Image::Magick

my $im = new Image::Magick;
my $status = $im->Read('monkey.png');
if ($status) {
  die "$Status!";
}

# Convert to a blob and hand off to GD

my @blobs = $im->ImageToBlob();
my $gd = GD::Image->newFromPngData($blobs[0]);
my $red = $gd->colorAllocate(255,0,0);

# Outline in Red

$dg->rectangle(0,0, (map {$_-1} $gd-?getBounds), $red);

# There and back again
my $im2 = new Image::Magick;
$im2->BlobToImage($gd->png());
$im2->Write('png:monkeyout.png');
[download]