次のようなiniファイルがあります
[backup]
[persistence]
log_backup_timeout_s = 900
log_mode = normal
このファイルを更新したい
[backup]
data_backup_parameter_file = /usr/sap/SI1/SYS/global/hdb/opt/hdbconfig/param
log_backup_parameter_file = /usr/sap/SI1/SYS/global/hdb/opt/hdbconfig/param
log_backup_using_backint = true
[persistence]
basepath_logbackup = /usr/sap/SI2/HDB02/backup/log
basepath_databackup= /usr/sap/SI2/HDB02/backup/data
enable_auto_log_backup = yes
log_backup_timeout_s = 900
log_mode = normal
答え1
非常にシンプルなモジュールを使用する Perl バージョンを次に示しますConfig::Tiny
。
#! /usr/bin/perl
use Config::Tiny;
use strict;
my $cfg = Config::Tiny->read( './backup.ini' );
# create a hash containing changes to [backup]
my %B = ('data_backup_parameter_file' => '/usr/sap/SI1/SYS/global/hdb/opt/hdbconfig/param',
'log_backup_parameter_file' => '/usr/sap/SI1/SYS/global/hdb/opt/hdbconfig/param',
'log_backup_using_backint' => 'true',
);
# loop through the hash and add them to the .ini stored in $cfg
foreach my $b (keys %B) {
$cfg->{'backup'}->{$b} = $B{$b};
};
# create a hash containing changes to [persistence]
my %P = ('basepath_logbackup' => '/usr/sap/SI2/HDB02/backup/log',
'basepath_databackup' => '/usr/sap/SI2/HDB02/backup/data',
'enable_auto_log_backup' => 'yes',
);
# loop through the hash and add them to the .ini stored in $cfg
foreach my $p (keys %P) {
$cfg->{'persistence'}->{$p} = $P{$p};
};
$cfg->write( 'new.ini' );
Config::Tiny
Debian (および派生版)、Fedora、Centos、OpenSuSE およびその他のディストリビューション用にパッケージ化されているため、適切なパッケージ管理ツールを使用して簡単にインストールできます。他のシステムでは、CPAN を使用してインストールします。
.ini ファイルを操作するための Perl モジュールは他にも多数あり、その中にはより多くの機能を備えたものや、よりオブジェクト指向的なアプローチを採用しているものもあります。 Config::Tiny
ハッシュのみで動作し、より複雑なものほど多くの設定やマニュアル ページを読む必要がないため、このような単純なタスクに適しています。