Perl、オブジェクト指向での初期設定ファイルについて。

Question

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();
--------------------------------------------------

とするような感じなのですが、なんだかスマートじゃない気がするので
普通ははどんなふうに書くのか教えてもらえますか？

an631 · Accepted Answer

>今まで、サーバの絶対パスや、データベースの名称などを、

>config.pl というファイルを作って、グローバル変数で宣言していました。

定数を使いたいのであれば型グロブが良いかと思います。
型グロブを使えばget_local_pathの様なアクセサを使う必要はありません。

>でも、オブジェクト指向では、グローバル変数を使わないようにするということで、

『oop＝全てパッケージ化しなくてはいけない』ということでは無いと思いますので、私であれば下記のようにします。

init.pm
--------------------------------------------------
*LOCAL_PATH = \"/virtual/aaa/bbb/public_html";

main.cgi
--------------------------------------------------
#!/usr/bin/perl

require "init.pm";

print "Content-type: text/html;\n\n";
print <<"HTML";
<html>
<body>
<img src="$main::LOCAL_PATH/images/abc.gif">
</body>
</html>
HTML
exit;

HTML exit;

Tacosan · Answer

えぇっと.... あなたが何を期待しているのかが今一つ見えないのですが....
とりあえず
「定数だと埋め込めない」というのは, 「文字列中でその値に展開してくれる」ということだと理解しました.
「get_local_path()などを用意しなくてもいいやり方」については何を期待しているのかよくわかりません.
また, 初期化の方法とか「プログラム中で随時変更できるのかどうか」あたりも作り方に影響することがありえるので, これもあなたがどう期待しているのか書いてもらえるとありがたいかな.
おっと, 「スマートかどうか」の判断基準も欲しいか.
ことによっては tie かなぁ (ぼそっ).
ちなみに最も頭を使わない方法は
package Config;
our $local_parh = "/virtual/xxx/bbb/public_html";
our $dbname = "testdb";
our $dbuser = "username";
1;
と「パッケージの中にグローバルな変数を作る」だったりする.

Tacosan · Answer

「オブジェクト指向では、グローバル変数を使わないようにする」というのも, なんだか的を外しているような気がするけど....
その設定が「読み込んだら変更されることはない」というものであれば, 例えば
package Config;
{
my $local_path = ....;
sub get_local_path {
$local_path;
}
}
1;
のようにすることもできます. 使う方では
use Config;
$local_path = Config::get_local_path();
とする. 要は Config の中に隠しているだけですが.
もちろんこの方法が「スマート」かどうかは知りません.

Perl、オブジェクト指向での初期設定ファイルについて。

>今まで、サーバの絶対パスや、データベースの名称などを、

えぇっと.... あなたが何を期待しているのかが今一つ見えないのですが....

「オブジェクト指向では、グローバル変数を使わないようにする」というのも, なんだか的を外しているような気がするけど....

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング