RE: Net::SSH and Net::FTP?
From: Mark Weisman (mark_at_mystic1.net)
Date: 12/03/03
- Next message: David Garamond: "Something like PHP's PEAR::DB_NestedSet?"
- Previous message: John W. Krahn: "Re: perl -ne 'if(/rcn/) {print "$ARGV: $_" unless -d}' *"
- Maybe in reply to: Mark Weisman: "Net::SSH and Net::FTP?"
- Next in thread: Dan Muey: "RE: Net::SSH and Net::FTP?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Tue, 2 Dec 2003 16:37:19 -0900 To: "Dan Muey" <dmuey@infiniplex.com>, <beginners@perl.org>
Thanks for the reply Dan, the two remote servers do not have FTP running
on them, so they must initialize the FTP connection. I've now built the
scripts on their ends, I'm working on an SSH script that will login to
them and launch the scripts on each server. Got the traffic direction
thing going on, so I'm trying to figure out who can login where? I'll
post the results once they all work. Right in the middle of all this, my
primary server got upgraded to 5.6.1 so we'll see how that messes
everything up? Ever forward.
Sincerely in Christ,
Mark-Nathaniel Weisman
President / Owner
Outland Domain Group
Anchorage, Alaska
-----Original Message-----
From: Dan Muey [mailto:dmuey@infiniplex.com]
Sent: Tuesday, December 02, 2003 6:38 AM
To: beginners@perl.org
Subject: RE: Net::SSH and Net::FTP?
> >
> > I would like to use SSH to login to a remote system, then
> using FTP,
> > upload a file from the remote machine to another machine which will
> > display the data. If I can automate this process, I think
> I'll be in
> > great shape, tell me does this code seem like it would work
> for this?
Just a thought, if you're having trouble with the ssh part.
You could just use ftp for both servers?
use Net::FTP;
$ftpa = Net::FTP->new("a.host.name", Debug => 0)
or die "Cannot connect to a.host.name: $@";
$ftpb = Net::FTP->new("b.host.name", Debug => 0)
or die "Cannot connect to b.host.name: $@";
$ftpa->login($usera,$passa)
or die "Cannot login to A", $ftp->message;
$ftpb->login($userb,$passb)
or die "Cannot login to B", $ftp->message;
$ftpa->cwd("/files/blah")
or die "Cannot change working directory A", $ftp->message;
$ftpb->cwd("/foo/monkey")
or die "Cannot change working directory B", $ftp->message;
for(@filestotransfer) {
# then use $ftpa->read() and $ftpb->write() to xfr them between each
other,
# sorry for lack of example I'm a bit busy!
}
$ftpa->quit;
$ftpb->quit;
Transfer files back and forth between the 2 Net::FTP objects. I'm not
saying it's better or anythgin, just another way to do it that may help
if ssh is being tricky as it some times can.
HTH
DMuey
-- To unsubscribe, e-mail: beginners-unsubscribe@perl.org For additional commands, e-mail: beginners-help@perl.org
- Next message: David Garamond: "Something like PHP's PEAR::DB_NestedSet?"
- Previous message: John W. Krahn: "Re: perl -ne 'if(/rcn/) {print "$ARGV: $_" unless -d}' *"
- Maybe in reply to: Mark Weisman: "Net::SSH and Net::FTP?"
- Next in thread: Dan Muey: "RE: Net::SSH and Net::FTP?"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
