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. ;-) -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
