Hi,

I am trying to construct a Perl script that would only find files in a folder if the modified date is equal to todays date. I am finding it difficult to find some information on this on the web! any help would be much appreciated...

I am running Perl on a windows platform. The aim of the script is to find files with "article" in the filename where the modified date is equal to the current date and report the contents of the file in an excel spreadsheet. I can create the spreadsheet and find files with article in the name but having trouble limiting the files where the modified date is equal to the current date.

you need to use the stat function or the -M file test operator to get the modified date.

http://perldoc.perl.org/functions/-X.html

now you should have a list of the files you are looking for in @articles

Thanks for this but it does not work for me! any other suggestions?

sorry, this line:

my @articles = grep {/article/ && (-M) <= 1} DIR;

should be:

my @articles = grep {/article/ && (-M) <= 1} readdir DIR;