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

930

    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. Kuinka Riikka Purra on parantanut Suomen kansalaisen elämää?

      Haastan kaikki perussuomalaisten kannattajat kertomaan konkreettisia esimerkkejä kuinka Riikka Purran harjoittama politi
      Maailman menoa
      254
      4855
    2. Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava

      valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak
      Maailman menoa
      95
      2425
    3. Kehu kaivattuasi

      Mikä hänessä on parasta? Jos osaat kertoa muuta kuin ulkonäköön liittyvää, niin ansaitset mitalin.
      Ikävä
      117
      1540
    4. Mahtavaa, Trump pelasti lentäjän, Irania nöyryytettiin

      https://www.is.fi/ulkomaat/art-2000011917601.html Taas osoitus kuinka ylivertainen maa USA on Trumpin johdolla.
      Maailman menoa
      324
      948
    5. Minkälaisen viestin

      Laittaisit ikävöinnin kohteelle, jos rohkenisit?
      Ikävä
      73
      932
    6. Keskiviikkona 8.4.2026 se tapahtuu

      Nimittäin tulevana keskiviikkona 8.4.2026 Donald Trump ilmoittaa Naton pääsihteerille että Yhdysvallat eroaa Natosta. N
      NATO
      270
      859
    7. Miten voit olla niin tyhmä

      että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle
      Tunteet
      115
      822
    8. Rakastin sua niin paljon ettei löydy sanoja sille tunteenpalolle mitä silloin koin

      Sellaista tunnetta ei koe kuin ehkä kerran elämässä. Tuntui, että sekoaa, että menee järjiltään. Tuntui että räjähtää si
      Ikävä
      33
      787
    9. Hitto mulla

      On sinua ikävä ihana.
      Ikävä
      38
      736
    10. Millaisena uskot

      Kaivattusi kokevan tunteensa?
      Ikävä
      67
      702
    Aihe