root/misc/uridatadecode

Revision 1876 (checked in by miyagawa, 14 years ago)

add uridatadecode

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 use URI;
3 my $uri = URI->new(join "", <>);
4 $uri->scheme eq 'data' or die "Input data is not data URI";
5 print $uri->data;
6
Note: See TracBrowser for help on using the browser.