2008年09月14日15:21 Perl モジュールで既にimport関数を実装しているときー use Sample; して、関数をexportしたいんだけど、Sample.pmの中で、既にimport関数を実装しててうまくexport出来ないってときは↓でOK package Sample; use strict; use warnings; our @ISA = qw(Exporter); # use base qw(Exporter);と同じ our @EXPORT = qw(hoge fuga); sub import { print "import called\n"; $Sample::hoge = 1; $Sample::fuga = 1; Sample->export_to_level(1, @_); } sub hoge { return $_[0] * $_[1] }
おまえは何を言っているんだみたいな話だったらすみません。 たとえば，foo() という関数を export している ModA というモジュールがあるとします。 package ModA; use strict; use warnings; use base qw( Exporter ); our @EXPORT = qw( foo ); sub foo { warn sprintf '%s::foo called', __PACKAGE__; } 1; こいつをたとえば #!/usr/bin/perl use strict; use warnings; use ModA; foo(); のように使うと， ModA::foo called at ModA.pm line 12.のように出ます。 ここまでは当たり前。 use ModB したら ModA::foo() を呼び出せるようにしたい
Perl › モジュール › here Exporterモジュールを使用すると、モジュールから関数をエクスポートすることができます。 # パッケージの宣言 package YourModule; # Exporterを継承 use Exporter 'import'; # エクスポートする関数を記述 our @EXPORT = qw/func1 func2/; # エクスポート可能な関数を記述 our @EXPORT_OK = qw/func3 func4/; # 関数 sub func1 { ... } sub func2 { ... } sub func3 { ... } sub func4 { ... } Exporterを使ってモジュールを作成すると、そのモジュールをuseしたときに関数がインポートされます。 「use モジュール名;」という形でuseを実行した場合は@EXPORT
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
