Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: list files based on age and pattern

by kaka_2 (Acolyte)
on Sep 16, 2013 at 13:18 UTC ( #1054293=note: print w/ replies, xml ) Need Help??


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

i have made changes like this.

sub GetINDirFiles { my ($path) = @_; my $min_age = 1 / 96; opendir DIR, $path or die $!; # my @files = readdir DIR; # my @files = grep {!/\_NSA|_\d+_\d+\.xml/} readdir DIR; closedir DIR; my @files = grep {!/\_NSA|d+_\d+\.xml/ && (-M) > $min_age} readdir DIR +; return(@files); }

in the source path i added two more file and executed the code but i see @files has no file in it whereas i would expect all the files other then newly added files.

-KAKA-


Comment on Re^2: list files based on age and pattern
Download Code
Re^3: list files based on age and pattern
by hdb (Parson) on Sep 16, 2013 at 13:24 UTC

    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.
      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://1054293]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2014-08-23 10:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls