1Image::Info::SVG(3) User Contributed Perl Documentation Image::Info::SVG(3)
2
3
4
6 Image::Info::SVG - SVG support for Image::Info
7
9 use Image::Info qw(image_info dim);
10
11 my $info = image_info("image.svg");
12 if (my $error = $info->{error}) {
13 die "Can't parse image info: $error\n";
14 }
15 my $title = $info->{SVG_Title};
16
17 my($w, $h) = dim($info);
18
20 This modules supplies the standard key names except for BitsPerSample,
21 Compression, Gamma, Interlace, LastModificationTime, as well as:
22
23 ImageDescription
24 The image description, corresponds to <desc>.
25
26 SVG_Image
27 A scalar or reference to an array of scalars containing the URI's
28 of embedded images (JPG or PNG) that are embedded in the image.
29
30 SVG_StandAlone
31 Whether or not the image is standalone.
32
33 SVG_Title
34 The image title, corresponds to <title>
35
36 SVG_Version
37 The URI of the DTD the image conforms to.
38
40 process_file()
41 $info->process_file($source, $options);
42
43 Processes one file and sets the found info fields in the $info object.
44
46 This module requires XML::Simple.
47
49 Image::Info, XML::Simple, expat
50
52 For more information about SVG see:
53
54 http://www.w3.org/Graphics/SVG/
55
56 Random notes:
57
58 Colors
59 # iterate over polygon,rect,circle,ellipse,line,polyline,text for style->stroke: style->fill:?
60 # and iterate over each of these within <g> too?! and recurse?!
61 # append <color>'s
62 # perhaps even deep recursion through <svg>'s?
63 ColorProfile <color-profile>
64 RenderingIntent ?
65 requiredFeatures
66 requiredExtensions
67 systemLanguage
68
70 Jerrad Pierce <belg4mit@mit.edu>/<webmaster@pthbb.org>
71
72 This library is free software; you can redistribute it and/or modify it
73 under the same terms as Perl itself.
74
75
76
77perl v5.10.1 2006-07-16 Image::Info::SVG(3)