INI文件的解析
发布时间:2020-12-15 21:10:40 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 package IniConf;use base 'Exporter';use strict;#export functionour @EXPORT = qw(load_conf get_conf_value);#hash table to hold conf filemy $m
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 package IniConf; use base 'Exporter'; use strict; #export function our @EXPORT = qw(load_conf get_conf_value); #hash table to hold conf file my $map={}; sub load_conf { my $file = shift; open CONF,"$file" or return ; binmode CONF,":utf8"; #if no section specified,put it into "global" section my $st="global"; while(my $line=<CONF>) { chomp($line); #remove prefix and suffiex space $line =~ s/^s+//; $line =~ s/s+$//; next if $line eq ""; my $first_c = substr($line,1); #skip comments next if $first_c eq '#'; if ( $first_c eq '[' && substr($line,-1) eq ']' ) { $st = substr($line,1,length($line)-2); } else { my ($k,$v) = ( $line =~ /([^=]+)=(.+)/ ); $k =~ s/^s+//; $k =~ s/s+$//; $v =~ s/^s+//; $v =~ s/s+$//; $map->{$st}->{$k} = $v; } } close CONF; } sub get_conf_value { my ($k,$sec) = @_; $sec = "global" if not defined $sec; return "" unless ( exists $map->{$sec} && exists $map->{$sec}->{$k} ) ; return $map->{$sec}->{$k}; } 1; 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |