CGIに依存しないPerlの話題一般/Part2 (258ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

177(2): 03/03/30 18:00 ID:Okt0zbYe(1) AAS
Perl 5.8なんですが，

use encoding 'euc-jp';

$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /あ/;

だと「1」が出力されます。

use encoding 'euc-jp', Filter=>1;
省5

---

178: マリモーマ ◆r6PDGT6Xd2 03/03/31 05:02 ID:opWXfh3V(1) AAS
>>177
そりゃ　両方成り立ってるからでは？

---

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";
省2

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.010s