我有2个文件。我想合并它们。
文件1内容:
abc
文件2内容:
def
组合文件应该是:
abc
def
答案1
答案2
这个 perl scriptlet 执行以下操作:
#!/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
。有不错误检查,只是一个临时脚本。