追加到perl文件的頂部

Question

我有大約30,000個5MB的文件。我想在每個文件的top上追加幾行。我用bash腳本完成了這個。我想學習一種使用perl的方法。

Answer 1

這是如何做到這一點的一個例子。我可能會進行更多的錯誤檢查，比如重命名檢查，我可能會確保我可以讀取和寫入文件和目錄。

#!/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; 
}