abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

    včera 22:33 | Komunita

    Ubuntu Cinnamon bude od Ubuntu 23.04 oficiální odnoží Ubuntu (návrh, schválení).

    Ladislav Hagara | Komentářů: 3
    včera 19:22 | Nová verze

    Byla vydána nová major verze 5.0 účetního softwaru GnuCash (Wikipedie). Ve formátu Flatpak je již k dispozici na Flathubu.

    Ladislav Hagara | Komentářů: 0
    včera 18:33 | Nová verze

    Na GOG.com běží Spring Sale. Při té příležitosti lze získat zdarma počítačovou hru Alwa's Awakening (ProtonDB).

    Ladislav Hagara | Komentářů: 0
    včera 16:55 | Nová verze

    Byla vydána verze 3.28.0 2D CAD (computer-aided design) softwaru QCAD (Wikipedie). Přehled novinek v Changelogu.

    Ladislav Hagara | Komentářů: 0
    včera 08:00 | IT novinky

    Změna ve vedení společnosti SUSE. Dosavadní CEO Melissa Di Donato odstoupila. Od 1. května je novým CEO Dirk-Peter van Leeuwen, bývalý Senior Vice President a General Manager ve společnosti Red Hat.

    Ladislav Hagara | Komentářů: 10
    27.3. 22:22 | Nová verze

    CyberChef je webová aplikace pro analýzu dat a jejich kódování a dekódování, šifrování a dešifrování, kompresi a dekompresi, atd. Často je využívaná při kybernetických cvičeních a CTF (Capture the Flag). Vydána byla nová major verze 10 (aktuálně 10.4.0). Přehled novinek v Changelogu.

    Ladislav Hagara | Komentářů: 0
    27.3. 19:22 | Nová verze

    UBports, nadace a komunita kolem Ubuntu pro telefony a tablety Ubuntu Touch, vydala Ubuntu Touch OTA-1 Focal založené na Ubuntu 20.04 Focal Fossa.

    Ladislav Hagara | Komentářů: 1
    27.3. 17:11 | IT novinky

    Společnost Red Hat slaví 30 let.

    Ladislav Hagara | Komentářů: 2
    27.3. 15:22 | IT novinky

    Ve věku 91 let zemřel izraelský informatik Ja'akov Ziv, spolutvůrce bezztrátových kompresních algoritmů LZ77, LZ78 a LZW (Lempel–Ziv–Welch).

    Ladislav Hagara | Komentářů: 0
    27.3. 11:00 | IT novinky

    Byla představena nová Arduino deska Arduino UNO R4 s 32bitovým MCU RA4M1 (Arm Cortex-M4). Desku lze zatím získat pouze v rámci early access programu.

    Ladislav Hagara | Komentářů: 0
    Používáte WSL (Windows Subsystem for Linux)?
     (73%)
     (12%)
     (4%)
     (11%)
    Celkem 358 hlasů
     Komentářů: 7, poslední včera 17:34
    Rozcestník


    Dotaz: Hromadny skript v Perli

    31.3.2013 15:38 Fabricio
    Hromadny skript v Perli
    Přečteno: 252×
    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.

    Řešení dotazu:


    Odpovědi

    31.3.2013 15:47 stanik89 | skóre: 4 | Ostrava
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    soubor bych v perlu načetl do pole a poté bych v cyklu který by pole procházel pouštěl dané příkazy :-)
    31.3.2013 15:57 Fabricio
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    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?
    Řešení 1× (stanik89)
    31.3.2013 16:28 stanik89 | skóre: 4 | Ostrava
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    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;
    31.3.2013 16:46 Fabricio
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    Super funguje to presne tak ako som chcel. Dakujem ti este raz velmi si mi pomohol.
    31.3.2013 16:50 stanik89 | skóre: 4 | Ostrava
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    to sem rád, nemáš vůbec zač.
    1.4.2013 20:46 kolcon | skóre: 15 | blog: kolcon
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    2-way open je deprecated

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

    ...

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

    } close $file;
    1.4.2013 20:47 kolcon | skóre: 15 | blog: kolcon
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    (open ne opem, preklep)
    1.4.2013 01:45 mike
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    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
    
    1.4.2013 21:07 Ivan
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    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.

    1.4.2013 21:12 potato
    Rozbalit Rozbalit vše Re: Hromadny skript v Perli
    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í.

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.