Byla vydána verze 1.70.0 programovacího jazyka Rust (Wikipedie). Podrobnosti v poznámkách k vydání. Vyzkoušet Rust lze například na stránce Rust by Example. Jako reakce na rostoucí obavy z vlivu korporací na vývoj Rustu a předložený návrh restriktivních zásad používání ochranných známek Rustu, byl nedávno představen komunitní fork Rustu se 100 % méně byrokracie: Crab (CrabLang).
Oliver Smith z Canonicalu shrnuje základní vlastnosti „neměnné“ distribuce Ubuntu Core také ve srovnání s protějšky Chrome OS, Fedora Silverblue a MicroOS. Canonical připravuje desktopovou variantu Ubuntu Core vedle dosavadní serverové/embedded.
Z aktualizovaného seznamu chyb (pdf) procesoru AMD EPYC 7002: #1474 - procesor se po 1044 dnech od posledního resetu zasekne [reddit].
Fossil (Wikipedie) byl vydán ve verzi 2.22. Jedná se o distribuovaný systém správy verzí propojený se správou chyb, wiki stránek a blogů s integrovaným webovým rozhraním. Vše běží z jednoho jediného spustitelného souboru a uloženo je v SQLite databázi.
David Malcolm se ve svém příspěvku na blogu vývojářů Red Hatu rozepsal o vylepšeních statické analýzy (volba -fanalyzer) v GCC 13.
Byla vydána nová stabilní verze 23.05 linuxové distribuce NixOS (Wikipedie). Její kódové označení je Stoat. Podrobný přehled novinek v poznámkách k vydání. O balíčky se v NixOS stará správce balíčků Nix.
Příspěvek na blogu CZ.NIC upozorňuje na nový útok na weby v Česku. Na honeypotech na Turrisech byla zaznamenána nová aktivita útočníků - probíhající útok na FTP servery, které se vyskytují na stejné IP adrese, jako aktivní WEB server.
Rakudo (Wikipedie), tj. překladač programovacího jazyka Raku (Wikipedie), byl vydán ve verzi 2023.05. Programovací jazyk Raku byl dříve znám pod názvem Perl 6.
Linux Foundation Europe představila projekt RISE (RISC-V Software Ecosystem), jehož cílem je urychlit vývoj open source softwaru pro architekturu RISC-V.
Armbian, tj. linuxová distribuce založená na Debianu a Ubuntu pro jednodeskové počítače na platformě ARM, byl vydán ve verzi 23.05. Přehled novinek v Changelogu.
re="4718|4717"; #main ###################################################### $/=undef; while ($file=(<>)) # cteni z prikaz radky { $a="\n".$file; #kvuli split \n2008 chop ($a); #kvuli print "$pole[$i]\n"; - zbavim se posledniho znaku enter @pole=split (/\n2008/,$a) ; $delka_pole=@pole; $i=1; while ($delka_pole > $i) { if ($pole[$i]=~/$re/) { $pridej ="2008" ; $pridej =$pridej.$pole[$i]."\n"; $" = ""; #"########################### ok push (@vystup, $pridej); } $i++ ; } }
chomp (my @var = STDIN>); my $times = grep (/se/m, @var); print "$times\n";
perl -0777 -e 'print map "2008$_", grep /4718|4717/, split/\n2008/, <>' soubor_s_daty.dat
perl -0777 -e 'print grep /4718|4717/, split/\n(?=2008)/, <>' soubor_s_daty.dat
$,="\n####\n";
pred ten print
.
tak to pomalu chapu -0777 nacte data jako jeden zaznam -e skript je v radce (?=2008) si zapamatuje 2008 a do pole to da vcetne toho 2008 (nezahodi tuto cast oddelovace) nechapu proc: 1. jsou carky mezi prikazy (jde o oddelovac vice prikazu na radce?) 2. proc je poradi prikazu 1.print 2.split 3.<> diky!
muzete mi nekdo vysvetlit nasledujici: time cat soubor|perl -0777 -e '$,="\n", print grep /40030/, split/\n(?=2008)/, <>' real 0m1.137s user 0m0.760s sys 0m0.510s time cat soubor|perl -0777 -e 'print grep /40030/, split/(?=\n2008)/, <>' real 0m8.116s user 0m7.800s sys 0m0.410s
print(grep(/40030/, split(/(?=\n2008)/, <>)))Takze to neni posloupnost prikazu, ale jsou to vlozene prikazy. Operator <> nacte cely soubor (protoze mame $/=undef v dusledku -0777). Provadime split na zaklade regexpu /(?=\n2008)/. Kdybychom pouzili jako oddelovac poli jenom /\n2008/, pak ztratili bychom tuto cast zaznamu (prave proto v mem prvnim reseni je map "2008$_", ktere vraci tuto cast zpatky). Kdyz pouzijeme look-ahead assertion (?=\n2008), pak vlastne provadime split v kazdem bode retezce, za kterym nasleduje \n2008, ale \n2008 neni brano jako soucast oddelovace poli. Vysledek splitu je seznam zaznamu, ktery je predavany jako druhy argument grepu. grep prochazi vsechny zaznamy tohoto seznamu a hleda jenom vyhovujici regexpu /40030/. Funguje nejak takto:
for $_ (seznam_zaznamu_ktery_vygeneroval_split) { if ( $_ =~ /40030/ ) { nechame_tento_zaznam_ve_vysledku; } else { zahodime_tento_zaznam; } }Nakonec, print vytiskne vsechny nalezene zaznamy a vlozi mezi ne $, (v nasem pripade prazdny radek).
$, = "\n"; $soubor = <>; @vsechny_zaznamy = split(/(?=\n2008)/, $soubor); @jenom_obsahujici_regexp = grep(/40030/, @vsechny_zaznamy); print @jenom_obsahujici_regexp;
ad 0) to mereni casu jsem delala nekolikrat. ad 1) ted je mi to jasne - vlozene prikazy - proto carka a proto to poradi. nakonec jsem tam jeste pridala sort (jako v mem puvodnim skriptu) casove je to +- stejne (muj puvodni vs vas) perl -0777 -e 'print sort grep /neco/, split/^(?=2008)/m, <>' velike diky za vysvetleni!
Dobrý den,
obdobný problém řeším tak, že pomocí tr -d '\r\n' (pro dos) spojím vše do jednoho řádku a následně sed-em rozřežu, na např. pro grep, použitelné řádky, tj. z mého pohledu standardně/typově začínající nebo končící. Pokud mi pošlete vzorek s konkrétním popisem požadavku, mohu se na to zkusit podívat.
jsksed 's/^2008/\x002008/' soubor_s_daty.dat | grep -z 'co_hledame' | tr -d '\0'
, ale i tak je to 4-krat pomalejsi nez reseni v Perlu.
Tiskni
Sdílej: