perl 파일의 맨 위에 추가

Question

각각 30,000 개의 파일이 5MB 있습니다. 모든 파일의 top에 몇 줄을 덧붙이고 싶었습니다. 나는 bash 스크립트를 사용하여 그렇게했다. 나는 perl을 사용하여 그것을하는 방법을 배우고 싶었다.

Answer 1

이것은 수행 방법의 예입니다. 아마도 이름 바꾸기와 같은 fgw 오류 검사를 추가하고 파일과 디렉토리를 읽고 쓸 수 있는지 확인하고 싶을 것입니다.

#!/usr/bin/env perl 

use strict 
use File::Glob ':glob'; 

my @files = bsd_glob('/some/path/to/files*'); 

for my $file (@files) 
{ 
    open my $in, '<', $file 
     or die "Can't open file: $!"; 
    open my $out, '>', "$file.new" 
     or die "Can't write new file: $!"; 

    while(<$in>) 
    { 
     print $out $_; 
    } 
    close $in; 
    close $out; 

    rename "$file.new", $file; 
}