root/misc/uridatadecode

Revision 2948 (checked in by miyagawa, 10 years ago)

use env perl

  • Property svn:executable set to *
Line 
1 #!/usr/bin/env perl
2 use strict;
3 use Pod::Usage;
4 use URI;
5
6 my $uri = URI->new(join "", <>);
7 $uri->scheme eq 'data' or pod2usage("Input data is not data URI");
8 print $uri->data;
9
10 __END__
11
12 =head1 NAME
13
14 uridatadecode - decodes data: URI scheme and print it to STDOUT
15
16 =head1 SYNOPSIS
17
18   > uridatadecode
19   data:...
20   ^D
21
22 =cut
Note: See TracBrowser for help on using the browser.