Inline images in POD

I was interested and fiddled abou it. And this seems to work without any extra podparser.

Download this code to pod_img.pl

for (1.10) {
  print;
}

=for html 
   <img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAY
+AAAAeP4ixAAAAAXNSR0IArs4c6QAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAALEwAA
+CxMBAJqcGAAAAAd0SU1FB9gEEgIJDgjXTxYAAAE3SURBVGje7VhBDsMwCAPU/3+ZXbdKC
+RDMlLRwjJBqg4lpWFWVioOZqz9BQg+JxxC5bhKAaWAkWVVloGS1pXWEtKJSYfB19C2VqB
+QlqXetJDE7DxOxwCLIWGA9ZAQBMkPGW3Er7/m3VrTKK13xdsOT3z5yDJGoR6x4SnRdmeW
+/Q1reKmcc3tsVK0+yIBFrigXSQ1YyFQev/Zzp2FU5zNXD3z6yc3C/orS0mshcvkRUPiN/
+GMOW1nbx4+xKwFdAGvzNMeHuYqV+aTxDWlGpIKV4l0pUipLR+3AOUCRm5+EfKwMshIwF1
+kFGECBTZJwVt/Je8BwUrPJSVzS4Hk3y20eOIRL1iCVPia4rk/x3SMtb5ZTDe7ti5EkWJG
+RNscg4yEqm4tBdawTW2bGrdJirh799ZOPoV5Td4gPKYZdm2PperwAAAABJRU5ErkJggg=
+=" title="img-tag, normal" alt="Inlineimage">

print "dummycode";
[download]

and call

pod2html pod_img.pl >pod_img.html
[download]

the resulting html-file shows an image in most modern browsers! (Officially also in IE7, but I couldn't test it! So please tell me if ...)

PLEASE NOTE: The image data is in one long line, the linebreaks were inserted by the perlmonks-formatter.

Cheers Rolf

Comment on Inline images in POD Select or Download Code

Replies are listed 'Best First'.
Re: Inline images in POD by dpchrist (Initiate) on Nov 17, 2011 at 04:12 UTC
How did you create the src string? `"data:image/png;base64,iVBORw0K...=="`	[reply] [d/l]
Re^2: Inline images in POD by Anonymous Monk on Nov 17, 2011 at 07:41 UTC
Hi See URI::data - URI that contains immediate data #!/usr/bin/perl -- use strict; use warnings; use URI; use IO::File; my $u = URI->new("data:"); $u->data(join '', IO::File->new( 'camel.favicon.png' , '<:raw' )->getl +ines ); $u->media_type("image/png"); print qq[<p><img src="$u">\n]; __END__ <p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABQAAAAVCAI +AAADJt1n/AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICE +AAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKdJREFUOE/Fk2sOgCAMg/HqxpuZe +C1sqI5ReSh/JATB7Os6HkuMMUw3wNMttMhjP7Z16+vWYWDWO3yGUTgAG5mZvcVfMIMAIA +4jd9D4AWwAJYj5Q6jyWrO3yjkL8TD+cKmwVC6w2SlgaH3qCpfGmlrpRl6xt/v0ZXKbVL2 +8hc1LTnVLV2z7zGLkucy7bdo+SDKLtMK+SKl8nFngD5nnz7n/bgcP4wf4BN5NffCErP3u +AAAAAElFTkSuQmCC"> [download] FWIW, new questions go in Seekers Of Perl Wisdom Welcome, see The Perl Monks Guide to the Monastery, see How do I post a question effectively?, Where should I post X?	[reply] [d/l]
Re^3: Inline images in POD by afoken (Chancellor) on Nov 18, 2011 at 10:57 UTC
data:-URLs are nice, but they have limits: Old browsers and especially IE<7 can't handle them, IE<9 has some arbitary limits for the data URL length. See http://en.wikipedia.org/wiki/Data_URI_scheme for a good overview. Base64 encoding can be done from the command line, as documented in MIME::Base64. Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]
Re^2: Inline images in POD by LanX (Saint) on Nov 17, 2011 at 22:53 UTC
3 years ago? I think I simply mailed it to myself and copied the base64 encoding. Cheers Rolf	[reply]


Do you know where your variables are?
	PerlMonks