2つのファイルがあります。私はそれらをマージしたいと思います。
ファイル1の内容:
abc
ファイル2の内容:
def
結合されたファイルは次のようになります。
abc
def
答え1
答え2
このPerlスクリプトレットは次のことを行います。
#!/usr/bin/perl
open my $f1, "<", $ARGV[0];
open my $f2, "<", $ARGV[1];
do {
$line1 = <$f1>;
print $line1 if(defined($line1));
$line2 = <$f2>;
print $line2 if(defined($line2));
} while(defined($line1) && defined($line2));
while(<$f1>) {
print;
}
while(<$f2>) {
print;
}
たとえば、電話してくださいperl splice file1 file2 > spliced
。持ついいえエラーチェック、一時スクリプトのみです。