現在、perlを勉強中でSereneBachのプラグインを作っている中で文字コードの変換が必要になったのでその覚えたての事を覚書として残しておきます。
注意:間違っている可能性は、大ですのでご了承ください。
追記:use sb::Language (); を入れなきゃ駄目でしたね。
注意:間違っている可能性は、大ですのでご了承ください。
use sb::Language ();
my $text;
#インストールしたSereneBachの文字コードを取得(euc-jp版かutf-8版)
# $codeには、'euc' か 'utf8' が入る
my $code = sb::Language->get->charcode;
#次のコードをいれないとうまく変換ができないのですが
#たぶん、sjis の部分に変換前の文字コードを入れコードチェックを行う?
sb::Language->get->checkcode('','sjis');
#最後に$textの部分に変換したい文字が入っているスカラー変数を指定し、
#$codeの部分に変換後の文字コードを指定する。
$text = sb::Language->get->convert($text,$code);
#すると、$textに文字コードを変換した文字列がセットされます。
追記:use sb::Language (); を入れなきゃ駄目でしたね。
EIZO Japan 1
Live Immortal(tentative) [DVD]
EIZO Japan 2
ザ・サークル~デラックス・エディション(DVD付)
METAMORPHOSIS(初回生産限定盤)(DVD付)


Comments