Perl コーディング初心者質問コーナー Part28

>>853

print sjis_num_z2h('私は７７４３です');

BEGIN {
require 'jcode.pl';
my $euc_num = '０１２３４５６７８９';
&jcode::sjis2euc(\$euc_num);

sub sjis_num_z2h
{
my $str = shift;
&jcode::sjis2euc(\$str);
&jcode::tr(\$str, $euc_num, '0123456789');
&jcode::euc2sjis(\$str);
return $str;
}
}

#string::multibyte,Jcodeモジュールの方がまだ楽。