perl - 使用 perl 更新现有变量值

Question

---

我有 sample.ini 文件

示例.ini

[Section1]
workers=3
port=8500
;
[Section2]
student=7
port=7688
;

如何从 Section1 读取workers 值并更新为workers=8

预期结果

[第1节]工人= 8 ...

提前致谢。

Answer 1

试试这个模块。我认为它完全符合您的要求：Config::IniFiles

use Config::IniFiles;
$cfg = Config::IniFiles->new( -file => "Sample.ini" );
$value = $cfg->val( 'Section1', 'workers' );
$value = $value + 5;
$cfg->setval( "agent", "numworkers", $value );
$cfg->WriteConfig( 'agent.ini', -delta => 1 );