Re: use file::find to find files modified in last 5 days

in reply to use file::find to find files modified in last 5 days

The docs of File::Find show this example:

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

produces something like:

    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);
    }
[download]

what's wrong with it?

Comment on Re: use file::find to find files modified in last 5 days Select or Download Code

Replies are listed 'Best First'.
Re^2: use file::find to find files modified in last 5 days by bart (Canon) on Feb 22, 2012 at 12:49 UTC
what's wrong with it? What's wrong? How about: completely incomprehensible to anybody but Unix gurus.	[reply]
Re^3: use file::find to find files modified in last 5 days by talexb (Chancellor) on Feb 23, 2012 at 17:44 UTC
True, it's complicated. But a few minutes spent looking at the man page for `find2perl` and the POD for File::Find should permit a user to piece things together. It's not always necessary to understand everything about a subject in order to make use of the tools. I don't know how to tear apart and rebuild my car's engine, but that doesn't prevent me from driving it. Alex / talexb / Toronto "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds	[reply] [d/l]
Re^2: use file::find to find files modified in last 5 days by mikesolomon (Novice) on Feb 22, 2012 at 12:54 UTC
I had looked at that but couldn't work out how to integrate it into my script	[reply]
Re^3: use file::find to find files modified in last 5 days by talexb (Chancellor) on Feb 23, 2012 at 17:37 UTC
As brother thargas has explained, you need to look at the documentation. Type `perldoc File::Find` and you'll be presented with an example in the Synopsis section that should answer your question: `use File::Find; find(\&wanted, @directories_to_search); sub wanted { ... }` [download] You pass `File::Find::find` two parameters: a reference to a function that will be called when a matching file is found, and a list of directories to be searched. And it should Just Work(tm). Alex / talexb / Toronto "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom