Thanks! I'll give her a study and try!
>
>
> Hi Dan.
>
> Dan Muey wrote:
> > I have 2 questions about this chunk of code I'm trying to
> get to work
> > ::
> > I understand that Net::FTP 's stor ...
> >
> > Tells the server to store a new file under the name file.
> If the user
> > calls either pasv or port, returns true or false.
> Otherwise, returns a
> > reference to a Net::FTP::dataconn object.
> >
> > 1) Is 'server' above the remote server or the local server?
>
> The remote server. There is no 'local server' by definition -
> the local entity is the client.
>
> >
> > What I'm trying to do is 'stor' "TEST TEST" in $diry/$ptr1
> >
> > Here's the code ::
> >
> > 28 - $stor = $ftp->stor("$diry/$ptr1");
> > 29 - print $stor "TEST TEST";
> > 30 - close $stor;
> >
> > When I run the script I get this error :
> >
> > Can't use an undefined value as a symbol reference at ./ftp.pl line
> > 29.
> >
> > I'm figuring that means that $stor isn't defined,
>
> Yes, that's right.
>
> > what I can't figure out is
> >
> > 2) why not, or what else can I do to create the file and
> get TEST TEST
> > into it?
>
> The FTP command STOR doesn't accept a path, only a file name,
> so nor does the 'stor' method. Try this:
>
> use strict; # Always !!!
>
> my ($ftp, $diry, $ptr1);
>
> $ftp->cwd($diry) or die $!;
> {
> my $stor = $ftp->stor($ptr1) or die $!;
> print $stor "TEST TEST" or die $!;
> close $stor or die $!;
> }
>
> The die messages will tell you if anything's gone wrong, and
> hopefully why.
>
> HTH,
>
> Rob
>
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
