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 13:55 | Zajímavý projekt

UPSat (Twitter) je první open source nanodružice (CubeSat). Jedná se o společný projekt nadace Libre Space Foundation a University of Patras. Repozitáře projektu jsou k dispozici na GitHubu. Pod Libre Space Foundation patří také projekt SatNOGS (zprávička), projekt globální sítě open source pozemních satelitních stanic, vítězný projekt soutěže The Hackaday Prize 2014. UPSat je součástí mise QB50 (Twitter). ID UPSatu je GR02. GPS přijímač na UPSatu je od české společnosti SkyFox Labs. Součástí mise QB50 je i česká nanodružice VZLUSAT-1 s ID CZ02.

Ladislav Hagara | Komentářů: 3
21.4. 15:00 | Komunita

V diskusním listu Thunderbird planning vývojáři poštovního klienta Thunderbird řeší, zda by nebylo možné budoucí Thunderbird postavit nad webovými technologiemi, tj. nad Electronem, stejně jako například Nylas Mail. Gecko, nad kterým je Thunderbird postaven, se má hodně změnit. V plánu je odstranění vlastností, které Firefox už nepotřebuje, ale Thunderbird je na nich závislý [Hacker News, reddit].

Ladislav Hagara | Komentářů: 79
21.4. 10:22 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno bylo celkově 299 bezpečnostních chyb. V Oracle Java SE je například opraveno 8 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 7 z nich. V Oracle MySQL je opraveno 39 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 11 z nich.

Ladislav Hagara | Komentářů: 6
21.4. 10:00 | Pozvánky

V úterý 25. dubna proběhne další Prague Containers Meetup. Přijďte se nechat inspirovat jak zlepšit build/delivery pipeline vašich kontejnerových aplikací.

little-drunk-jesus | Komentářů: 2
20.4. 21:33 | Komunita

Na Launchpadu se objevilo kódové jméno následující verze Ubuntu. Ubuntu 17.10 bude Artful Aardvark (mazaný hrabáč) [OMG! Ubuntu!].

Ladislav Hagara | Komentářů: 9
20.4. 20:11 | Zajímavý software

MojeFedora.cz informuje, že společnost Nylas oznámila vydání verze 2.0 poštovního klienta Nylas Mail (původně Nylas N1), která již plně podporuje Linux. Obchodní model společnosti je tzv. open core. Samotný klient je open source, ale uživatel si musí připlatit za některé pokročilé funkce. V základu se lze připojit k GMailu nebo libovolnému účtu přes IMAP. Podpora Exchange je pouze v placené verzi. Klient je napsaný nad Electronem.

Ladislav Hagara | Komentářů: 12
20.4. 15:55 | Zajímavý článek

České centrum pro investigativní žurnalistiku (ČCIŽ) publikovalo na svých stránkách článek s názvem Je česká státní správa „rukojmím Microsoftu“?. Drtivá většina české veřejné správy je závislá na výrobcích softwarového gigantu Microsoft – a nijak zvlášť jí to nevadí.

Ladislav Hagara | Komentářů: 16
20.4. 02:48 | Nová verze

Google Chrome 58 byl prohlášen za stabilní. Nejnovější stabilní verze 58.0.3029.81 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo 29 bezpečnostních chyb. Mezi nimi i chyba umožňující phishing s unicode doménami.

Ladislav Hagara | Komentářů: 0
19.4. 22:44 | Nová verze

Po šesti týdnech od vydání verze 52.0 byla vydána verze 53.0 webového prohlížeče Mozilla Firefox. Z novinek lze upozornit například na nové kompaktní vzhledy – tmavý z Firefoxu Developer Edition a jeho světlá varianta. Na Linuxu byla ukončena podpora procesorů starších než Pentium 4 a AMD Opteron. Podrobné informace v poznámkách k vydání a na stránce věnované vývojářům. Řešeny jsou také bezpečnostní chyby.

Ladislav Hagara | Komentářů: 11
19.4. 17:44 | IT novinky

Realtimová strategická počítačová hra StarCraft a její rozšíření StarCraft: Brood War jsou ode dneška zdarma. Společnost Blizzard Entertainment chystá remasterovanou verzi (YouTube) a při té příležitosti se rozhodla neremasterovanou verzi aktualizovat a dát ji ode dneška k dispozici zdarma. Hru lze na Linuxu hrát pod Wine.

Ladislav Hagara | Komentářů: 3
Chystáte se pořídit CPU AMD Ryzen?
 (4%)
 (35%)
 (0%)
 (7%)
 (45%)
 (10%)
Celkem 271 hlasů
 Komentářů: 31, poslední 20.4. 21:26
    Rozcestník

    Dotaz: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů

    7.10.2009 13:20 saky | skóre: 1
    PERL goto :label - Ukončení, příp. jiné znovunačtení souborů
    Přečteno: 191×

    Dobrý den.

    Mám v kódu na začátku načtení cca 15 txt souborů a chtěl bych na příkaz provést jejich obnovení, tedy reload (můžou se změnit za chodu).

    Jsou to takovéto definice, přičemž každý soubor má trošku jiný formát:

     

    open(DATA, 'url.txt') or die "nemuzu nacist soubor url.txt\n";
    while($radek = <DATA>) {
    if (substr($radek, 0, 1) ne '#') {
    chomp($radek);
    $link{$radek} = 'LINK';
    }
    }
    close(DATA);
     
    Chtěl bych, aby mi tedy tyto soubory nadefinované na začátku po příkazu znovu načetl. Zkoušel jsem použít goto :label, ale to provede celý kód až do konce, což je nežádoucí. Jde nějak označit ta část, která se má na příkaz provést? Případně jak jinak provést znovunačtení, aniž bych musel zopakovat všech 100 řádků v akci na příkaz? 
     
    Díky za tipy :o)

     


    Řešení dotazu:


    Odpovědi

    7.10.2009 14:44 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů
    Co třeba dát načítání do podprogramu?
    In Ada the typical infinite loop would normally be terminated by detonation.
    7.10.2009 15:54 saky | skóre: 1
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů

     To se mi právě nepodařílo. Pokud dám do : sub nacitani { .... } více než jeden soubor, nefunguje to.. Mimochodem, pokud se pak pomocí goto volá ten podprogram, proběhnou jen funkce uvnitř? To by vše vyřešilo, ale asi mám špatný formát...

    7.10.2009 16:04 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů
    nefunguje to
    To znamená co? Ztmavne Vám obrazovka, začne na ní blikat velké červené ERROR a za chvíli to celé exploduje?
    pokud se pak pomocí goto volá ten podprogram
    Podprogram se nevolá pomocí goto ale normálně napsáním jeho jména.
    In Ada the typical infinite loop would normally be terminated by detonation.
    7.10.2009 17:02 saky | skóre: 1
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů

     :o).

    Pouze problikne, takže ani nezjistím chybu... Při vložení 1 souboru viz příklad to běží normálně, ale jestliže do podprogramu vložím 2 a více, ihned spadne.. Ještě jednou juknu, co by mohlo být špatně:-) Díííky

    7.10.2009 17:07 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů
    Pouze problikne
    Tak na to neklikejte a pusťte to z terminálu, ať vidíte výstup.
    Při vložení 1 souboru viz příklad to běží normálně, ale jestliže do podprogramu vložím 2 a více, ihned spadne
    Existuje asi půl miliónu možností, jak "vložit 2 a více", pokud chcete s něčím poradit, tak se snažte problém popsat co nejpřesněji.
    In Ada the typical infinite loop would normally be terminated by detonation.
    7.10.2009 17:18 saky | skóre: 1
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů

     Ok, takže 

    sub nacitani {

     

    open(DATA, 'udrzovac.txt') or die "nemuzu nacist soubor udrzovac.txt\n";

    while($radek = <DATA>) {

    if (substr($radek, 0, 1) ne '#') {

    $udr[$a] = $radek;

    $a++;

    }

    }

    close(DATA);

    #print "nacitam soubor refresh.txt...\n";

    my @hlaseni = ();

    $a = 0;

    $radek = '';  

     

    open(DATA, 'refresh.txt') or die "nemuzu nacist soubor refresh.txt\n";

    while($radek = <DATA>) {

    if (substr($radek, 0, 1) ne '#') {

    $hlaseni[$a] = $radek;

    $a++;

    }

    }

    close(DATA);

     

    }

     

     

     Nefunguje. Takto za sebou je provedeno načtení souborů, tak jsem myslel, že bych to pouze "obalil" do sub nacitani { .....}. Asi špatný předpoklad :-)

    Řešení 1× (saky (tazatel))
    8.10.2009 07:15 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů
    No, stále jste nenaznačil, proč to nefunguje (tj. očekávaný verzus skutečný výsledek), ale Váš problém je v tom, že máte my @hlaseni, což definuje lexikální proměnnou, která zanikne po návratu z funkce. Pokud ten řádek odstraníte, budete používat globální proměnnou, a bude to "fungovat".

    Každopádně si ale zkuste do hlavy zadrátovat, že pokud děláte copy-paste kódu, tak je něco špatně. Proč nepoužijete podprogram, kterému dáte jméno souboru a vrátí Vám obsah? Např.
    sub nacti_jeden {
        my $file = shift;
        open(DATA, $file) or die "nemuzu nacist soubor $file\n";
    
        my $a, @ret;
    
        while(my $radek = <DATA>) {
            if (substr($radek, 0, 1) ne '#') {
                $ret[$a] = $radek;
                $a++;
            }
        }
        close(DATA);
        return @ret;
    }
    
    sub nacteni {
        @pole1 = nacti_jeden("1.txt");
        @pole2 = nacti_jeden("2.txt");
    }
    
    
    Případně, pokud to chcete napsat opravdu v Perlu, tak
    sub nacti_jeden {
        my $file = shift;
        open(my $data, $file) or die "nemuzu nacist soubor $file\n";
    
        return grep { not /^#/ } (<$data>);
    }
    
    In Ada the typical infinite loop would normally be terminated by detonation.
    Řešení 1× (saky (tazatel))
    8.10.2009 09:31 NeoV | skóre: 23
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů

    Och... hroooza :-) Ale k veci - pisete, ze Vam to nefunguje - nacita len 1 subor. Je to preto lebo vobec nerozumiete tomu co robite:

    - na zaciatku (nacitavanie prveho suboru) pracujete s globalnou premennou @udr

    - pred dalsim nacitavanim uz ale definujete lokalnu premennu @hlaseni - ta nie je inkde pouzita ako navratova hodnota a po ukonceni funkcie (podprogramu) je zahodena

    - PS: pridavanie do pola cez odpomatavanie si indexu je riadne zvratene :-) gugl -> push/pop & unshift/shift (pre Vas je potrebny push) :-)

     

    Resp. pre Vas je potrebne pouzit funkciu ktoru Vam napisal "pht" - najlepsie tu druhu s regularnym vyrazom - je len potrebne si hlavne dostudovat co su lokalne premenne, co globalne, naco su dobre navratove hodnoty vo funkciach.

     

      

     

    8.10.2009 12:58 saky | skóre: 1
    Rozbalit Rozbalit vše Re: PERL goto :label - Ukončení, příp. jiné znovunačtení souborů

     Díky všem. Vyřešeno :-)

    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.