Net::telnet conffin tallennus

perliä

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.

2

901

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Trump muka öljyn takia Venezuelaan? Pelkää mustamaalausta

      Kertokaapa mistä tuollainen uutisankka on saanut alkunsta? Näyttäkääpä ne alkuperäiset lähteet, minä en löytänyt mitään
      Maailman menoa
      87
      5181
    2. Kun Arman Alizad puolusti hiihtäjä Vilma Nissilää sanomalla

      "älä välitä sekopäistä Vilma", ja kun siitä kerrottiin täällä, niin sekopäinen mukasuvaitsevainen teki siitä valituksen
      Maailman menoa
      53
      3326
    3. Venezuela on hyvä esimerkki vasemmistolaisten pahuudesta

      Jokainen tietää, että Venezuelassa on pitkään ollut Chavezin ja Maduron vasemmistohallinto. Maan talous on romuttunut,
      Maailman menoa
      73
      2705
    4. Ei tule uni

      Kuten epäilin. Onneksi viime yön sain ihan hyvin nukutuksi. Tiesin kyllä, ettei tästä mitään tänään tule.
      Ikävä
      62
      1368
    5. Miksi juuri Venezuela?

      Kaikista maailman valtioista Trump otti silmätikukseen Venezuelan. Mutta minkä ihmeen takia? Kyseessä on kuitenkin vähäp
      Maailman menoa
      304
      1288
    6. Miksei Trump ole kiinnostunut Suomen valloittamisesta?

      Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?
      Maailman menoa
      23
      1215
    7. Jos mies olet oikeasti...?

      Kiinnostunut... Pyydä mut kunnolla treffeille ja laita itsesi likoon. En voi antaa sydäntä jos sinä olet epävarma ja eh
      Ikävä
      112
      1086
    8. Tiedän, että olet luonnevikainen

      Haluaisin vain todeta olleeni väärässä tässä asiassa.
      Ikävä
      46
      1040
    9. Toivon sulle silti hyvää

      Väärinkäsityksiä tapahtuu, mutta nyt on uusi vuosi ja uudet kujeet.
      Ikävä
      41
      1026
    10. Martinalta vahva viesti

      "Suuret unelmat venyttävät sinua, pelottavat vähän ja vievät mukavuusalueen ulkopuolelle. Juuri siellä kasvu tapahtuu. J
      Kotimaiset julkkisjuorut
      231
      1017
    Aihe