From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
Kprasad
Sent: 18 June 2009 14:52
To: perl-win32-users@listserv.ActiveState.com
Subject: Net::FTP pasv_xfer() using problem
> Hi
>
> Please provide solution for below mentioned problem, message showing
while executing below mentioned script
>
> CODE:
>
> #!/usr/bin/perl
The first thing wrong with your code is the absence of "use strict;" and
"use warnings;" at the start.
> use Net::FTP;
> use File::stat;
> ##I'm hoping to use pasv_xfer(sourcefile, dest_server) to do a server
to server passive transfer
Here's a clue ..............................^^^^^^^^^^^
>
> $ftpout = Net::FTP->new("192.168.180.188", Debug => 0)
> or die "Cannot connect to 192.168.180.188: $@"; #destination
server
> $ftpout->login("tj","tj") or die "Cannot login ",
$ftpout->message;
> warn "Failed to set binary mode\n" unless $ftpout->binary();
> $pwddirout=$ftpout->pwd();
> $ftpdest="$pwddirout/training";
> print "Destination Directory $ftpdest\n";
>
> $ftpin = Net::FTP->new("192.168.180.192", Debug => 0)
> or die "Cannot connect to 192.168.180.192: $@"; #source server
> $ftpin->login("iop123","iop312") or die "Cannot login ",
$ftpin->message;
>
> $pwddir=$ftpin->pwd();
> warn "Failed to set binary mode\n" unless $ftpin->binary();
> $ftpin->pasv_xfer("ApJ306023.xml", $ftpdest);
You haven't specified the destination server. Perhaps $ftpout?
> $lsize = stat("c:/temp/apj_697_1_106ej.zip")->size;
> print "SIZE:- $lsize";
> $ftpout->quit() or die "FTP: Couldn't quit.";
> $ftpin->quit() or die "FTP: Couldn't quit.";
>
>
> MESSAGE: Can't call method "port" without a package or object
reference at C:/Perl/lib/Ne
> t/FTP.pm line 1122.
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediately by reply e-mail and delete this message and any
attachments without retaining a copy.
Any unauthorised copying, disclosure or distribution of the material in this
e-mail is strictly forbidden.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
