ssh into remote nodes, do mulitple commands
- From: Nene <rodbass63@xxxxxxxxx>
- Date: Tue, 29 Jan 2008 17:32:41 -0800 (PST)
Hello,
I'm trying to use Net::SSH to ssh into 3 nodes and move/copy files
with File::Copy. For now, I scripted it to find files of a certain
age and move them.
The $cmd variable is working, but when I try to move the files, it
errors with copy failed. Please critique or suggest a better way.
Thanks in advance!!!!
######################################################
#!/usr/bin/perl -w
use Net::SSH::Perl qw(sshopen2);
use strict;
my %LIST = (
1 => "node1",
2 => "node1",
3 => "node1"
);
foreach my $ESP (sort values %LIST) {
my $user = "user1";
my $host = $ESP;
my $cmd = "sudo find /somedir -name file.err -mtime 1 -exec ls -lt {}
';'";
sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";
print "Connected to $host\n";
while (<READER>) {
if ( $_ ) {
use File::Copy;
move("/tmp/rod","/tmp/nasty") or die "Copy failed: $!";
}
}
}
.
- Follow-Ups:
- Re: ssh into remote nodes, do mulitple commands
- From: J. Gleixner
- Re: ssh into remote nodes, do mulitple commands
- From: zentara
- Re: ssh into remote nodes, do mulitple commands
- Prev by Date: "negative" regexp
- Next by Date: List of directories within a directory
- Previous by thread: "negative" regexp
- Next by thread: Re: ssh into remote nodes, do mulitple commands
- Index(es):
Relevant Pages
|
|
