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í
×
    dnes 12:22 | Nová verze Ladislav Hagara | Komentářů: 0
    včera 20:00 | Komunita

    Byly zpracovány a na YouTube zveřejněny videozáznamy z konference LinuxDays 2025.

    Ladislav Hagara | Komentářů: 0
    4.10. 15:22 | IT novinky

    Na konferenci LinuxDays 2025 byl oficiálně představen nový router Turris Omnia NG.

    Ladislav Hagara | Komentářů: 26
    4.10. 05:22 | Komunita

    Přímý přenos (YouTube) z konference LinuxDays 2025, jež probíhá tento víkend v Praze v prostorách FIT ČVUT. Na programu je spousta zajímavých přednášek.

    Ladislav Hagara | Komentářů: 12
    3.10. 22:44 | IT novinky

    V únoru loňského roku Úřad pro ochranu osobních údajů pravomocně uložil společnosti Avast Software pokutu 351 mil. Kč za porušení GDPR. Městský soud v Praze tuto pokutu na úterním jednání zrušil. Potvrdil ale, že společnost Avast porušila zákon, když skrze svůj zdarma dostupný antivirový program sledovala, které weby jeho uživatelé navštěvují, a tyto informace předávala dceřiné společnosti Jumpshot. Úřad pro ochranu osobních údajů

    … více »
    Ladislav Hagara | Komentářů: 9
    3.10. 19:00 | Nová verze

    Google Chrome 141 byl prohlášen za stabilní. Nejnovější stabilní verze 141.0.7390.54 přináší řadu novinek z hlediska uživatelů i vývojářů. Podrobný přehled v poznámkách k vydání. Opraveno bylo 21 bezpečnostních chyb. Za nejvážnější z nich (Heap buffer overflow in WebGPU) bylo vyplaceno 25 000 dolarů. Vylepšeny byly také nástroje pro vývojáře.

    Ladislav Hagara | Komentářů: 0
    3.10. 17:11 | Upozornění

    eDoklady mají kvůli vysoké zátěži technické potíže. Ministerstvo vnitra doporučuje vzít si sebou klasický občanský průkaz nebo pas.

    Ladislav Hagara | Komentářů: 31
    3.10. 17:00 | Komunita

    Novým prezidentem Free Software Foundation (FSF) se stal Ian Kelling.

    Ladislav Hagara | Komentářů: 1
    3.10. 14:33 | Komunita

    Na čem pracují vývojáři webového prohlížeče Ladybird (GitHub)? Byl publikován přehled vývoje za září (YouTube).

    Ladislav Hagara | Komentářů: 0
    3.10. 12:33 | Upozornění

    Vyšla kniha Počítačové programy a autorské právo. Podle internetových stránek nakladatelství je v knize "Významný prostor věnován otevřenému a svobodnému softwaru, jeho licencím, důsledkům jejich porušení a rizikům „nakažení“ proprietárního kódu režimem open source."

    javokajifeng | Komentářů: 0
    Jaké řešení používáte k vývoji / práci?
     (38%)
     (45%)
     (16%)
     (17%)
     (21%)
     (15%)
     (17%)
     (16%)
     (16%)
    Celkem 178 hlasů
     Komentářů: 12, poslední 4.10. 20:35
    Rozcestník

    Dotaz: Hromadny skript v Perli

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