イコール区切りのファイルを読むタイ付きハッシュ
- [Perl]
package EqualSeparated；
sub TIEHASH
{
my ($class, $file) = @_;
my @lines = ();
eval
{
open FH, "<$file" or die $!;
@lines = <FH>;
close FH;
};
bless {
map {$_->[0] => $_->[1]}
grep {$_->[0]}
map {[/^(\w+)\s*=\s*([^\r\n]+)\s*$/]} @lines
}, $class;
}
sub FETCH { $_[0]->{$_[1]} }
sub EXISTS { exists $_[0]->{$_[1]} }
sub FIRSTKEY { keys %{$_[0]}; each %{$_[0]} }
sub NEXTKEY { each %{$_[0]} }
トラックバック
- このエントリーにトラックバック:
- http://frog.raindrop.jp/cgi-bin/mt/mt-tb.cgi/2537
コメント