私はA.iniとB.iniなどのファイルを持っている

Question

他のファイルに元のファイルのコピーを保存Perlを使用して2つのファイルをマージし、私は私が欲しいA.ini

examples of files: 
A.ini:: 

a=123 
b=xyx 
c=434 

B.ini contains: 
a=abc 
m=shank 
n=paul 

my output in files A.ini should be like 

a=123abc 
b=xyx 
c=434 
m=shank 
n=paul 

内のファイルの両方をマージしたいですこの合併にperlの言語で行われ、私は

Answer 1

方法についての古いコピーを使用する他のいくつかの場所で、古いA.iniファイルのコピーを保存しておきたいことがします

#!/usr/bin/perl 
use strict; 
use warnings; 

my %out; 
my $file = 'path/to/A.ini'; 
open my $fh, '<', $file or die "unable to open '$file' for reading: $!"; 
while(<$fh>) { 
    chomp; 
    my ($key, $val) = split /=/; 
    $out{$key} = $val; 
} 
close $fh; 

$file = 'path/to/B.ini'; 
open my $fh, '<', $file or die "unable to open '$file' for reading: $!"; 
while(<$fh>) { 
    chomp; 
    my ($key, $val) = split /=/; 
    if (exists $out{$key}) { 
     $out{$key} .= $val; 
    } else { 
     $out{$key} = $val; 
    } 
} 
close $fh; 

$file = 'path/to/A.ini'; 
open my $fh, '>', $file or die "unable to open '$file' for writing: $!"; 
foreach(keys %out) { 
    print $fh $_,'=',$out{$_},"\n"; 
} 
close $fh; 

Answer 2

コマンドライン変種：

perl -lne ' 
($a, $b) = split /=/; 
$v{$a} = $v{$a} ? $v{$a} . $b : $_; 
END { 
    print $v{$_} for sort keys %v 
}' A.ini B.ini >NEW.ini 

Answer 3

マージする2つのファイルは、1回のパスで読み込むことができ、別々のソースファイルとして扱う必要はありません。これにより、<>を使用して、コマンドラインでパラメータとして渡されたすべてのファイルを読み取ることができます。

A.iniのバックアップコピーを保存することは、マージされたデータを同じ名前の新しいファイルに書き込む前に名前を変更するだけです。

このプログラムは、必要な処理を行っているようです。 （A.ini中）

use strict; 
use warnings; 

my $file_a = $ARGV[0]; 

my (@keys, %values); 

while (<>) { 
    if (/\A\s*(.+?)\s*=\s*(.+?)\s*\z/) { 
    push @keys, $1 unless exists $values{$1}; 
    $values{$1} .= $2; 
    } 
} 

rename $file_a, "$file_a.bak" or die qq(Unable to rename "$file_a": $!); 
open my $fh, '>', $file_a or die qq(Unable to open "$file_a" for output: $!); 
printf $fh "%s=%s\n", $_, $values{$_} for @keys; 

出力

a=123abc 
b=xyx 
c=434 
m=shank 
n=paul