#!/usr/bin/perl use Net::SCP::Expect; my $scpe= Net::SCP::Expect->new; $svr = $ARGV[0]; $type = $ARGV[1]; $date = $ARGV[2]; print "$svr "; $scpe->login('root', 'foo'); $scpe->scp("$svr:/var/log/ems/$type.$date.log", "/home/me/logs/$type.$ +svr.$date.log"); print "....done\n";
In reply to Net::SCP::Expect by j^2
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |