perl 스크립트를 사용하여 파일의 특정 위치에 행 삽입

Question

perl 스크립트를 사용하여 파일에 새 행을 추가하려고합니다. 나는 시도했지만 행운이 없다.

if($correctedContents[$i] ~= /second line/){ 
@data = $correctedContents[$i] 
    push (@data, '\n TEST Line'); 

예 : '두 번째 줄'행을 찾을 때마다 파일에 "TEST Line"을 추가하십시오.

은 File2.txt, 추가 된 새로운 라인 예상 출력 후

first line 
second line 
third line 

first line 
second line 
third line 

.....

: 사전

Answer 1

당신의 천국에서

first line 
second line 
TEST Line 
third line 

first line 
second line 
TEST Line 
third line 

감사합니다 ' 대단히 도움이되는 코드를 우리에게 충분히 보여주었습니다. 그러나 특히 변경된 데이터를 출력 파일에 다시 쓰는 코드는 표시하지 않았습니다. 일반적으로

, 아래 세 단계에이 종기 같은 작업 : 파일에서

1. 데이터 읽기.
2. 어떤 식 으로든 데이터를 업데이트하십시오.
3. 변경된 데이터를 다시 파일에 씁니다.

한 가지 공통적 인 접근 방식은 두 개의 파일 핸들을 입력 파일에, 다른 파일 핸들을 새 출력 파일에 열려는 것입니다. 따라서 한 번에 한 줄씩 파일을 처리하기가 쉽습니다.

while (<$input_fh>) { 
    if (this is a line you need to change) { 
    # make changes to line (which is in $_) 
    # Perhaps print an extra line here. 
    } 
    print $output_fh $_; 
} 

(사용의 용이성을 위해 속도를 거래) 또 다른 방법은 (5.8 보낸 모든 펄 분포의 일부)를 Tie::File 모듈을 사용하는 것이다.

항상 그렇듯이 Perl FAQ은 더 많은 정보가 필요합니다. 이미 한 (약간 문제가) 타이 :: 파일 기반 솔루션을 :이 경우, 당신은 아마 질문 How do I change, delete, or insert a line in a file, or append to the beginning of a file?

업데이트가 포함되어 perlfaq5,보고 싶다. 그래서 여기 내 꺼야 :

#!/usr/bin/perl 

use strict; 
use warnings; 

use Tie::File; 

tie my @lines, 'Tie::File', 'somefile.txt' 
    or die "Can't tie file: $!\n"; 

for (@lines) { 
    $_ .= "\nTEST line" if $_ eq 'second line'; 
} 

Answer 2

당신은

use Tie::File; 

my $inputFile = "test.txt"; 

my @array; 
tie @array, 'Tie::File', $inputFile or die "Error: Couldn't tie the \"$inputFile\" file: $!"; 
my $len = join "\n", @array; 

if($len=~m/second line/i) { $len=~s/second line/$&\nTEST Line/ig; } 

@array = split/\n/, $len; 
untie @array; 

Tie::File는 같은 입력 파일에 문자열을 대체 할 것으로 예상 무슨 Tie::File 출력을 얻을 수 있습니다 사용할 수 있습니다.