cwmp/google/tcli.pl

#!/usr/bin/perl -w

use strict;
use Expect;
use Net::Telnet;

my $modem = '192.168.1.254';

my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
my $exp = Expect->exp_init($telnet);

my ( $username, $password ) = ('Administrator','');
my $timeout = 15;

my $spawn_ok;
$exp->expect($timeout,
             [
              qr'login: $',
              sub {
                $spawn_ok = 1;
                my $fh = shift;
                $fh->send("$username\n");
                exp_continue;
              }
             ],
             [
              'Password: $',
              sub {
                my $fh = shift;
                print $fh "$password\n";
                exp_continue;
              }
             ],
             [
              eof =>
              sub {
                if ($spawn_ok) {
                  die "ERROR: premature EOF in login.\n";
                } else {
                  die "ERROR: could not spawn telnet.\n";
                }
              }
             ],
             [
              timeout =>
              sub {
                die "No login.\n";
              }
             ],
             '-re', qr'[#>:] $', #' wait for shell prompt, then exit expect
            );
1	#!/usr/bin/perl -w
2
3	use strict;
4	use Expect;
5	use Net::Telnet;
6
7	my $modem = '192.168.1.254';
8
9	my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
10	my $exp = Expect->exp_init($telnet);
11
12	my ( $username, $password ) = ('Administrator','');
13	my $timeout = 15;
14
15	my $spawn_ok;
16	$exp->expect($timeout,
17	[
18	qr'login: $',
19	sub {
20	$spawn_ok = 1;
21	my $fh = shift;
22	$fh->send("$username\n");
23	exp_continue;
24	}
25	],
26	[
27	'Password: $',
28	sub {
29	my $fh = shift;
30	print $fh "$password\n";
31	exp_continue;
32	}
33	],
34	[
35	eof =>
36	sub {
37	if ($spawn_ok) {
38	die "ERROR: premature EOF in login.\n";
39	} else {
40	die "ERROR: could not spawn telnet.\n";
41	}
42	}
43	],
44	[
45	timeout =>
46	sub {
47	die "No login.\n";
48	}
49	],
50	'-re', qr'[#>:] $', #' wait for shell prompt, then exit expect
51	);