> デコード部分で
> $value =~ s/\x1b\$[\x21-\x7a]+\x0f//g;
> $value =~ /\xf8[\x9f-\xff]|xf9[\x40-\x49\x72-\xb0]/i;
$value =~ s/\x1b\$[\x21-\x7a]+\x0f//g;
$value =~ s/\xf8[\x9f-\xff]|\xf9[\x40-\x49\x72-\xb0]//i;
ですね。
正規表現です。
(ぱっと見ただけでの誤りを修正しただけなのでもう少し間違いがあるかも知れません)
|