The stupid question is the question not asked | |
PerlMonks |
Re^4: Dialog with UNIX shellby vitaly (Acolyte) |
on Jul 19, 2007 at 21:33 UTC ( [id://627634]=note: print w/replies, xml ) | Need Help?? |
No, I am writing the programm which installs ssh keys on remote servers.
my @servers = ('j5');
foreach my $server (@servers)
{
my $cmd = "bash";
if (system($cmd))
{
print "$cmd failed\n";
next;
}
my $res = qx(ssh $server);
if ($res =~ m/RSA\skey\sfingerprint/)
{
HERE I NEED TO ANSWER YES/NO AND PRESS ENTER
In Section
Seekers of Perl Wisdom
|
|