Gunnar Hjalmarsson wrote:
Shams Fantar wrote:
Gunnar Hjalmarsson wrote:
opendir my $d, $dir or die $!;
my @oldfiles = grep -f "$dir/$_" && -M _ > 10, readdir $d;
if ( @oldfiles ) {
# do something
}
Thank you for this solution, but I would prefer to write it myself. ;-)
Well, that was an ... unexpected response. ;-)
Sorry for my answer, it was not nasty. :P As I'm a beginner with perl, I
prefer to write my scripts myself.
--
Shams Fantar (http://snurf.info)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
