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);