Perlについての質問箱 41箱目at TECHPerlについての質問箱 41箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト50:デフォルトの名無しさん 09/08/16 17:31:45 >>45 use Encode qw(decode encode); my $text = "abcひらがなdef漢字ghiﾊﾝｶｸjkl"; my $code = "cp932"; my $text_utf8 = decode($code, $text); my @text; push @text, encode($code, $1) while( $text_utf8 =~ /(\p{InBasicLatin}+|[^\p{InBasicLatin}]+)/g ); 51:デフォルトの名無しさん 09/08/17 00:29:28 しかし日本語関係のトラブル多いな がちがちに防御した書き方しなくても、 perlが手抜きしてなければ動くのに 52:デフォルトの名無しさん 09/08/17 01:55:47 てすと 53:デフォルトの名無しさん 09/08/17 08:10:54 use utf8; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $jp; ←DBから引っ張ってきたベタUTF-8（のはず） utf8::decode($jp); # これがあってもなくても "$jp 日本語\n"; # 文字化けする。 "$jp"; # 大丈夫 "日本語"; # これも大丈夫 XML::RSSでおかしくなります。助けてください。 54:デフォルトの名無しさん 09/08/17 08:41:38 >>53 ＞ "$jp 日本語\n"; # 文字化けする。 ＞ "$jp"; # 大丈夫 ＞ "日本語"; # これも大丈夫 日本語がEUCかSJISになってる 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch