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 21:32 | Nasazení Linuxu

Canonical představuje nejnovější verzi chytré helmy DAQRI s Ubuntu pro rozšířenou realitu. K vidění bude příští týden v Barceloně na veletrhu Mobile World Congress 2017.

Ladislav Hagara | Komentářů: 0
včera 21:31 | Pozvánky

Pro zájemce o hlubší znalosti fungování operačních systémů připravila MFF UK nový předmět Pokročilé operační systémy, v rámci něhož se vystřídají přednášející nejen z řad pracovníků fakulty, ale dorazí také odborníci ze společností AVAST, Oracle, Red Hat a SUSE. Tento předmět volně navazuje na kurz Operační systémy ze zimního semestru, ale pokud máte praktické zkušenosti odjinud (například z přispívání do jádra Linuxu) a chcete si

… více »
Martin Děcký | Komentářů: 0
včera 21:30 | Pozvánky

Czech JBoss User Group Vás srdečně zve na setkání JBUG v Brně, které se koná ve středu 1. března 2017 v prostorách Fakulty Informatiky Masarykovy Univerzity v místnosti A318 od 18:00. Přednáší Tomáš Remeš a Matěj Novotný na téma CDI 2.0 - New and Noteworthy. Více informací na Facebooku a na Twitteru #jbugcz.

mjedlick | Komentářů: 0
20.2. 23:45 | Zajímavý software

Na blogu Qt bylo představeno Qt 3D Studio. Jedná se o produkt dosud známý pod názvem NVIDIA DRIVE™ Design Studio. NVIDIA jej věnovala Qt. Jedná se o několik set tisíc řádků zdrojového kódu. Qt 3D Studio bude stejně jako Qt k dispozici jak pod open source, tak pod komerční licencí. Ukázka práce s Qt 3D Studiem na YouTube.

Ladislav Hagara | Komentářů: 10
20.2. 17:50 | Komunita

Nadace The Document Foundation (TDF) zastřešující vývoj svobodného kancelářského balíku LibreOffice slaví 5 let od svého oficiálního vzniku. Nadace byla představena 28. září 2010. Formálně byla založena ale až 17. února 2012.

Ladislav Hagara | Komentářů: 0
20.2. 12:50 | Komunita

Mozilla.cz informuje, že dosud experimentální funkce Page Shot z programu Firefox Test Pilot (zprávička) se stane součástí Firefoxu. Page Shot je nástroj pro vytváření snímků webových stránek. Umí výběr oblasti, prvku stránky (např. odstavce), nebo uložení snímku celé stránky. Snímky lze ukládat na disk nebo nahrávat na server Mozilly. Nedávno bylo oznámeno, že se součástí Firefoxu stane Activity Stream.

Ladislav Hagara | Komentářů: 31
20.2. 04:10 | Nová verze

Po 10 týdnech vývoje od vydání Linuxu 4.9 (zprávička) oznámil Linus Torvalds, mj. již 20 let žijící v USA, vydání Linuxu 4.10 (LKML). Přehled nových vlastností a vylepšení například na Kernel Newbies a v Jaderných novinách (1, 2 a 3). Kódové jméno Linuxu 4.10 je Fearless Coyote.

Ladislav Hagara | Komentářů: 22
19.2. 15:55 | Zajímavý projekt

Vyzkoušet si příkazy a vyřešit několik úkolů lze na stránkách Commandline Challenge (CMD Challenge). Úkoly lze řešit různými způsoby, důležitý je výsledek. Zdrojové kódy jsou k dispozici na GitHubu pod licencí MIT.

Ladislav Hagara | Komentářů: 18
18.2. 17:35 | Bezpečnostní upozornění

Německá Bundesnetzagentur (obdoba českého ČTU) zakázala na německém území prodej panenky Cayla kvůli „špionáži“ dětí. Tato elektronická hračka obsahuje mikrofon, reproduktor a kameru a bezdrátové komunikační rozhraní, pomocí kterého se hračka připojuje na servery výrobce. Takovýmto způsobem může hračka pomocí umělé inteligence „odpovídat“ na dotazy dítěte. Hlavní problém bude ale asi někde jinde, podle prvotních zpráv může

… více »
Petr Tomášek | Komentářů: 34
17.2. 15:30 | Bezpečnostní upozornění

CSIRT.CZ upozorňuje, že bezpečnostní experti objevili nový typ malwaru, jenž cílí na open source e-commerce platformu Magento. Malware je zajímavý tím, že se jedná o první svého druhu, jehož kód zůstává skrytý v SQL databázi zasaženého e-shopu. Škodlivý kód je volán pomocí tzv. SQL trigerru, který je spouštěn při každém vytvoření objednávky v systému.

Ladislav Hagara | Komentářů: 6
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (13%)
 (2%)
 (72%)
 (3%)
 (10%)
Celkem 679 hlasů
 Komentářů: 61, poslední včera 13:06
Rozcestník

Dotaz: Hromadny skript v Perli

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