#!/usr/bin/perl
use Encode;
$^I = "";
#open TEST_A, ">file1.txt";
while (<>)
{
print $_;
$AAA = encode("ISO-8859-1", decode("utf8",$_));
print $AAA;
#$AAA = encode("gb2312", decode("utf8",$_));
#print TEST_A "$AAA";
}
#close TEST_A;
#!/usr/bin/perl
use Encode;
$^I = "";
#open TEST_A, ">file1.txt";
while (<>)
{
print $_;
$AAA = encode("ISO-8859-1", decode("utf8",$_));
print $AAA;
#$AAA = encode("gb2312", decode("utf8",$_));
#print TEST_A "$AAA";
}
#close TEST_A;