Vývojáři dekompilátoru rev.ng otevřeli jeho backend revng-c. Zdrojové kódy jsou k dispozici na GitHubu.
Poněvadž Redis už není svobodný, konsorcium Linux Foundation a Amazon Web Services (AWS), Google Cloud, Oracle, Ericsson a Snap Inc. společně představili svobodný fork Redisu s názvem Valkey.
Sam Bankman-Fried, zakladatel zkrachovalé kryptoměnové burzy FTX, byl dnes odsouzen k 25 letům vězení [Yahoo Finance].
Proxmox oznámil, že usnadňuje migraci z VMware ESXi do Proxmoxu.
Byla vydána nová verze 2.53.18.2 svobodného multiplatformního balíku internetových aplikací SeaMonkey (Wikipedie). Přehled novinek v poznámkách k vydání.
Na blogu programovacího jazyka Swift byl publikován příspěvek Psaní aplikací pro GNOME v programovacím jazyce Swift. Používá se Adwaita pro Swift.
egui je GUI knihovna pro programovací jazyk Rust běžící na webu i nativně. Vydána byla verze 0.27.0.
Byla vydána nová verze 6.1 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Přehled změn v příslušném seznamu. Tor Browser byl povýšen na verzi 13.0.13. Thunderbird na verzi 115.9.0.
Linka STOPonline.cz v roce 2023 přijala 3700 hlášení závadného obsahu na internetu, 22 bylo předáno PČR, 23 bylo předáno ISP a 944 závadových domén zobrazujících dětskou nahotu či pornografii bylo nahráno do mezinárodního systému ICCAM, který je spravován asociací INHOPE.
Byla publikována podrobná analýza v upstreamu již opravené bezpečnostní chyby CVE-2024-1086 v Linuxu v nf_tables.
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:
Řešení dotazu:
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...
nefunguje toTo 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 podprogramPodprogram se nevolá pomocí goto ale normálně napsáním jeho jména.
: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
Pouze problikneTak 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 spadneExistuje 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.
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
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>); }
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.
Díky všem. Vyřešeno
Tiskni Sdílej: