揮発性のメモ2

http://d.hatena.ne.jp/iww/

2010-08-07から1日間の記事一覧

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

○○=△△みたいな設定ファイルを読む。 # 設定ファイル HOGE = hogehoge PIYO = piyopiyouse strict; use warnings; # 連想配列に設定ファイル読み出し my %s; if( open FH, 'hoge.conf' ){ while(<FH>){ $s{$1}=$2 if(/^(\w+)\s*=\s*([-.\w]+)/); } close(FH); } #</fh>…