☰

findコマンドを使用してPerlに引数を渡すことはできますか？

tag-icon • tag-icon find perl
findコマンドを使用してPerlに引数を渡すことはできますか？

Perlスクリプトがあります

$ cat ~/script.pl
sub main {

    my ($file) = @_;

    <STUFF>

    }

}

foreach (@ARGV) {

    main($_);

}

ディレクトリ内の~/script.plすべてのファイルを実行したいです。次のコマンドを使用してファイルのリストをインポートできます。.txt~/foo.txt~/foo

$ find ~/foo -type f -name \*.txt

どういうわけか、このコマンドを使用してこれらのファイルを私のスクリプトに渡すことはできますか？

ベストアンサー1

はい、コマンドを使用してこれを行う方法はいくつかありますfind。あなたの状況を理解する上で重要だと思われる順序でいくつかリストします。

  1. スクリプトは複数のファイル名引数を受け入れているように見えるため、findこのコマンドを使用してこれを実行する最も効率的でほぼ一般的な方法は次のとおりです。

    find ~/foo -type f -name \*.txt -exec perl ~/script.pl {} +

    これにより、見つかったファイル名引数をできるだけ多く使用してスクリプトが実行されます。すべてのファイル名を処理する必要がある場合は、スクリプトが複数回呼び出されます。行の+終わりに。

  2. これは最も独創的で多目的な方法です。これはperl見つかった各ファイルに対して一度呼び出されるので、あなたの場合はあまり効率的ではありません。この使用法は以下に由来します。Unixの初代。\;行の末尾にあるエスケープされたセミコロン（）を確認してください（+上記の反対）。

    find ~/foo -type f -name \*.txt -exec perl ~/script.pl {} \;

  3. このコマンドは、構文が-exec ... +追加される前にファイル名または他のパラメータのリストを操作するときの効率を高めるように設計されています。これは上記の例とほぼ同じです。findxargs-exec ... +

    find ~/foo -type f -name \*.txt -print | xargs perl ~/script.pl

    実装がそれをサポートしている場合は、引数だけでなく-print0オプションも使用する必要があります。これにより、引数文字列の間にヌル文字が印刷され、引数がヌル文字以外のものに分割されるのを防ぐことができます。これは、ファイル名にスペースやその他の特殊文字が含まれている場合に引数が誤って分割されるのを防ぐのに役立ちます。find-0xargsfindxargsxargs

    一般的に構文を使用する方が-exec ... +良い方法です。これfindにより、ファイル名をスクリプトの引数リストに直接追加してプロセスを削除しますxargs。マニュアルページをxargs参照してください。xargs

  4. find2perlまた、同じ引数を使用して同じ操作を実行するプログラムを印刷するこのコマンドを表示することもfindできます。その後、生成されたコードをスクリプトにperl統合できます。perl以下のスクリプトでは、代わりに関数呼び出しの横にある最後の行を変更しますprint。

    $ find2perl foo -type f -name \*.txt    # /*

#[some preamble code removed for brevity]

# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, 'foo');
exit;

sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _ &&
    /^.*\.txt\z/s
    && print("$name\n");
}

おすすめ記事