Using ssh in perl script

Question

I was trying to perform password less login using ssh in perl. I am somehow stuck up with the following error message:

ssh: Could not resolve hostname : Name or service not known
lost connection

The following was a part of my code in the perl script that threw up this error:

$dut_ip_addr="10.0.0.110";
system("scp run_application.sh isq\@\$dut_ip_addr\:\/home\/isq\/");

Any help would be greatly appreciated

tripleee · Accepted Answer · 2013-06-30 16:15:43Z

1

Here is your problem:

\$dut_ip_addr

Why are you escaping the dollar sign? That way, Perl will not interpolate that variable for you and scp will try to connect to $dut_ip_addr which will of course fail.

There are a couple more backslashes in your code that don't make much sense. I suggest, you do something like this:

$dut_ip_addr = "10.0.0.110";
my $login    = "isq";
my $path     = "/home/isq/";
my $scp_command = sprintf 'scp run_application.sh %s@%s:%s', $login, $dut_ip_addr, $path;
system( $scp_command );

edited Jun 30, 2013 at 16:15

tripleee

192k37 gold badges318 silver badges367 bronze badges

answered Jun 30, 2013 at 14:18

innaM

48k5 gold badges72 silver badges88 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

salva · Accepted Answer · 2013-07-01 09:54:48Z

0

You can use Net::OpenSSH and forget about all the bothersome quoting details:

use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($dut_ip_addr, user => 'isq');
$ssh->scp_put('run_application.sh', '/home/isq/run_application.sh');

answered Jul 1, 2013 at 9:54

salva

10.3k4 gold badges31 silver badges61 bronze badges

Collectives™ on Stack Overflow

Using ssh in perl script

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related