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

Perl Cookbook
  • VAR(変数)=VALUE(値)と言う単純な設定ファイルを用意し、下記のコードで処理する。
while (<CONFIG>) {
  chomp;
  s/#.*//;
  s/^\s+//;
  s/\s+$//;
  next unless length; 
  my ($var, $value) = split(/\s*=\s*/, $_, 2);
  $User_Preferences{$var} = $value;
}
  • 設定ファイルをPerlコードとして書き、doで読み込む
do "$ENV{HOME}/.progrc";