Dotaz: Hromadny skript v Perli

[Fabricio]

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 dakujem.

---

---

Odpovědi

[stanik89]

soubor bych v perlu načetl do pole a poté bych v cyklu který by pole procházel pouštěl dané příkazy

[Fabricio]

Tak nejak si to aj ja predstavujem ale nemam vela skusenosti s programovanim. Pracujem vo firme ako sietar a toto by mi ulahcilo kazdodennu pracu. Mohol by si mi prosim napisat cely skript ako by mal vyzerat?

[stanik89]

Mohlo by fungovat tohle, ale netestoval jsem to

#! /usr/bin/perl

use Net::Telnet;

open FILE, "/cesta k souboru/seznam.txt" or die;

$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');

while (my $line = <FILE>) { chomp;

$telnet->open($line); $telnet->waitfor('/password: $/i'); $telnet->print('heslo'); $telnet->print('tento prikaz vykonaj');

}

close FILE;

[Fabricio]

Super funguje to presne tak ako som chcel. Dakujem ti este raz velmi si mi pomohol.

[stanik89]

to sem rád, nemáš vůbec zač.

[kolcon]

2-way open je deprecated

opem my $file, '<', 'cesta_k_souboru' or die "Cannot open file";

...

while (my $line = <$file>) { ...

} close $file;

[kolcon]

(open ne opem, preklep)

[mike]

proc to delat v perlu, vzdyt je to jak delane pro shell a ssh/rsh pripadne expect

for address in `cat addresses`
do
    ssh $address $command
done

[Ivan]

proc to delat v perlu

Protoze prave na to je modul Net::Telnet (popr. Net::Telnet::Cisco) delany. Kdysi jsem takovych scriptu nekolik napsal. V Perlu se snadno pouzivaji i fork a signaly. Dany problem se da snadno paralelizovat.

Konkretni implementaci uz ale postnout nemuzu.

[potato]

Otázka asi byla, proč by to měl dělat v Perlu někdo, kdo v něm má potíže načíst řádky ze souboru a projet je cyklem. Forkování a signály asi nebudou v tom případě relevantní.