役立つかもしれない小さな使用例を次に示します。- どこでも必要なデータを含む 1 つのモジュール (.pm) - サブルーチンを含む 1 つのモジュール (.pm) - 1 つのメイン プログラム (.pl)
メインプログラム (program.pl):
use strict;
use warnings;
use Data;
printf "%s\n%s\n", $Path->{HOME}, $Path->{WORK};
use MyModule; # uses Data
printf mymoduleproc();
サブルーチンを含むモジュール (MyModule.pm):
package MyModule;
use strict;
use warnings;
use base 'Exporter';
our @EXPORT = qw(mymoduleproc);
use Data;
sub mymoduleproc {
return "MyModule => $Data::Path->{HOME}, $Data::Path->{WORK}"
}
1;
(パス) 構成データ (Data.pm) を含むモジュール:
package Data;
use strict;
use warnings;
use base 'Exporter';
our @EXPORT = qw($Path);
our $Path = { HOME => '/home', WORK => '/work'};
1;
これは非常に単純な構造ですが、さらに進んでいく必要があります。また、こちらもお読みください。
rbo