#!/ms/dist/perl5/bin/perl5.8 -I ../   
 
use MSDW::Version   
'HTML-Parser'        => '3.56', # HTML::Entities may be used by HTTP::Response   
;   
 
use Encode;
use strict;   
use Data::Dumper;   
use HTML::Entities;
use HTML::Entities qw(encode_entities_numeric);

 
my @arr_val = ();
$arr_val[0] = '!"#$%&'()*+,-./   0123456789:;<=>?' ;
$arr_val[1] = '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~' ;
$arr_val[2] = 'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß' ;
$arr_val[3] = 'àáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ' ; 
$arr_val[4] = '¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿' ; 
$arr_val[5] = 'others ŒœŠšŸƒ–—‘’‚“”„†‡•…' ;

my $bcp_in_file = "/tmp/testbcp.in" ;
my $out_str = "" ;
if (!(open ( TEMP_OUT, ">$bcp_in_file" ) ))  ##REVISIT##  
{
	print "Error: cannot open the file \n";
}

foreach my $temp_var (@arr_val)
{
    print "\nProcessing value 		[$temp_var] \n";

    decode_entities($temp_var) ;
    print "After HTML decode [$temp_var] \n";
    my $temp_var2  = decode_utf8($temp_var);
    print "After UTF8 decode [$temp_var2] \n\n";
    print TEMP_OUT $temp_var2 ;   

    #my $temp_var3 = encode_utf8($temp_var2);
    #print "After UTF8 encode [$temp_var3] \n";
    #my $temp_var4 = encode_entities($temp_var3, '"&<>' );
    #print "After HTML encode [$temp_var4] \n";
}
1;   
############ End of Script #################