여러 줄 문자열을 수동 이스케이프 없이 여러 줄 문자열로 교체

Question 1

perl -i -p0e 's/`cat before.txt`/`cat after.txt`/se' text.txt

여기에서는 작은따옴표 안에 백틱이 있으므로 쉘은 이를 처리하지 않지만 Perl은 이를 있는 그대로 봅니다. 또, 펄반품백틱은 인용 형식으로 지원되지만 에서는 사용됩니다 s///.

Perl 명령줄에서 또는 를 사용하는 한 -0여러 줄 모드를 사용하는 것은 문제가 되지 않습니다 . -0777( -0텍스트 파일에는 없는 NUL 문자로 줄을 구분하여 -0777전체 파일을 한 번에 읽습니다.)

큰따옴표를 사용하여 이를 수행할 수 있지만 이렇게 하면 Perl 스크립트에서 파일 내용이 직접 확장되며 모든 특수 문자는 스크립트의 일부로 간주됩니다. 단일 슬래시로 인해 s///연산자가 종료되고 문제가 발생합니다.

대신 Perl이 파일을 읽도록 하십시오:

perl -i -0 -pe '$b = `cat before.txt`; $a = `cat after.txt`; s/$b/$a/s' text.txt

여기서의 내용은 before.txt여전히 정규식으로 처리됩니다. 중지하려면 s/\Q$b\E/$a/s대신 사용하세요.

나는 당신이 e그 플래그를 사용하고 싶지 않을 것이라고 생각합니다 s///. 이는 대체가 Perl 표현식으로 처리되도록 합니다(이것은 쉘이 파일 내용을 Perl 명령줄로 확장하도록 허용하는 경우에만 실제로 중요합니다).

후자의 예에는 평소와 같이 개행 문자를 나타내는 some text.\nin text.txt및 text\nin 이 있습니다 . 파일이 Perl에 로드되면 있는 그대로 가져오므로 마지막 개행 문자 도 중요합니다. 다른 파일에는 개행 앞에 점이 있고 다른 파일에는 점이 없으므로 일치하지 않습니다.before.txt\nbefore.txt

~~chomp $b;파일을 로드한 후 가능한 후행 줄 바꿈을 제거할 수 있습니다~~ . 다음을 사용하여 가능한 후행 개행 문자를 제거할 수 있습니다 $b =~ s/\n$//;.

$ perl -0 -pe '$b = `cat before.txt`; $a = `cat after.txt`; $b =~ s/\n$//; $a =~ s/\n$//; s/$b/$a/s' text.txt
Here is 
some whatever.

Answer

perl -i -p0e 's/`cat before.txt`/`cat after.txt`/se' text.txt