![여러 텍스트 파일을 각 파일의 다음 줄 하나로 병합](https://linux55.com/image/30084/%EC%97%AC%EB%9F%AC%20%ED%85%8D%EC%8A%A4%ED%8A%B8%20%ED%8C%8C%EC%9D%BC%EC%9D%84%20%EA%B0%81%20%ED%8C%8C%EC%9D%BC%EC%9D%98%20%EB%8B%A4%EC%9D%8C%20%EC%A4%84%20%ED%95%98%EB%82%98%EB%A1%9C%20%EB%B3%91%ED%95%A9.png)
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
. 가지다아니요오류 확인, 임시 스크립트일 뿐입니다.