encode
use strict; use warnings; use Encode; use Unicode::Japanese; my $s = 'ほげⅠふが'; my $e = $s; $e = decode('utf-8', $e); $e = encode('shiftjis', $e); open my $fe, '>', 'encode'; print $fe $e; # ほげ?ふが close $fe; my $u = $s; $u = Unicode:…
use strict; use warnings; use Encode; use Unicode::Japanese; my $s = 'ほげⅠふが'; my $e = $s; $e = decode('utf-8', $e); $e = encode('shiftjis', $e); open my $fe, '>', 'encode'; print $fe $e; # ほげ?ふが close $fe; my $u = $s; $u = Unicode:…