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

在perl中附加到文件顶部

1 个答案: