PerlMagick: Count frames in animated GIF?

[Hatch]

Seems like this should be simple, but an hour or so of googling has only turned up oblique references to ways of doing this with the command line tools, and I couldn't translate them to perl. Any help would be greatly appreciated.

EDIT: Oops! I didn't notice the subforum specifically for PerlMagick. Feel free to move; sorry for the trouble.

[fmw42]

in command line in unix, I would do

#create 4 frame gif
convert rose: rose: rose: rose: rose4.gif

#get number of frames
convert rose4.gif -format "%[scenes]" info: | tail -n 1
4

or

convert rose4.gif -format "%n" info: | tail -n 1
4


#get last frame number (frame numbers start at 0)
convert rose4.gif[-1] -format "%[scene]" info:
3

see string formats http://www.imagemagick.org/script/escape.p


Don't know what the equivalent is in perlmagic?

[Hatch]

The PerlMagick page only mentions those -format properties as they relate to the Annotate(), Comment(), Draw(), and Label() methods. I can't figure out any way to access them directly. It's possible I'm missing something obvious.

EDIT: Aha! I figured it out. It's actually quite simple:

Code: Select all

my $frames = $image->Get(text=>"%n");

And that works for most or all of the -format properties. Perhaps this could be explained on the PerlMagick page since it's not exactly obvious, or at least it wasn't to me.