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

David Revoy, autor open source webového komiksu Pepper&Carrot nebo portrétu GNU/Linuxu, upozorňuje na svém blogu, že nový Inkscape 0.92 rozbíjí dokumenty vytvořené v předchozích verzích Inkscape. Problém by měl být vyřešen v Inkscape 0.92.2 [reddit].

Ladislav Hagara | Komentářů: 0
dnes 02:02 | Komunita

Øyvind Kolås, hlavní vývojář grafických knihoven GEGL a babl, které využívá grafický program GIMP, žádá o podporu na Patreonu. Díky ní bude moci pracovat na vývoji na plný úvazek. Milník 1000 $, který by stačil na holé přežití, se již téměř podařilo vybrat, dalším cílem je dosažení 2500 $, které mu umožní běžně fungovat ve společnosti.

xkomczax | Komentářů: 7
včera 23:54 | Pozvánky

DevConf.cz 2017, již devátý ročník jedné z největších akcí zaměřených na Linux a open source ve střední Evropě, proběhne od pátku 27. ledna do neděle 29. ledna v prostorách Fakulty informačních technologií Vysokého učení technického v Brně. Na programu je celá řada zajímavých přednášek a workshopů. Letos je povinná registrace.

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

Byla vydána verze 1.0.0 emulátoru terminálu Terminology postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
20.1. 17:00 | Nová verze

Byl vydán Docker 1.13. Přehled novinek na YouTube a v poznámkách k vydání na GitHubu. Docker umožňuje běh aplikací v softwarových kontejnerech (Wikipedia).

Ladislav Hagara | Komentářů: 4
20.1. 15:51 | Komunita

Mozilla.cz informuje, že nástroje pro webové vývojáře se možná oddělí od Firefoxu a stanou doplňkem. Nástroje pro webové vývojáře prošly velkým přepisem a tým, který se stará o jejich vývoj, by uvítal možnost jejich častějších aktualizacích nezávisle na vydávání nových verzí Firefoxu.

Ladislav Hagara | Komentářů: 8
20.1. 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
20.1. 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
20.1. 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

Ladislav Hagara | Komentářů: 0
20.1. 00:11 | Zajímavý článek

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (3%)
 (10%)
Celkem 358 hlasů
 Komentářů: 25, poslední včera 13:34
    Rozcestník
    Reklama
    Štítky: není přiřazen žádný štítek

    Dotaz: Jak ulozit vystup do nejakeho txt (v Perl)

    NbS avatar 15.11.2005 09:11 NbS | skóre: 26 | blog: Linux jako Linux ... vsude je neco jako /etc | Prague
    Jak ulozit vystup do nejakeho txt (v Perl)
    Přečteno: 207×
    Zdravim

    Nevi nekdo jak by sel ulozit vysledek (ktery se vypisuje klasicky do shelu) treba do /user/vysledek.txt ?

    ted budu rikat blbost (ale beztak to neslo :) pres print "> /user/vysledek.txt"; to pochopitelne neslo :(

    diky
    Pan Bily byli bily strop, aby byl bily ... (Opravdu si myslite, ze je to spravne) ?

    Odpovědi

    Pravák Bob avatar 15.11.2005 09:21 Pravák Bob | skóre: 13 | Praha
    Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
    Hmm, zkusil bych klasické přesměrování výstupu typu: "perl program.pl > vysledek.txt"
    knowledge brings fear
    15.11.2005 09:27 zabza | skóre: 52 | blog: Nad_sklenkou_cerveneho
    Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
    open F, '>/tmp/vysledek.txt';
    print F "Hello world!\n";
    close F;
    
    NbS avatar 15.11.2005 09:41 NbS | skóre: 26 | blog: Linux jako Linux ... vsude je neco jako /etc | Prague
    Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
    pr
    #!/usr/bin/perl
    $par="20";
    for ($i=1;$i<255;$i++) {
    if (qx[program -parametry $par.$i ] ) {
    }
    }
    
    a jak to tam nejak sikovne zakomponovat (to je to oc tu bezi)
    
    open F, '>/home/user/Desktop/vysledek.txt';
    print F "";
    close F;
    
    protoze program vypisuje stale jen do shellu :(
    
    
    diky
    Pan Bily byli bily strop, aby byl bily ... (Opravdu si myslite, ze je to spravne) ?
    15.11.2005 10:15 zabza | skóre: 52 | blog: Nad_sklenkou_cerveneho
    Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
    if ($result = qx[program -parametry $par.$i ] ) {
      print FILE $result;
    }
    Jestli program vypisuje něco na STDERR, tak to musíte/chcete přeměrovat...
    15.11.2005 10:24 alex
    Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
    Existuje jeste moznost presmerovat veskery vystup ze STDOUT do nejakeho souboru stejne jako v shelle. K tomu muzete pouzit "select". To znamena, ze uplne na zacatku vaseho skriptu napisete
    open F, ">vysledek.txt";
    select F;
    
    a pak uplne na konci napisete
    close F;
    
    Nic vic menit nemusite (pokud program nevypisuje na STDERR, jak tady bylo spravne poznamenano).
    NbS avatar 15.11.2005 11:05 NbS | skóre: 26 | blog: Linux jako Linux ... vsude je neco jako /etc | Prague
    Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
    Ne tak bohuzel :(

    kdyz zapisu $program -parametry -parametry > vystup.txt tak to ze shellu krasne funguje (jako predtim)

    nicmene kdyz to same chci i po tomhle tak nic (je to sice prkotina ale chtel jsem si usnadnit praci nasledne mam jeste jeden script kterej to vyhodnocuje a posila vysledky mi - jak rikam kdyz to spustim ze shellu tak v poho...)
    #!/usr/bin/perl
    open F, "> vysledek.txt";
    select F;
    
    $inet="192.168.0";
    
    for ($i=1;$i<68;$i++) {
    if (qx[ping -c1 $inet.$i] ) {
    
    close F;
    
    }
    }
    
    diky
    Pan Bily byli bily strop, aby byl bily ... (Opravdu si myslite, ze je to spravne) ?
    15.11.2005 11:48 alex
    Rozbalit Rozbalit vše Re: Jak ulozit vystup do nejakeho txt (v Perl)
    Zapvrve, psal jsem abyste dal "close F;" uplne na konec skriptu, ale vy jste to umistil doprostred smycky for.

    Zadruhe, nechapu presne ceho chcete dosahnout. Pingnout spoustu stroju a vysledky presmerovat do souboru vystup.txt? Pak to muzete udelat takhle:
    #!/usr/bin/perl
    
    open F, ">vystup.txt";
    select F;
    
    $inet="192.168.0";
    
    foreach $host ( 1 .. 67 ) {
        print qx[ping -c1 $inet.$host]
    }
    
    close F;
    
    Pokud vas ale zajima jenom vysledek, t.j. jestli stroj odpovida nebo ne, pak muzete upravit smycku takto:
    foreach $host ( 1 .. 67 ) {
        qx[ping -c $inet.$host];
        if ( $? ) {
            print "$inet.$host is dead\n"
        } else {
            print "$inet.$host is alive\n"
        }
    }
    

    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.