理解があいまいなので、試しに色々書いてみる。 まずはeuc-jpでスクリプトを書いてみる。 my $str = "漢"; print ".は文字にマッチする\n" if ($str =~ /^.{1}$/); print ".はバイトにマッチする\n" if ($str =~ /^.{2}$/); 「.はバイトにマッチする」が出力…

tie変数は普通の変数のように見えて実はオブジェクトな変数。スカラーのtie変数の書き方 （ほとんどプログラミングPerl丸うつし） use strict; package Person; sub TIESCALAR { bless (\my $name, shift); } sub STORE { ${$_[0]} = $_[1]; } sub FETCH { $…