user-tools/base64url

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
   5 use MIME::Base64 qw/encode_base64url decode_base64url/;
   6
   7 if($ARGV[0] ~~ ['-d', '--decode'])
   8 {
   9         undef $/;
  10         print decode_base64url(<STDIN>);
  11 }
  12 elsif(not @ARGV)
  13 {
  14         undef $/;
  15         print encode_base64url(<STDIN>);
  16 }
  17 else
  18 {
  19         die "Usage: $0 [-d | --decode]\n";
  20 }
  21
  22 __END__
  23
  24 =pod
  25
  26 =head1 NAME
  27
  28 base64url - Encode to (decode from) Base64-URL encoding
  29
  30 =cut
  31