perl을 사용하여 파일의 시작 부분에 정보를 추가하는 방법

Question

나는 c 파일을 가지고 있는데, 나는 c 파일을 구걸 할 때 약간의 정보를 추가해야한다. 문자열과 숫자 및 값으로 키가있는 해시 테이블이 하나 있습니다. 해당 테이블을 사용하여 문자열이 C 파일에 정보를 추가하고 있음을 발견하면 검색 중입니다. 나는 "add information to a file using perl"질문에 게시 된 스크립트를 사용하여이 작업을 수행했습니다. 지금 나는 string.In 내 스크립트에서 나는 문자열 앞에 추가 오전 발견하면 C 파일의 beginging에서 정보를 추가해야합니다. 지금 어떻게해야합니까? 사전에 감사합니다.

Answer 1

(. 난 그냥 같은 질문 것으로 보인다 무엇을 the SitePoint forums에 준 대답에서 크로스 게시)

슬프게도, 전체를 다시 작성할 필요없이 파일의 시작 부분에 정보를 삽입 할 수있는 방법이 없습니다 한 번에 하나의 줄이 아닌 전체 파일을 읽고 내용에 나타나는 문자열을 확인하고 해당 정보 항목을 새 파일에 쓰고 (마침내!) 원래 내용을 새 파일에 쓰십시오.

#!/usr/bin/env perl 

use strict; 
use warnings; 

use File::Slurp; 

my %strings = (
    'string1' => "information \n", 
    'string2' => "information2 \n", 
    'string3' => "information3 \n", 
); 
my $test_string = "(" . join("|", keys %strings) . ")"; 

# First make a list of all matched strings (including the number of times 
# each was found, although I assume that's not actually relevant) 

my $code = read_file('c.c'); 
my %found; 
while ($code =~ /$test_string/g) { 
    $found{$1}++; 
} 

# If %found is empty, we didn't find anything to insert, so no need to rewrite 
# the file 

exit unless %found; 

# Write the prefix data to the new file followed by the original contents 

open my $out, '>', 'c.c.new'; 
for my $string (sort keys %found) { 
    print $out $strings{$string}; 
} 

print $out $code; 

# Replace the old file with the new one 
rename 'c.c.new', 'c.c'; 

Answer 2

이것은 자주 묻는 질문입니다.

How do I change, delete, or insert a line in a file, or append to the beginning of a file?