CGIに依存しないPerlの話題一般/Part2 (258レス)
上下前次1-新
181(1): 4 03/03/31 16:29 ID:i9DdbQyy(1) AAS
>>177
12とでるのは、print '1';print '2'だから、12と思う。
ここは分かってるよね?
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /\Qあ\E/;
というのはどうだろうか?
しかし、EUCなら/あ/で通ると思うが..
$a = 'あ';
print '1' if $a eq "\xa4\xa2";
print '2' if $a =~ /\xa4\xa2/;
で、12とでる?
上下前次1-新書関写板覧索設栞歴
あと 77 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.003s