[Perl] 今日のわからん:Encode::EUCJPMS

メモ。

なぜこういうコードでよいのか勉強中。

Encode::EUCJPMS
 http://cpansearch.perl.org/src/NARUSE/Encode-EUCJPMS-0.07/EUCJPMS.pm


sub encode($$;$)
{
    require Encode::JP::H2Z;
    my ($obj, $utf8, $chk) = @_;
    # empty the input string in the stack so perlio is ok
    $_[1] = '' if $chk;
    my ($h2z, $jis0212) = @$obj{qw(h2z jis0212)};
    my $octet = Encode::encode('cp51932', $utf8, FB_PERLQQ) ;
    $h2z and &Encode::JP::H2Z::h2z(\$octet);
    euc_jis(\$octet, $jis0212);
    return $octet;
}


これ、FB_PERLQQじゃなくて、$chkではないかとにらんでいるのだが。
でないと、上からFBのスイッチを指定した時に無視されて、全部FB_PERLQQ扱いにされちゃうような気がしてるんですが、おじいさんの考え方が間違っているのか。。
Encode::JP::JIS7.pmなどを参考にすると、$chkなんだよね。

もう少し、Encode.pm周りのドキュメントを読んで、あれこれいじってから、結論を出す予定。

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック