Perl、オブジェクト指向での初期設定ファイルについて。
Perl、オブジェクト指向での初期設定ファイルについて。
最近、Perlでのオブジェクト指向を勉強中です。
今までのプログラムをオブジェクト指向に書き直そうと思っています。
クラスを作成して呼び出す程度までは理解できたのですが、
今まで、サーバの絶対パスや、データベースの名称などを、
config.pl というファイルを作って、グローバル変数で宣言していました。
例 $local_parh = "/virtual/xxx/bbb/public_html";
$dbname = "testdb";
$dbuser = "username";
でも、オブジェクト指向では、グローバル変数を使わないようにするということで、
このあたりをふつうはどんなふうに作成するのかとおもったのですが、
なかなか検索しても見つかりません。（検索の仕方が悪いのかもしれませんが）
今思いつく方法は、config.pm などを作って
--------------------------------------------------
package Config;
sub new{
my $class = shift;
my $self= {
local_path => '/virtual/aaa/bbb/public_html',
dbname => 'testdb',
dbuser => 'username'
};
return bless ($self,$class);
}
sub get_local_path {
my ($self, $name) = @_;
return $self->{'local_path'};
}
--------------------------------------------------
use Config;
$obj=new Config();
$local_path = $obj->get_local_path();
--------------------------------------------------
とするような感じなのですが、なんだかスマートじゃない気がするので
普通ははどんなふうに書くのか教えてもらえますか？
