perl解析ini文件的脚本如下:
use Config::Abstract::Ini;
my $ini_path="c:\\";
my $settingsfile = $ini_path."codestring.ini";
my $ini = new Config::Abstract::Ini($Settingsfile);
my %settings = $ini->get_entry('codesting');
my $home = $settings->get_entry_setting('codestring','home');
($val,$p3,$p4)=@ARGV;
my $count=3;
if (@ARGV!=$count)
{my $error = $settings->get_entry_setting('codestring','error');
print $error;}
my $date = getTime();
if(defined($p3)&&defined($p4))
{my %part1 = $ini->get_entry_setting('codestring','$val');
my $help = $($val){'help'};
my $xml = $($val)('xml');
my $xsl = $($val)('xsl');
my $p3 = $($val)('p3');
my $p4 = $($val)('p4');
my $cmd = $($val)('cmd');
print `$cmd`;}
else
{print $help;}
sub getTime #日期函数
{
my $time = shift || time();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
$year += 1900;
$mon ++;
$min = '0'.$min if length($min) < 2;
$sec = '0'.$sec if length($sec) < 2;
$mon = '0'.$mon if length($mon) < 2;
$mday = '0'.$mday if length($mday) < 2;
$hour = '0'.$hour if length($hour) < 2;
my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];