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 01:00 | Nová verze

Známý šifrovaný komunikátor Signal od verze 3.30.0 již nevyžaduje Google Play Services. Autoři tak po letech vyslyšeli volání komunity, která dala vzniknout Google-free forku LibreSignal (dnes již neudržovaný). Oficiální binárky jsou stále distribuované pouze přes Google Play, ale lze použít neoficiální F-Droid repozitář fdroid.eutopia.cz s nezávislými buildy Signalu nebo oficiální binárku stáhnout z Google Play i bez Google účtu

… více »
xm | Komentářů: 1
včera 23:14 | Nová verze

Po třech týdnech od vydání první RC verze byla vydána první stabilní verze 17.01.0 linuxové distribuce pro routery a vestavěné systémy LEDE (Linux Embedded Development Environment), forku linuxové distribuce OpenWrt. Přehled novinek v poznámkách k vydání. Dotazy v diskusním fóru.

Ladislav Hagara | Komentářů: 2
včera 17:28 | Bezpečnostní upozornění

Byly zveřejněny informace o bezpečnostní chybě CVE-2017-6074 v Linuxu zneužitelné k lokální eskalaci práv. Jde o chybu v podpoře DCCP (Datagram Congestion Control Protocol). Do linuxového jádra se dostala v říjnu 2005. V upstreamu byla opravena 17. února (commit). Bezpečnostní chyba byla nalezena pomocí nástroje syzkaller [Hacker News].

Ladislav Hagara | Komentářů: 2
včera 15:00 | Zajímavý software

Společnost Valve vydala novou beta verzi SteamVR. Z novinek lze zdůraznit oficiální podporu Linuxu. Další informace o podpoře této platformy pro vývoj virtuální reality v Linuxu v diskusním fóru. Hlášení chyb na GitHubu.

Ladislav Hagara | Komentářů: 0
včera 06:00 | Nová verze

Po necelém roce od vydání verze 0.67 byla vydána verze 0.68 populárního telnet a ssh klienta PuTTY. Podrobnosti v přehledu změn. Řešeny jsou také bezpečnostní chyby.

Ladislav Hagara | Komentářů: 0
21.2. 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
21.2. 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ářů: 6
21.2. 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
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (13%)
 (2%)
 (71%)
 (4%)
 (10%)
Celkem 685 hlasů
 Komentářů: 66, poslední včera 18:57
    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.