Perl: exemple SSH avec Expect : Différence entre versions
m |
m |
||
| Ligne 1 : | Ligne 1 : | ||
Example illustrant l'utilisation d'Expect + SSH: | Example illustrant l'utilisation d'Expect + SSH: | ||
| + | <syntaxhighlight lang="perl" line='line'> | ||
#!/bin/env perl | #!/bin/env perl | ||
use Expect; | use Expect; | ||
| Ligne 36 : | Ligne 37 : | ||
print "after : ".$exp->after."\\n"; | print "after : ".$exp->after."\\n"; | ||
$ssh->send("exit"); | $ssh->send("exit"); | ||
| − | + | </syntaxhighlight> | |
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:Perl]] | ||
[[Category:Snippets]] | [[Category:Snippets]] | ||
Version actuelle datée du 28 juillet 2018 à 20:25
Example illustrant l'utilisation d'Expect + SSH:
1 #!/bin/env perl
2 use Expect;
3 my $fileTraceExpect = "/tmp/dummy.trace";
4 my $userlogin="root";
5 my $userpw="mypasswd";
6 my $remotehost="192.168.0.2";
7 #
8 # Start a sftp connection
9 my $exp = new Expect;
10 #
11 # save results of expect and send commands
12 $exp->log_file($fileTraceExpect, "w");
13 # no print on stdout
14 $exp->log_stdout(0);
15 #
16 my $timeout = 2;
17 #
18 # open ssh connection
19 my $command = "ssh ".$userlogin."@".$remotehost."\\n";
20 my $ssh= $exp->spawn($command) || die "Cannot spawn $command: $!\\n";
21 #
22 if ($ssh->expect($timeout, "Are you sure you want to continue connecting")) {
23 $ssh->send("yes\\r");
24 $ssh->expect($timeout, "Password:");
25 }
26 #
27 $ssh->send("$userpw\\n");
28 $ssh->expect($timeout,' # ');
29 #
30 # send command
31 $ssh->send("uname -a\\n");
32 $ssh->expect($timeout,' # ');
33 print "before: ".$exp->before."\\n";
34 print "after : ".$exp->after."\\n";
35 $ssh->send("exit");
Voir aussi http://search.cpan.org/~rgiersig/Expect-1.15/Expect.pod
