perl读取配置文件

sub readCon<a href="https://www.jb51.cc/tag/fig/" target="_blank" class="keywords">fig</a>($) { my $file = shift; my %con<a href="https://www.jb51.cc/tag/fig/" target="_blank" class="keywords">fig</a> = (); open (CF,"<",$file) or die "Error: open file: $file error!/n $!/n"; print "<-> readCon<a href="https://www.jb51.cc/tag/fig/" target="_blank" class="keywords">fig</a> Reading con<a href="https://www.jb51.cc/tag/fig/" target="_blank" class="keywords">fig</a> file: $file./n"; while (<CF>) { chomp(); next if (/^/s*#/); next if (/^/s*$/); next unless (/^[^;]+;[^;]+$/); $_ =~ s/^/s*//; $_ =~ s/#.*$//; my ($key,$value) = split //s*;/s*/; $con<a href="https://www.jb51.cc/tag/fig/" target="_blank" class="keywords">fig</a>{$key} = $value; } close (CF); return /%con<a href="https://www.jb51.cc/tag/fig/" target="_blank" class="keywords">fig</a>; }