Is that File::Copy or FILE::copy? The former is what you want.
Dp.
On 16 Mar 2006 at 9:53, Sonika Sachdeva wrote:
> Hi All,
>
> I have used FILE::copy , perl syntax check is OK.
> and am getting the following error when it tries to perform the copy
> function . This is on windows system.
>
> <code snippet>
>
> my $retval=system("perl \"$SCRIPTDIR\\test.pl\"
> $FILEHASH{$filename}[3]") ;
> if($retval != 0) {
> print LOGHANDLE "Error while executing Perl script :",$retval,"\n";
> $FILEHASH{$filename}[0]=1; }
> else {
> print LOGHANDLE "Success :",$FILEHASH{$filename}[3],"\n";
> $FILEHASH{$filename}[0]=0;
> if ( $FILEHASH{$filename}[3] =~ /.*NTSC.*/i ) {copy (
> "$SRCDIR\\$FILEHASH{$filename}[3]" , "$SMBMOUNTNTSC" ) or warn "copy
> error: $!\n" ;}
> elsif ($FILEHASH{$filename}[3] =~ /.*PAL.*/i ){ copy (
> "$SRCDIR\\$FILEHASH{$filename}[3]" , "$SMBMOUNTPAL" ) or warn "copy
> error: $!\n" ;}
> }
>
> <end code snippet>
>
> <error:>
> undefined subroutine &main::copy
>
> What could be the mistake?
>
> Thanks,
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
