perlで設定ファイルの読み方

○○=△△みたいな設定ファイルを読む。

# 設定ファイル
HOGE = hogehoge
PIYO = piyopiyo

use strict; use warnings;

# 連想配列に設定ファイル読み出し
my %s;
if( open FH, 'hoge.conf' ){
    while(<FH>){ $s{$1}=$2 if(/^(\w+)\s*=\s*([-.\w]+)/); }
    close(FH);
}

# 読めたか確認
while( my ($k,$v)=each %s ){ print "$k=$v\n"; }

Permalink | コメント(2) | トラックバック(0)

コメントを書く

hisaichi5518 2010/08/07 16:31 Config::Tinyを使えばいいと思います！

iww 2010/08/08 00:58 Config::TinyとかConfig::Simpleとか
使えれば楽だよなぁ・・・

スパム対策のためのダミーです。もし見えても何も入力しないでください

画像認証

トラックバック - http://d.hatena.ne.jp/iww/20100807/while

リンク元

2006 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2012 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |

揮発性のメモ

2010/08/07 (土)

perlで設定ファイルの読み方