ホーム > Perl > Perlでパッケージに定義されているメソッドを出力する

Perlでパッケージに定義されているメソッドを出力する

2006 年 3 月 15 日 oinume コメントをどうぞ コメント

Perlであるパッケージに定義されているメソッドを調べたい場合は、シンボルテーブル(%パッケージ名::)をダンプしてやればオッケーなようです。例えばClass::Accessorのシンボルテーブルをダンプするには下記のように書けばOK。

$ perl -MClass::Accessor -MData::Dumper -e 'print Dumper(\%Class::Accessor::)'
$VAR1 = {
          '__ANON__' => *Class::Accessor::__ANON__,
          'mk_wo_accessors' => *Class::Accessor::mk_wo_accessors,
          'mk_accessors' => *Class::Accessor::mk_accessors,
          'make_ro_accessor' => *Class::Accessor::make_ro_accessor,
          'mk_ro_accessors' => *Class::Accessor::mk_ro_accessors,
          'BEGIN' => *Class::Accessor::BEGIN,
          '_mk_accessors' => *Class::Accessor::_mk_accessors,
          'get' => *Class::Accessor::get,
          'new' => *Class::Accessor::new,
          'set' => *Class::Accessor::set,
          '_carp' => *Class::Accessor::_carp,
          'make_wo_accessor' => *Class::Accessor::make_wo_accessor,
          'import' => *Class::Accessor::import,
          'make_accessor' => *Class::Accessor::make_accessor,
          'VERSION' => *Class::Accessor::VERSION,
          '_croak' => *Class::Accessor::_croak
        };

Devel::Symdumpを使うとサブルーチンだったりスカラー変数などを区別することが可能です。まじめにシンボルテーブルを参照するようなプログラムであればこれを使った方が楽かもしれません。

$ perl -MDevel::Symdump -MClass::Accessor -MData::Dumper -e 'print Dumper([ Devel::Symdump->new("Class::Accessor")->functions ])'
$VAR1 = [
          'Class::Accessor::mk_accessors',
          'Class::Accessor::mk_wo_accessors',
          'Class::Accessor::accessor_name_for',
          'Class::Accessor::make_ro_accessor',
          'Class::Accessor::mk_ro_accessors',
          'Class::Accessor::get',
          'Class::Accessor::_mk_accessors',
          'Class::Accessor::best_practice_accessor_name_for',
          'Class::Accessor::new',
          'Class::Accessor::set',
          'Class::Accessor::best_practice_mutator_name_for',
          'Class::Accessor::_carp',
          'Class::Accessor::mutator_name_for',
          'Class::Accessor::make_wo_accessor',
          'Class::Accessor::follow_best_practice',
          'Class::Accessor::make_accessor',
          'Class::Accessor::_croak'
        ];

こちらもあわせてどうぞ


カテゴリー: Perl タグ:
  1. コメントはまだありません。
  1. トラックバックはまだありません。