Thanks for your response.
I did change the module name. It works but now it hangs at the copy command
without giving any warning/error. ( plz refer the code)
thanks,
On 3/16/06, Dermot Paikkos <[EMAIL PROTECTED]> wrote:
>
> 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>
>
>
>
