在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;
}