Hey guys ! Thanks for the support .the following is the code I have written. Working fine.
=========================== open(LOG,">$main::TRACELOGFILE") or die "Can't open trace file $main::TRACELOGFILE"; system("chown XXX:YYYYY $main::TRACELOGFILE"); system("chmod 0666 $main::TRACELOGFILE"); ============================
perl has the functions chown() and chmod() built in to the language so there is no need to run external programs with system()
perldoc -f chown perldoc -f chmod
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>
