Perl: exemple SSH avec Expect - Historique des versions

Toine le 28 juillet 2018 à 20:25

2018-07-28T20:25:47Z

Toine le 21 février 2018 à 17:19

2018-02-21T17:19:46Z

Toine : Page créée avec « Example illustrant l'utilisation d'Expect + SSH: #!/bin/env perl use Expect; my $fileTraceExpect = "/tmp/dummy.trace"; my $userlogin="root"; my $userpw="mypa... »

2018-02-03T18:32:32Z

Page créée avec « Example illustrant l'utilisation d'Expect + SSH: #!/bin/env perl use Expect; my $fileTraceExpect = "/tmp/dummy.trace"; my $userlogin="root"; my $userpw="mypa... »

Nouvelle page

Example illustrant l'utilisation d'Expect + SSH:

#!/bin/env perl
use Expect;
my $fileTraceExpect = "/tmp/dummy.trace";
my $userlogin="root";
my $userpw="mypasswd";
my $remotehost="192.168.0.2";
#
# Start a sftp connection
my $exp = new Expect;
#
# save results of expect and send commands
$exp->log_file($fileTraceExpect, "w");
# no print on stdout
$exp->log_stdout(0);
#
my $timeout = 2;
#
# open ssh connection
my $command = "ssh ".$userlogin."@".$remotehost."\\n";
my $ssh= $exp->spawn($command) || die "Cannot spawn $command: $!\\n";
#
if ($ssh->expect($timeout, "Are you sure you want to continue connecting")) {
$ssh->send("yes\\r");
$ssh->expect($timeout, "Password:");
}
#
$ssh->send("$userpw\\n");
$ssh->expect($timeout,' # ');
#
# send command
$ssh->send("uname -a\\n");
$ssh->expect($timeout,' # ');
print "before: ".$exp->before."\\n";
print "after : ".$exp->after."\\n";
$ssh->send("exit");

Voir aussi http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod

← Version précédente		Version du 21 février 2018 à 17:19
Ligne 38 :		Ligne 38 :

	Voir aussi http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod		Voir aussi http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod
		+
		+	[[Category:Perl]]
		+	[[Category:Snippets]]

@@ Ligne 1 : / Ligne 1 : @@
 Example illustrant l'utilisation d'Expect + SSH:
    #!/bin/env perl
    use Expect;
@@ Ligne 36 : / Ligne 37 : @@
    print "after : ".$exp->after."\\n";
    $ssh->send("exit");
+</syntaxhighlight>
 Voir aussi http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod
 [[Category:Perl]]
 [[Category:Snippets]]