iconv_test

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     iconv_test
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     2008-09-10 01:52:04
   5 ###APPVER:      0.1
   6 ###APPDESC:     iconv_test
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  iconv_test
   9 ###APPOPTION:
  10 use strict;
  11
  12 #ENV variable MUST be defined somewhere,
  13 #FOR perl to search modules from,
  14 #OR nothing will work
  15 use lib $ENV{XR_PERL_MODULE_DIR};
  16
  17 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  18 exit 0 if(help_required($0,@ARGV));
  19 #exit 0 if(help_even_empty($0,@ARGV));
  20
  21 my @charsets;
  22 open FI,"-|",'iconv -l';
  23 while(<FI>) {
  24     chomp;
  25     s/\/+$//;
  26     push @charsets,$_;
  27 }
  28 close FI;
  29
  30 my @text;
  31 while(<>) {
  32     push @text,$_;
  33 }
  34
  35 foreach(@charsets) {
  36     my $answer;
  37     print STDERR "Try $_ (y/n)? ";
  38     $answer = <STDIN>;
  39     print STDERR "\n";
  40     last if($answer eq "n\n");
  41     open FO,"|-","iconv","-f",$_;
  42     print FO $_ foreach(@text);
  43     close FO;
  44     print STDERR "="x40,"\n","iconv -f $_\n";
  45 }
  46