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:33 | Komunita

    Alex Ellis upozornil 15. března, že firma Docker se chystala zrušit bezplatný hosting open-source projektů na Docker Hubu. Po vlně odporu se představitelé firmy omluvili a posléze byl původní záměr odvolán.

    Fluttershy, yay! | Komentářů: 0
    dnes 07:00 | IT novinky

    Ve věku 94 let zemřel Gordon Moore, mj. spoluzakladatel společnosti Intel a autor Moorova zákona.

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

    Mercurial (Wikipedie), software pro SCM (Source Code Management), byl vydán ve verzi 6.4. Přehled novinek v poznámkách k vydání. Ve dnech 5. až 7. dubna proběhne konference Mercurial Paris.

    Ladislav Hagara | Komentářů: 0
    včera 11:55 | IT novinky

    Byly rozdány Ceny Velkého bratra (Big Brother Awards) za rok 2022 pro největší slídily pořádané nevládní organizací Iuridicum Remedium. Dlouhodobý slídil: Microsoft. Firemní slídil: Seznam. Úřední slídil: Nejvyšší správní soud. Výrok Velkého bratra: Marian Jurečka. Pozitivní cena: NoLog.

    Ladislav Hagara | Komentářů: 10
    včera 11:11 | Zajímavý projekt

    Byla představena online vzdělávací platforma Ada Computer Science pro učitele, studenty a kohokoli, kdo se zajímá o informatiku. Stojí za ní Raspberry Pi Foundation a Univerzita v Cambridgi.

    Ladislav Hagara | Komentářů: 0
    včera 09:11 | Bezpečnostní upozornění

    GitHub má nový RSA SSH klíč. Předchozí soukromý klíč byl krátce vystaven na GitHubu.

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

    Společnost Framework Computer představila (YouTube) nové modulární notebooky: Laptop 13 s Intel Core nebo AMD Ryzen a Laptop 16 (YouTube).

    Ladislav Hagara | Komentářů: 0
    23.3. 19:33 | Nová verze

    Bylo vydáno Ubuntu 20.04.6 LTS, tj. šesté opravné vydání Ubuntu 20.04 LTS s kódovým názvem Focal Fossa. Přehled novinek v poznámkách k vydání a v přehledu změn.

    Ladislav Hagara | Komentářů: 2
    23.3. 14:44 | IT novinky

    Připojit neznámý USB flash disk do počítače může být nebezpečné. Dokonce může jít i o život. Někdo rozeslal ekvádorským novinářům USB flash disky, které po připojení do počítače explodují [BBC, Twitter].

    Ladislav Hagara | Komentářů: 2
    23.3. 13:33 | Nová verze

    Byla vydána nová verze 7.4 open source virtualizační platformy Proxmox VE (Proxmox Virtual Environment, Wikipedie) založené na Debianu. Přehled novinek v poznámkách k vydání a v informačním videu.

    Ladislav Hagara | Komentářů: 0
    Používáte WSL (Windows Subsystem for Linux)?
     (74%)
     (12%)
     (4%)
     (10%)
    Celkem 319 hlasů
     Komentářů: 4, poslední včera 06:42
    Rozcestník
    Š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: 221×
    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.