如何解决Perl Config :: IniFiles-如何创建“如果不存在” ini文件? WriteConfig方法因错误而失败
我想使用多个.ini文件来存储值集,以便稍后在我重新运行脚本时(例如,在重启后)使用。我正在尝试编写代码,使其首先检查特定的.ini文件是否存在,如果存在,则读取值,但如果不存在,则创建它(脚本随后将继续在其中存储值)。
if (-f '/path/to/file.ini') { # if file exists
# read file into object
my $ini = Config::IniFiles->new(-file => '/path/to/file.ini',-nomultiline => 1,-fallback => 'parameters',-commentchar => ';'
);
} else {
# create first instance of ini file
WriteConfig('/path/to/file.ini');
}
很显然,我不知道如何使用Config::InFiles
,因为它在WriteConfig('/path/to/file.ini');
上一直失败。
我可以使用此模块创建文件,还是必须以其他方式进行处理?
解决方法
WriteConfig
是一个对象方法,将被称为$ini->WriteConfig(...);
这将创建一个新文件:
use warnings;
use strict;
use Config::IniFiles;
my $ini = Config::IniFiles->new();
$ini->AddSection('section1');
$ini->newval('section1','param1',123);
$ini->WriteConfig('./file.ini');
文件file.ini
现在包含:
[section1]
param1=123
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。