Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
5023 bpr 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);