koodi on lyhykäisyydessään tälläinen :
#------------------------------------------
#!/usr/bin/perl -w
#
#
#
#
#
use Net::Telnet;
$telnet = new Net::Telnet ( timeout => 20, Errmode => 'die');
$telnet -> open('123.123.123.123');
$telnet -> waitfor ('/Password:/');
$telnet -> print ('salasana');
$telnet -> waitfor ('/>/');
$telnet -> print ('en');
$telnet -> waitfor ('/Password:/');
$telnet -> print ('salasana');
$telnet -> waitfor ('/#/');
$telnet -> print ('show running-config');
$telnet -> waitfor ('/configuration.../');
@output = $telnet -> waitfor ('/More/');
$telnet -> close ('321.321.321.321');
foreach $array(@output){
print $array;
}
print "\n";
#----------------------------------------------
koitan saada Cisco purkista conffin talteen, mutta ongelma tuottaa telnet:n rivien määrä.
Cisco ilmoittaa 25 rivin jälkeen että pitää painaa enteriä jotta näytetään seuraava rivi, ja tämän jälkeen pitää enteriä painaa jokaisen rivin kohdalla.
mitenkä saan joko kasvatettua tuota tulostettavien rivien määrää, tai sitten automaattisesti tulemaan koko conffin.
conffi loppuu end-sanaan eli siihen olisi hyvä @outputin loppua.
Net::telnet conffin tallennus
perliä
2
922
Vastaukset
Ei ole kokemusta tuosta modulista, mutta etkö voi vain kutsua funktiota waitfor('/More/') kunnes vastaan tulee se end ? Jokaisen loopin tuottamat rivit push()ataan sitten vain tuohon @outputiin.
Toinen vaihtoehto on katsoa, saako ko. laitteen terminaalin rivien määrää vaihdettua jollain komennolla tai asetuksella.- perliä
rivin määräksi kun laittoi 0:n niin ei kysele.
ei löytynyt käyttöohjeesta, mutta joku oli joskus törmännyt samaan ongelmaan.
Kiitoksia jälleen kerran.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kelekkakisat
Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.2811133- 498677
- 1375415
- 1443714
- 693608
Virkamiehille tarvitaan tuntuvat palkankorotukset
Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi353574- 403298
- 572618
Olisipa saanut sinuun
Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak532190- 281826