Anthony J Segelhorst wrote:
>
> I am trying to wrap the following Unix command into perl and having a few
> issues:
>
> find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print -exec ls {}
> \;
>
> I have tried (and nothing to seems to work):
>
> $temp = `find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print
> -exec ls {} \;`;
> system `find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print
> -exec ls {} \;`
> !system `find /var/spool/Tivoli/backups -name "DB_*" -mtime +10 -print
> -exec ls {} \;`;
use File::Find;
find( sub { /^DB_/ and -M > 10 and print }, '/var/spool/Tivoli/backups' );
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
