http://f22.aaa.livedoor.jp/~deagle/AE/Perl-CGI/Tips/#config_pl あ、これでいいなｗソラで書いてみた。デバッグはしていない。 sub readconfig { my ($file) = @_; my %config; return unless -f $file; if (open my $h, '<', $file) { # sysopen is to b…