It works . Thank you all.
On 3/16/06, Sonika Sachdeva <[EMAIL PROTECTED]> wrote:
>
> 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>
> >
> >
> >
>
