Hromadny skript v Perli

Sekcia: Programovanie 31.03.2013 | 17:35
Fabricio   Návštevník
Caute potreboval by som pomoct s jednym skriptom v perli.
Konkretne:

use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet->open('192.168.1.1');
$telnet->waitfor('/password: $/i');
$telnet->print('heslo');
$telnet->print('tento prikaz vykonaj');

Mam v sieti viac aktivnych prvkov ktore riadim cez telnet. Potreboval by som ho ale niekedy pustit plosne napr na 100 IP adries z textoveho suboru. Otazka teda znie ako tento skript upravim tak aby nebral iba IP 192.168.1.1 ale aby bral IP s txt suboru a na vsetkych vykonal prikaz "tento prikaz vykonaj".
Za odpovede vopred dajukem.


    • Re: Hromadny skript v Perli 31.03.2013 | 18:17
      WlaSaTy   Návštevník
      Najjednoduchší spôsob je otvoriť si súbor s IP adresami a v cykle z neho čítať IP adresy po riadkoch.
      • Re: Hromadny skript v Perli 31.03.2013 | 18:34
        Fabricio   Návštevník
        Ja plus minus rozumiem ako by sa to dalo spravit ale neni som programator pracujem vo firme ako sietar a toto by mi ulahcilo kazdodennu pracu. Mohol by si sem prosim napisat cely skript ako by mal vyzerat?
        • Re: Hromadny skript v Perli 06.04.2013 | 22:29
          peter   Návštevník
          cat _subor_s_IP_po_riadkoch | xargs -n 1 | ./tvoj_stript.pl

          a v tom skripte si uprav '192.168.1.1' za $ARGV[0]

          pisem z hlavy, mozno chybka bude :)