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

903

    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. Lataus pakkaskelissä

      En olisi koskaan ostanut sähköautoa jos olisin tajunnut että ne eivät lataa pakkasissa suurteholatauksella vaan istut tu
      Hybridi- ja sähköautot
      105
      4054
    2. Kun väestö ikääntyy ja veronmaksajat vähenee, mitä sitten vasemmistolaiset?

      Maahanmuutto ei vaan ole ratkaisu väestön ikääntymiseen. Maahanmuutto lykkää ja hidastaa väestön ikääntymistä ja työv
      Maailman menoa
      56
      2280
    3. Miksei Trump ole kiinnostunut Suomen valloittamisesta?

      Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?
      Maailman menoa
      74
      1600
    4. Kyllä mä suren

      Sitä että mikään ei ole kuten ennen. Ei niitä hetkiä ja katseita. Toisaalta keho lepää eikä enää tarvitse sitä tuskaa ko
      Ikävä
      5
      1054
    5. Jos vielä joku päivä nähtäis...

      Miten suhtautuisit minuun, mies?
      Ikävä
      66
      834
    6. Nyt se on varmaa kuntajakoselvitys

      Ensi viikolla tuöee kuntaministeri ulos ja kertoo asiasta.
      Ähtäri
      20
      784
    7. Olet mies aika ailahteleva luonteeltasi

      Olen nähnyt kuinka olet iloinen, sosiaalinen ja osallistuva. Autat ja kannustat muita. Ja sitten olen nähnyt kuinka istu
      Ikävä
      117
      778
    8. Laitetaan nyt kirjaimet kohdilleen

      kuka rakastaa ja ketä ?
      Ikävä
      39
      762
    9. Olisin valmis tutustumaan uudelleen

      En menneisyyden kautta vaan haluaisin tutustua ihmiseen, jollaiseksi olet kasvanut.
      Ikävä
      49
      748
    10. Tiedät sen

      Esitän välinpitämätöntä, mutta en ole sitä oikeasti.
      Ikävä
      62
      748
    Aihe