PerlモジュールFile::Findを使うならfind2perlも忘れずに

Posted by on 2011年6月21日 Leave a comment (0) Go to comments

Unix系のOSではおなじみのfindコマンドと同じ振る舞いを簡単にPerlで実現できるモジュールFile::Find。
普段findコマンドを駆使しているなら、find2perlコマンドを使って対応するPerlコードを自動生成させるのが吉。
モジュールのヘルプドキュメントにある通り、

    find2perl / -name .nfs\* -mtime +7 \
        -exec rm -f {} \; -o -fstype nfs -prune

と実行すると、

    sub wanted {
        /^\.nfs.*\z/s &&
        (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) &&
        int(-M _) > 7 &&
        unlink($_)
        ||
        ($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) &&
        $dev < 0 &&
        ($File::Find::prune = 1);
    }

と生成される。

記録