js_unescape

   1 #!/usr/bin/perl -W
   2 use encoding utf8;
   3 $ARGV[0]="--help" unless(@ARGV);
   4 exit 0 unless(system("plhelp",$0,(@ARGV)));
   5
   6 sub js_unescape {
   7     foreach(@_) {
   8         $_ =~ s/%u([0-9a-f]+)/chr(hex($1))/eig;
   9         $_ =~ s/%([0-9a-f]{2})/chr(hex($1))/eig;
  10         print($_);
  11     }
  12 }
  13 if ( @ARGV<1 ) {
  14     &js_unescape(<STDIN>);
  15 }
  16 else {
  17     my @strings;
  18     foreach(@ARGV) {
  19         push(@strings,Encode::decode("utf8",$_));
  20     }
  21     &js_unescape(@strings);
  22 }