Encode その2

utf8　→　sjis　に変換

---------------

use Encode;
my $str = "テスト元の文字コードは utf8'";
print $str;
print "\n";
$str = decode('utf-8', $str);
$str = encode('shiftjis', $str);
print $str;

------------------
use Encode;
my $str = "テスト元の文字コードは utf8'";
print $str;
print "\n";
print encode('shiftjis', decode('utf-8', $str));

---------------
でも可。