loveperl0721 has asked for the wisdom of the Perl Monks concerning the following question:
use strict; use warnings; use File::Find; my $in_dir="M:\\DB_Backups"; my $num_days=30; my $rc=""; sub select_files { my $input_file=$_; if (-d $input_file ) { return; } my $full_path=$File::Find::name; } $File::Find::prune=0; find(\&select_files, $in_dir);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Win32 version error
by ikegami (Patriarch) on Nov 09, 2010 at 19:24 UTC | |
by Anonymous Monk on Nov 09, 2010 at 19:44 UTC | |
|
Re: Win32 version error
by ikegami (Patriarch) on Nov 09, 2010 at 19:19 UTC |