Re^2: perl expect moudule to interact with Linux terminal

Thanks for your reply. I tried with autoexpect also but no luck.

Kindly let me know, how to escape the "#" in perl. I tried like "\#", but its not escaping, instead of that it assumes the following character are commented

Comment on Re^2: perl expect moudule to interact with Linux terminal

Replies are listed 'Best First'.
Re^3: perl expect moudule to interact with Linux terminal by pme (Monsignor) on Mar 30, 2015 at 21:47 UTC
This little piece of code works for me. Beside replacing '???' at $user and $pass you should also replace '\$' with '#' in all three cases. use strict; use Expect; my $user = "???"; my $pass = "???"; my $hostname = "localhost"; my $comm1 = "pwd"; my $comm2 = "date"; my $comm3 = "exit"; $Expect::Log_Stdout = 1; my $session = Expect->spawn("ssh $user\@$hostname") or die "Error call +ing external program: $!\n"; $session->expect(5,"password: "); $session->send("$pass\r"); $session->expect(5, "\r \$"); $session->send("$comm1\r"); $session->expect(5, "\r \$"); $session->send("$comm2\r"); $session->expect(5, "\r \$"); $session->send("$comm3\r"); $session->expect(undef); [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: perl expect moudule to interact with Linux terminal
by pme (Monsignor) on Mar 30, 2015 at 21:47 UTC

use strict;
use Expect;
my $user = "???";
my $pass = "???";
my $hostname = "localhost";
my $comm1 = "pwd";
my $comm2 = "date";
my $comm3 = "exit";
$Expect::Log_Stdout = 1;
my $session = Expect->spawn("ssh $user\@$hostname") or die "Error call
+ing external program: $!\n";
$session->expect(5,"password: ");
$session->send("$pass\r");
$session->expect(5, "\r
\$");
$session->send("$comm1\r");
$session->expect(5, "\r
\$");
$session->send("$comm2\r");
$session->expect(5, "\r
\$");
$session->send("$comm3\r");
$session->expect(undef);
[download]

[reply]
[d/l]