にひりずむ::しんぷる - いまさらTTをutf8環境下で何も考えずに扱えるモジュールを書いたけど使わない方がいいと知った
理由は下記参照 Template-Toolkit - モダンなPerl入門 - モダンなPerl入門 2008-02-18 - Bulknews::Subtech - subtech やはり、プログラムやモジュールでは「この文字列は Unicode 文字列であるかバイト列であるかわからない」という入出力パラメータを扱うべきではなく、つねに「Unicode 文字列」や「バイト列」であることを明確にしておくべき。 これには激同なので、そういう方向で。 つまり、バイト列だろうが内部コードだろうがおいしく頂いちゃうモジュールはよろしくないよってこと。 と、いいつつも自作モジュールは大抵おいしく頂いちゃう仕様なのだけども
にひりずむ::しんぷる - いまさらTTをutf8環境下で何も考えずに扱えるモジュールを書いた
HTML::Template::Proをそれなりに使ってきたのだけど、このたびTemplateを使うことにした。 HTML::Templateでもはまったけど、utf8な文字を普通に使うと文字化けする。 解決策は以下のリンク先にいくつかあります。 use Encode; - 今日のCPANモジュール Template::Toolkitでutf-8を扱う - Lism.in * blog - nekoya (id:studio-m) use strict; use utf8; use Template; binmode STDOUT => ':utf8'; my $tt = Template->new( UNICODE => 1, # unicodeで書かれたファイルをflagged utf8にして読む ENCODING => 'utf8', # $varsがbyteだったらutf8でdec
にひりずむ::しんぷる - flaged utf8時のprintf "%20s"とか
utf8フラグ付き文字の場合、length()とかsubstr()とかはバイト単位でなくて、文字単位で扱ってくれてすごい便利。 で、printfの文字列指定子である「%s」も文字単位で扱うようになる。 そのせいで、2バイト表記文字のフォーマットが崩れちゃう。 use strict; use warnings; use utf8; my $sb_str = 'abcde'; my $mb_str = 'ぁぃぅぇぉ'; printf "%-10s : %d\n", $sb_str, length($sb_str); printf "%-10s : %d\n", $mb_str, length($mb_str); abcde : 5 ぁぃぅぇぉ : 5 欲しかったのは abcde : 5 ぁぃぅぇぉ : 5 なのに！ うまい方法わからなかった！ 仕方ないのでこんな書いて sub mb_count
にひりずむ::しんぷる - てってってーをちょっと改良
明示的に文字コード指定したときは、out_utf8_flagが立っていようとエンコードする様に変更しました。 # utf8フラグなしで出力 #$tee->out_utf8_flag = 0; # ちゃんとsjisで出力 print $tee->output('sjis'); ソースは続きに置いときます package Language::Tettettee; use strict; use warnings; use utf8; use Encode; use Carp; our $VERSION = 0.02; my $utf8 = find_encoding 'utf8'; sub new($;$$) { my $class = shift; my $enc = shift || $utf8; $enc = find_encoding $enc unless ref $enc; ble
にひりずむ::しんぷる - コマンドプロンプトでUnicodeを扱う Win32::Unicode モジュール書いた
最新版はgithubにありますよっと xaicron's win32-unicode at master - GitHub 前々からActivePerlでUnicode文字のファイル名をうまいこと扱えないかな〜と思っていろいろ調べていたのだけれど、それっぽいモジュールはCPAN探した限り見つからなかった。 探し方が悪いのか、もしかしたら基本的なこと過ぎて誰も作ってないのかもとかも思ったのだけど、ないものは仕様がないのでWin32::Unicodeとかいうのを書いてみた。 中身的にはWin32APIを一生懸命叩いているだけです。 ほぼ初めてWin32APIというかCのコードとか見たり調べたりしたため、間違いとかいっぱいあるかも知れません。 因みにPerlのバージョンはActivePerl 5.10.0 build 1004です あと、将来的にCPANにあげるとして（あげるのか？）、Win32
UTF8 フラグあれこれ - daily dayflower
UTF8 フラグについてわかってるつもりだったんですが，utf8::is_utf8 considered harmful - Bulknews::Subtech - subtech を読んで混乱したので，自分なりにまとめてみました。間違いがありましたらご指摘よろしく。 まとめ スカラー変数の内部表象の状態を示すものとして UTF8 フラグというものがある スカラー変数は（リファレンス等は別として）下記のものを格納できる (A) 文字列（内部表象: UTF-8） (B) 文字列（内部表象: ISO-8859-1） (C) バイナリ列 純粋なバイナリストリーム（画像ファイル等）かもしれないし， UTF-8 octet stream かもしれないし， CP932 octet stream かもしれないし，etc, etc ... Perl は（後方互換性確保などの理由から）ISO-8859-1
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
