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:00 | Zajímavý software

Projekt Document Liberation, jehož cílem je vývoj knihoven pro zpřístupnění (osvobození) dokumentů vytvořených v proprietárních nebo již nepodporovaných formátech, oznámil vydání 5 nových nebo vylepšených knihoven. Jedná se o knihovnu libe-book pro export dokumentů ve formátu EPUB3 a knihovny libabw, libmspub, libpagemaker a libqxp pro import dokumentů ve formátech AbiWord, MS Publisher, PageMaker a QuarkXPress.

Ladislav Hagara | Komentářů: 0
dnes 01:00 | Komunita

LWN.net, původně Linux Weekly News, slaví 20 let. První číslo vyšlo 22. ledna 1998. Psalo se o devfs, o 2 GB omezení velikosti souborů na souborovém systému ext2 nebo o renderování scén ve filmu Titanic na Linuxu na procesorech Alpha. Aktuální vývojové linuxové jádro bylo 2.1.79. LWN.net je zcela závislé na předplatitelích. Předplatné na měsíc stojí 7 dolarů. Články na LWN.net jsou týden od vydání k dispozici pouze předplatitelům. Následně jsou uvolněny všem pod licencí CC-BY-SA.

Ladislav Hagara | Komentářů: 0
včera 15:22 | Pozvánky

V sobotu 24. 2. se uskuteční již 5. ročník největší české WordPress konference – WordCamp Praha 2018. Pražský WordCamp bude rozdělen na dva proudy – pro uživatele a pro vývojáře. Je naplánováno 10 přednášek, 6 workshopů, 6 případových studií, Happines Bar a spousty příležitostí pro networking. V neděli se bude dále konat Contributing Day, kde se každý bude moci aktivně zapojit do překladu, či plánování dalších meetupů. Je připraveno 450

… více »
smíťa | Komentářů: 0
včera 05:55 | Komunita

Linus Torvalds oznámil vydání Linuxu 4.15-rc9. Po vydání stabilní verze Linuxu se přibližně na 2 týdny otevře začleňovací okno. To se uzavře vydáním verze rc1. Po týdnech následují další rc verze. Obvykle týden po vydání verze rc7 nebo rc8 následuje vydání nové stabilní verze Linuxu. Verze rc9 byla naposledy vydána před více než 6 lety, 4. října 2011. Jednalo se o Linux 3.1. Tenkrát následovala ještě verze rc10.

Ladislav Hagara | Komentářů: 13
21.1. 21:55 | Zajímavý článek

Greg Kroah-Hartman se v příspěvku na svém blogu věnuje aktuálnímu stavu řešení bezpečnostních chyb Meltdown a Spectre v Linuxu. Jak je na tom Váš Linux? Stačí spustit příkaz "grep . /sys/devices/system/cpu/vulnerabilities/*". Pro více informací lze doporučit Spectre & Meltdown Checker.

Ladislav Hagara | Komentářů: 46
19.1. 18:55 | Komunita

NHSbuntu (Joinup, prezentace) měla být z Ubuntu vycházející linuxová distribuce přizpůsobená pro potřeby britské Národní zdravotní služby (NHS). NHS se název nelíbil, nejednalo se o oficiální projekt NHS, a proto bylo NHSbuntu v září loňského roku přejmenováno na NHoS. Vývojáři NHoS tento týden oznámili, že NHS se nelíbí ani název NHoS a už nemají sílu na další přejmenování a pokračování v projektu. Dodávají, že několik jednání s vedením

… více »
Ladislav Hagara | Komentářů: 7
19.1. 18:44 | Pozvánky

Koncem ledna, 29. 1. 2018 od 17 do 20 hodin se v Akademii CZ.NIC uskuteční večer s Turrisem.

Co bude na programu?… více »
Miška | Komentářů: 19
19.1. 18:33 | Pozvánky

Na tri dni sa hlavné mesto Slovenska po tretíkrát zmení na miesto s najväčšou koncentráciou profesionálnych programátorov, systémových administrátorov, učiteľov informatiky aj technologických nadšencov. Hlavným lákadlom bude konferencia PyCon SK 2018, určená záujemcom o Python, jeden z najpopulárnejších programovacích jazykov na svete.

… více »
RicCo386 | Komentářů: 1
19.1. 18:22 | Pozvánky

Letošní ročník konference Prague PostgreSQL Developer Day se koná ve dnech 14. 2. a 15. 2. 2018. Zveřejněn byl program s přednáškami a školeními. Otevřena byla také registrace na konferenci.

TomasVondra | Komentářů: 0
19.1. 11:33 | Komunita

Společnost Canonical stojící za linuxovou distribucí Ubuntu oznámila dostupnost nástroje pro týmovou spolupráci Slack (Wikipedie) ve formátu snap. Instalovat jej lze ze Snapcraftu. Slack pro Linux je dostupný také ve formátu klasických balíčků pro Ubuntu a Fedoru.

Ladislav Hagara | Komentářů: 10
Jak se vás potenciálně dotkne trend odstraňování analogového audio konektoru typu 3,5mm jack z „chytrých telefonů“?
 (7%)
 (1%)
 (1%)
 (1%)
 (77%)
 (13%)
Celkem 1373 hlasů
 Komentářů: 53, poslední 17.1. 16:55
    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: 192×

    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.