in reply to Perl modules actually in use
touch -t 200205010000 /tmp/x find /usr/lib/perl5/lib -anewer /tmp/x rm /tmp/x
#!/usr/bin/perl use strict; use warnings; use File::Find; find ( sub { print $Find::File::name, "\n" if (stat($Find::File::name))[8] > time - 60*60*24*30 } )
update: added find example
update2: added File::Find example
|
|---|