perlで文字コード知りたい場合、unpackを使う my $code = unpack("H*", $string ); コードから文字列を得たい場合はpack my $string = pack("H*", $code ); http://flex.ee.uec.ac.jp/texi/perl/perl_35.html

全角カナの大文字だけ許可したかったので正規表現を作った。 use Jcode; my $hoge = Jcode->new("カナ")->euc; my $zkatakana_omozi = '(?:\xA5[\xA2\xA4\xA6\xA8\xAA-\xC2\xC4-\xE2\xE4\xE6\xE8-\xED\xEF\xF2-\xF4])'; if( $hoge =~ /^($zkatakana_omozi)+$…

package Hoge; use strict; use base qw/Class::Accessor::Fast/; sub run { } 1; で、スクリプト側から実行権限つけて実行させたら "Class::Accessor::Fast" is empty. って言われた。 perldoc Class::Accessor::Fast でみてもある。 perl hoge.pl で実行し…

パッケージの内容にまとめてアクセスするにはシンボルテーブルにアクセスする。 for my $key ( keys %main:: ) { print $key."\t".$main::{$key}."\n"; } こんな感じの結果を得る。 CORE:: *main::CORE:: DynaLoader:: *main::DynaLoader:: stdout *main::st…