Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^3: list files based on age and pattern

by hdb (Prior)
on Sep 16, 2013 at 13:24 UTC ( #1054295=note: print w/ replies, xml ) Need Help??


in reply to Re^2: list files based on age and pattern
in thread list files based on age and pattern

That is, because you are doing closedir before readdir. If you were running under use warnings;, Perl would have given you an error message like

readdir() attempted on invalid dirhandle $dh at test-m.pl line 5.


Comment on Re^3: list files based on age and pattern
Select or Download Code
Re^4: list files based on age and pattern
by kaka_2 (Acolyte) on Sep 16, 2013 at 13:56 UTC
    Hello hdb,

    Sorry it is mistake while copy paste but in the actual script closdir is after the readdir.

    there is no syntax or compilation error, only no files.

    -KAKA-

      My fault. You need to add the path to the filename when testing with -M like this

      my @files = grep {!/\_NSA|d+_\d+\.xml/ && (-M "$path/$_") > $min_age} readdir DIR;

      I only tested in the current directory where it does not make any difference.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1054295]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2014-10-02 11:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (55 votes), past polls