Sam Harris wrote:
>
> I am having hard time figuring out why one of my lines is not working:
>
> system"find . -ctime -1 -exec cp {}
> /opt/WWW/web_stats/logs/daily/newfiles \";
>
> the error is that :
> Unquoted string "opt" may clash with future reserved word at
> ./process_web_log_files.pl line 25.
use File::Find;
use File::Copy;
find( sub {
-C $_ < 1 and
copy( $_, "/opt/WWW/web_stats/logs/daily/newfiles/$_" );
}, '.' );
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
