perl 設定ファイルを読み込む

設定ファイルをを作成する

#設定ファイル
#config

$name = "太郎";
1;

この設定ファイルを読み込む

#設定ファイルを読み込むスクリプト
# config_load.pl

#初期値
$name = "匿名";

#ファイルの存在チェック
if(-r "config"){
    require("config");
}

print "こんにちは、$nameさん。\n";

#ファイルテスト演算子-rを使ってconfigというライブラリファイルの存在をチェックしている。configというファイルが存在しており、読み込みが可能であればrequireによってその内容を読み込んでいる。

もしconfigファイルが存在しなければスクリプト内で設定した変数の初期値が使われ「こんにちは、匿名さん。」と表示される。

#実行結果
# こんにちは、太郎さん。

初めてのPerl 第6版