awkを使用してINIファイルを更新したい

awkを使用してINIファイルを更新したい

次のような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::TinyDebian (および派生版)、Fedora、Centos、OpenSuSE およびその他のディストリビューション用にパッケージ化されているため、適切なパッケージ管理ツールを使用して簡単にインストールできます。他のシステムでは、CPAN を使用してインストールします。

.ini ファイルを操作するための Perl モジュールは他にも多数あり、その中にはより多くの機能を備えたものや、よりオブジェクト指向的なアプローチを採用しているものもあります。 Config::Tinyハッシュのみで動作し、より複雑なものほど多くの設定やマニュアル ページを読む必要がないため、このような単純なタスクに適しています。

関連情報