Opened by KPW at 2012-02-29 17:14
Hallo,
erst mal vielen Dank für die Rückmeldung. Ich habe mein Script gem. Empfehlung (hoffentlich) angepasst. Ich muss dazu sagen dass ich mehr oder weniger von der Hand in den Mund programmiere.
Das Ergebnis ist aber leider unverändert. More wird nicht erkannt, das Script verharrt an der entsprechenden Stelle und bricht irgendwann ab. Ich bin mir nicht sicher, ob ich das New-Line richtig übergebe, hab alle Möglichkeiten schon ausprobiert, aber zumindest sollte doch der Hinweis "More gefunden" ausgegeben werden. Ich habe mal zusätzlich noch die Ausgabe des input_log beigefügt:
erst mal vielen Dank für die Rückmeldung. Ich habe mein Script gem. Empfehlung (hoffentlich) angepasst. Ich muss dazu sagen dass ich mehr oder weniger von der Hand in den Mund programmiere.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
use Net::Telnet;
use strict;
my $filename="dumplog.txt";
my $telnet = new Net::Telnet (Timeout=>10, Errmode=>'die',Prompt=>'/\S*#$/i');
my $switch=$ARGV[0];
my $timeout = 10;
$telnet->open($switch);
unlink('input.log');
$telnet->input_log('input.log');
$telnet->waitfor('/Username: $/i');
$telnet->print('user');
$telnet->waitfor('/Password: $/i');
$telnet->print('geheim');
unlink('script.log');
$telnet->cmd('sh mac');
while (my $line=$telnet->getline(Timeout => $timeout, Errmode => 'return')) {
last unless $line;
if ($line =~ /More/i) {
print "More gefunden\n";
$telnet->print('\n');
}
print $line;
last if $line =~ /#/;
}
$telnet->close;
Das Ergebnis ist aber leider unverändert. More wird nicht erkannt, das Script verharrt an der entsprechenden Stelle und bricht irgendwann ab. Ich bin mir nicht sicher, ob ich das New-Line richtig übergebe, hab alle Möglichkeiten schon ausprobiert, aber zumindest sollte doch der Hinweis "More gefunden" ausgegeben werden. Ich habe mal zusätzlich noch die Ausgabe des input_log beigefügt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
User Access Verification
Username: user
Password:
SWITCH-4711-0#sh mac
Interface MAC Address VLAN Type
--------- ----------------- ---- -----------------
Eth 1/ 3 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/ 4 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/ 5 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/ 6 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/ 7 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/ 8 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/10 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/11 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/12 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/13 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/17 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/18 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/19 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/20 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/21 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/22 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/25 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/25 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/25 1A-2B-3C-4D-5E-6F 123 Learned
Eth 1/25 1A-2B-3C-4D-5E-6F 123 Learned
---More---