OpenSearch (Wikipedie) byl vydán ve verzi 3.0. Podrobnosti v poznámkách k vydání. Jedná se o fork projektů Elasticsearch a Kibana.
PyXL je koncept procesora, ktorý dokáže priamo spúštat Python kód bez nutnosti prekladu ci Micropythonu. Podľa testov autora je pri 100 MHz približne 30x rýchlejší pri riadeni GPIO nez Micropython na Pyboard taktovanej na 168 MHz.
Grafana (Wikipedie), tj. open source nástroj pro vizualizaci různých metrik a s ní související dotazování, upozorňování a lepší porozumění, byla vydána ve verzi 12.0. Přehled novinek v aktualizované dokumentaci.
Raspberry Pi OS, oficiální operační systém pro Raspberry Pi, byl vydán v nové verzi 2025-05-06. Přehled novinek v příspěvku na blogu Raspberry Pi a poznámkách k vydání. Pravděpodobně se jedná o poslední verzi postavenou na Debianu 12 Bookworm. Následující verze by již měla být postavena na Debianu 13 Trixie.
Richard Stallman dnes v Liberci přednáší o svobodném softwaru a svobodě v digitální společnosti. Od 16:30 v aule budovy G na Technické univerzitě v Liberci. V anglickém jazyce s automaticky generovanými českými titulky. Vstup je zdarma i pro širokou veřejnost.
sudo-rs, tj. sudo a su přepsáné do programovacího jazyka Rust, nahradí v Ubuntu 25.10 klasické sudo. V plánu je také přechod od klasických coreutils k uutils coreutils napsaných v Rustu.
Fedora se stala oficiální distribucí WSL (Windows Subsystem for Linux).
Společnost IBM představila server IBM LinuxONE Emperor 5 poháněný procesorem IBM Telum II.
Byla vydána verze 4.0 multiplatformního integrovaného vývojového prostředí (IDE) pro rychlý vývoj aplikaci (RAD) ve Free Pascalu Lazarus (Wikipedie). Přehled novinek v poznámkách k vydání. Využíván je Free Pascal Compiler (FPC) 3.2.2.
Podpora Windows 10 končí 14. října 2025. Připravovaná kampaň Konec desítek (End of 10) může uživatelům pomoci s přechodem na Linux.
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: