user-tools/url_encode

   1 #!/usr/bin/env perl
   2
   3 sub decode {
   4         $_[0] =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
   5         return $_[0];
   6 }
   7 sub encode {
   8         $_[0] =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
   9         return $_[0];
  10 }
  11
  12
  13 if($0 =~ /decode/) {
  14         $fgv = \&decode;
  15 }
  16 else {
  17         $fgv = \&encode;
  18 }
  19
  20
  21 if(scalar @ARGV > 0) {
  22         # parameters given
  23         print $fgv->(join " ", @ARGV);
  24 }
  25 else {
  26         # process stdin
  27         print $fgv->($_) while(<STDIN>);
  28 }
  29
  30
  31 __END__
  32
  33 =pod
  34
  35 =head1 NAME
  36
  37 url_encode - Escape URL-unsafe chars in text given either in parameters or in stdin by percent-encoding
  38
  39 url_decode - Unescape percent-encoded sequences given either in parameters or in stdin
  40
  41 =cut
  42