Image::Info::SVG (3pm)

 use Image::Info qw(image_info dim);

 my $info = image_info("image.svg");
 if (my $error = $info->{error}) {
     die "Can't parse image info: $error\n";
 }
 my $title = $info->{SVG_Title};

 my($w, $h) = dim($info);

This modules supplies the standard key names except for BitsPerSample, Compression, Gamma, Interlace, LastModificationTime, as well as:

ImageDescription

The image description, corresponds to <desc>.

SVG_Image

A scalar or reference to an array of scalars containing the \s-1URI\s0's of embedded images (\s-1JPG\s0 or \s-1PNG\s0) that are embedded in the image.

SVG_StandAlone

Whether or not the image is standalone.

SVG_Title

The image title, corresponds to <title>

SVG_Version

The \s-1URI\s0 of the \s-1DTD\s0 the image conforms to.

\$1

$info->process_file($source, $options);

Processes one file and sets the found info fields in the $info object.

This module requires XML::Simple.

Image::Info, XML::Simple, expat

For more information about \s-1SVG\s0 see:

http://www.w3.org/Graphics/SVG/

Random notes:

Colors # iterate over polygon,rect,circle,ellipse,line,polyline,text for style->stroke: style->fill:? # and iterate over each of these within <g> too?! and recurse?! # append <color>'s # perhaps even deep recursion through <svg>'s? ColorProfile <color-profile> RenderingIntent ? requiredFeatures requiredExtensions systemLanguage

Jerrad Pierce <[email protected]>/<[email protected]>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.