perl读取解析配置文件

概述sub config_parse { my  %CONFIG;     open(CONF,"$_[0]") or die "Can't open $_[0] : $!";     while(<CONF>){        chomp($_);        $_ =~ s/\;(.*)//;        next if($_ eq '');        if($_ =~ /(.+)=(.+ sub config_parse { my  %CONfig;     open(CONF,"$_[0]") or dIE "Can't open $_[0] : $!";     while(<CONF>){        chomp($_);        $_ =~ s/\;(.*)//;        next if($_ eq '');        if($_ =~ /(.+)=(.+)/){        my  $key=$1; $key =~ s/^\s+//; $key=~ s/\s+$//;        my  $value=$2;$value =~ s/^\s+//;$value =~ s/\s+$//;            $CONfig{$key}=$value;        }     }     return (\%CONfig); } 总结

以上是内存溢出为你收集整理的perl读取解析配置文件全部内容，希望文章能够帮你解决perl读取解析配置文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。