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 11:33 | Zajímavý článek

    Chris Down v obsáhlém článku „vyvrací mýty o zswap a zram“, vysvětluje, co vlastně dělají a jaké jsou mezi nimi rozdíly. Doporučuje vyhýbat se zram na serveru a bez OOM.

    |🇵🇸 | Komentářů: 1
    dnes 11:22 | IT novinky

    Porota v Los Angeles shledala firmy Google a Meta odpovědnými v přelomovém soudním sporu, který se týká závislosti na sociálních sítích; firmy musí zaplatit odškodné tři miliony dolarů (63,4 milionu Kč). Společnosti, které s verdiktem nesouhlasí, čelily obvinění, že své sociální sítě a platformy záměrně navrhly tak, aby si na nich děti vypěstovaly závislost. Porota došla k závěru, že technologické společnosti při navrhování a

    … více »
    Ladislav Hagara | Komentářů: 8
    včera 19:11 | Komunita

    Jelikož vývojáři editorů Vim a Neovim začali při vývoji využívat LLM, Drew DeVault se rozhodl forknout Vim a vytvořil projekt Vim Classic. Vychází z Vimu 8.2.0148, tj. těsně před zavedením Vim9 skriptování.

    Ladislav Hagara | Komentářů: 5
    včera 16:11 | Nová verze

    Byla vydána nová verze 0.56 open source počítačové hry Unvanquished (Wikipedie), forku počítačové hry Tremulous. Instalovat ji lze také z Flathubu.

    Ladislav Hagara | Komentářů: 0
    včera 14:11 | Nová verze

    FreeCAD (Wikipedie), tj. svobodný multiplatformní parametrický 3D CAD, byl vydán ve verzi 1.1 (YouTube). Po roce a čtyřech měsících od předchozí verze 1.0. Přehled novinek i s náhledy v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 4
    včera 13:11 | IT novinky

    Společnost OpenAI oznámila [𝕏], že ukončí aplikaci Sora pro generování krátkých videí pomocí umělé inteligence. Podrobné informace a harmonogram pro aplikaci a API budou brzy zveřejněny.

    Ladislav Hagara | Komentářů: 9
    včera 12:22 | IT novinky

    Evropská směrnice NIS2 přináší nové požadavky v oblasti kybernetické bezpečnosti, které se promítají také do správy doménových jmen. Do českého právního řádu je směrnice implementována prostřednictvím nového zákona o kybernetické bezpečnosti. Jedním z praktických důsledků této legislativní změny je posílení požadavků na dostupnost a správnost kontaktních údajů držitelů domén. Správce registru domény .cz, sdružení CZ.NIC, je v

    … více »
    Ladislav Hagara | Komentářů: 32
    včera 01:55 | Nová verze

    Jonathan Thomas oznámil vydání nové verze 3.5.0 video editoru OpenShot (Wikipedie). Zdrojové kódy OpenShotu jsou k dispozici na GitHubu. Ke stažení je i balíček ve formátu AppImage. Stačí jej stáhnout, nastavit právo na spouštění a spustit.

    Ladislav Hagara | Komentářů: 4
    včera 00:55 | Nová verze

    Byla vydána (𝕏, Bluesky) nová verze 2026.1 linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux (Wikipedie). Přehled novinek se seznamem 8 nových nástrojů v oficiálním oznámení na blogu.

    Ladislav Hagara | Komentářů: 0
    24.3. 16:33 | IT novinky

    Vláda jmenovala novým zmocněncem pro digitalizaci a strategickou bezpečnost prvního náměstka ministra vnitra Lukáše Klučku. Ten ve funkci nahradil poslance Roberta Králíčka poté, co Králíček na tento post vládního zmocněnce rezignoval. Klučka chce do roka digitalizovat všechny státní služby tak, aby vyhověly zákonu o právu na digitální služby, přičemž dosavadní plán Fialovy vlády počítal s dokončením digitalizace až někdy v roce

    … více »
    NUKE GAZA! 🎆 | Komentářů: 11
    Které desktopové prostředí na Linuxu používáte?
     (15%)
     (7%)
     (1%)
     (12%)
     (29%)
     (2%)
     (5%)
     (1%)
     (13%)
     (24%)
    Celkem 1156 hlasů
     Komentářů: 27, poslední 17.3. 19:26
    Rozcestník

    Dotaz: Hromadny skript v Perli

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