ディレクトリのすべてのファイルに同じテキストを追加する

Question

私は1つのフォルダを持っています。そのフォルダには32個のファイルと3個のディレクトリがあります。私は一番上の各ファイルにいくつかの行のテキストを追加したいと思います。どうやってやるの？

Answer 1

File::Findを使用してファイルを検索してください。ファイルの先頭に行を追加するには、Tie::Fileとunshiftを使用します。

Answer 2

これは仕事ができる：

perl -pi -e 's/^/my text\n/' * */* 

それはあなたが何をしたいんことを確認するために、ディレクトリのコピーでこれを試してみてください。

Answer 3

TLPは既に問題の解決方法をいくつか教えてくれました。しかし、それを行う方法は常に複数あります。 File :: FindとTie :: Fileの代わりに、私はいくつかの "モダンな"モジュールを使用します。これらの完全な例では、Path :: Class :: Ruleを反復的なインターフェースではなく反復的なインターフェースで使用します。

#!/usr/bin/env perl 
use strict; 
use warnings; 
use utf8; 
use open ':encoding(UTF-8)'; 
use open ':std'; 
use Path::Class; 
use Path::Class::Rule; 

my $rule = Path::Class::Rule->new->file; 
my $iter = $rule->iter(dir('test')); 

while (my $file = $iter->()) { 
    print $file->stringify, "\n"; 
    add_line_to_file($file, "Sid was here.\n"); 
} 

# 1: Path::Class::File Object 
# 2: The Line 
sub add_line_to_file { 
    my ($file, $line) = @_; 

    # Open File - return IO::File object 
    my $fh = $file->open('>>') or die "Cannot open $file: $!\n"; 
    # Seek to end 
    $fh->seek(0, 2); 
    # Add line 
    $fh->print($line); 
    $fh->close; 

    return; 
}