Perlコーディング初心者質問スレ Part 56

Perlコーディング初心者質問スレ Part 56 at PHP

422:nobodyさん
07/10/23 17:42:25
>>421
#!/usr/local/bin/perl -w
use strict;
use Encode qw(from_to);
use Encode::JP::H2Z;

my $text = 'このﾌｧｲﾙはUTF-8で～半角ｶﾅ混じりの文字列';

from_to($text, utf8 => 'cp932');
from_to($text, shiftjis => 'euc-jp');
Encode::JP::H2Z::h2z(\$text);
print $text;
__END__

別解。
use Unicode::Japanese qw(unijp);
print unijp($text)->h2zKana->euc;

次ページ

続きを表示

1を表示