- 论坛徽章:
- 0
|
回复 #2 noword2k 的帖子
但是读取ini文件以后就不一样了,比如说我ini文件这样的
[codestring]
home=D:\Develop\ECIF创新内部研发项目\产品
error=非法输入请重新输入
cmd=dir $test
path=c:\
[1]
help=生成codestring数据\n Usage:model.pl 1 [output]\n output 输出文件
xml=$home . "template\\model\\codestring.xml";
xsl=$home . "template\\model\\codestring_data.xsl";
p3=author
p4=version
cmd=dir $TEST $TEST1
[2]
help=生成codestring转换程序\n Usage:model.pl 2 [output]\n output 输出文件
xml=$home\template\model\codestring.xml
xsl=$home\template\model\codestring_explain2c.xsl
p3=author
p4=version
cmd=xalan -p date '$date' $xml $xsl
;end of ini
然后perl的读取方式这样的
use strict;
use Cwd;
use Config::IniFiles;
my @r;
my $dir = getcwd;
my $file = $dir . $ARGV[0];
my $key=$ARGV[1];
my %ini;
tie %ini, 'Config::IniFiles', ( -file => $file );
my $TEST = "/A";
my $TEST1= "/B";
my $cmd=$ini{$key}{'cmd'};
print $ini{$key}{'cmd'};
我如何能让$ini{$key}{'cmd'}的值为dir /A /B |
|