Subversion Repositories wimsdev

Rev

Rev 5023 | Blame | Last modification | View Log | RSS feed

  1. #!/usr/bin/perl
  2.  
  3. use Encode;
  4. push (@ARGV,split(' ', $ENV{'wims_exec_parm'})) if ($ENV{'wims_exec_parm'}) ;
  5. open (IN , $ARGV[0]) ;
  6.  while (<IN>) {
  7.    my $t=decode('utf-8',$_);
  8.    print encode("iso-8859-1",$t)
  9.  }
  10. close(IN);