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í
×
    25.7. 19:55 | IT novinky

    Americký výrobce čipů Intel propustí 15 procent zaměstnanců (en), do konce roku by jich v podniku mělo pracovat zhruba 75.000. Firma se potýká s výrobními problémy a opouští také miliardový plán na výstavbu továrny v Německu a Polsku.

    Ladislav Hagara | Komentářů: 21
    25.7. 17:33 | Komunita

    MDN (Wikipedie), dnes MDN Web Docs, původně Mozilla Developer Network, slaví 20 let. V říjnu 2004 byl ukončen provoz serveru Netscape DevEdge, který byl hlavním zdrojem dokumentace k webovým prohlížečům Netscape a k webovým technologiím obecně. Mozille se po jednáních s AOL povedlo dokumenty z Netscape DevEdge zachránit a 23. července 2005 byl spuštěn MDC (Mozilla Developer Center). Ten byl v roce 2010 přejmenován na MDN.

    Ladislav Hagara | Komentářů: 0
    25.7. 14:55 | Nová verze

    Wayback byl vydán ve verzi 0.1. Wayback je "tak akorát Waylandu, aby fungoval Xwayland". Jedná se o kompatibilní vrstvu umožňující běh plnohodnotných X11 desktopových prostředí s využitím komponent z Waylandu. Cílem je nakonec nahradit klasický server X.Org, a tím snížit zátěž údržby aplikací X11.

    Ladislav Hagara | Komentářů: 0
    25.7. 13:33 | Nová verze

    Byla vydána nová verze 6.18 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Nově se lze k síti Tor připojit pomocí mostu WebTunnel. Tor Browser byl povýšen na verzi 14.5.5. Thunderbird na verzi 128.12.0. Další změny v příslušném seznamu.

    Ladislav Hagara | Komentářů: 0
    24.7. 14:33 | IT novinky

    Meta představila prototyp náramku, který snímá elektrickou aktivity svalů (povrchová elektromyografie, EMG) a umožňuje jemnými gesty ruky a prstů ovládat počítač nebo různá zařízení. Získané datové sady emg2qwerty a emg2pose jsou open source.

    Ladislav Hagara | Komentářů: 1
    24.7. 14:22 | Nová verze

    Byla vydána (𝕏) nová verze 25.7 open source firewallové a routovací platformy OPNsense (Wikipedie). Jedná se o fork pfSense postavený na FreeBSD. Kódový název OPNsense 25.7 je Visionary Viper. Přehled novinek v příspěvku na fóru.

    Ladislav Hagara | Komentářů: 0
    24.7. 13:33 | IT novinky

    Před 40 lety, 23. července 1985, společnost Commodore představila první počítač Amiga. Jednalo se o počítač "Amiga od Commodore", jenž byl později pojmenován Amiga 1000. Mělo se jednat o přímou konkurenci počítače Apple Macintosh uvedeného na trh v lednu 1984.

    Ladislav Hagara | Komentářů: 2
    24.7. 06:00 | IT novinky

    T‑Mobile USA ve spolupráci se Starlinkem spustil službu T-Satellite. Uživatelé služby mohou v odlehlých oblastech bez mobilního signálu aktuálně využívat satelitní síť s více než 650 satelity pro posílání a příjem zpráv, sdílení polohy, posílání zpráv na 911 a příjem upozornění, posílání obrázků a krátkých hlasových zpráv pomocí aplikace Zprávy Google. V plánu jsou také satelitní data.

    Ladislav Hagara | Komentářů: 9
    23.7. 21:55 | Komunita

    Společnost Proxmox Server Solutions stojící za virtualizační platformou Proxmox Virtual Environment věnovala 10 000 eur nadaci The Perl and Raku Foundation (TPRF).

    Ladislav Hagara | Komentářů: 2
    23.7. 21:22 | Bezpečnostní upozornění

    Byla vydána nová verze 2.4.65 svobodného multiplatformního webového serveru Apache (httpd). Řešena je bezpečnostní chyba CVE-2025-54090.

    Ladislav Hagara | Komentářů: 0
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (29%)
     (25%)
     (5%)
     (4%)
     (4%)
     (1%)
     (3%)
     (27%)
    Celkem 135 hlasů
     Komentářů: 17, poslední včera 20:08
    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: 261×
    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.