Společnost Espressif (ESP8266, ESP32, …) získala většinový podíl ve společnosti M5Stack, čímž posiluje ekosystém AIoT.
Byla vydána nová stabilní verze 3.5 svobodného multiplatformního softwaru pro editování a nahrávání zvukových souborů Audacity (Wikipedie). Přehled novinek také na YouTube. Nově lze využívat cloud (audio.com). Ke stažení je oficiální AppImage. Zatím starší verze Audacity lze instalovat také z Flathubu a Snapcraftu.
50 let operačního systému CP/M, článek na webu Computer History Museum věnovaný operačnímu systému CP/M. Gary Kildall z Digital Research jej vytvořil v roce 1974.
Byl zveřejněn program a spuštěna registrace na letošní konferenci Prague PostgreSQL Developer Day, která se koná 4. a 5. června. Na programu jsou 4 workshopy a 8 přednášek na různá témata o PostgreSQL, od konfigurace a zálohování po využití pro AI a vector search. Stejně jako v předchozích letech se konference koná v prostorách FIT ČVUT v Praze.
Po 48 letech Zilog končí s výrobou 8bitového mikroprocesoru Zilog Z80 (Z84C00 Z80). Mikroprocesor byl uveden na trh v červenci 1976. Poslední objednávky jsou přijímány do 14. června [pdf].
Ještě letos vyjde Kingdom Come: Deliverance II (YouTube), pokračování počítačové hry Kingdom Come: Deliverance (Wikipedie, ProtonDB Gold).
Thunderbird 128, příští major verze naplánovaná na červenec, přijde s nativní podporou Exchange napsanou v Rustu.
Byly vyhlášeny výsledky letošní volby vedoucího projektu Debian (DPL, Wikipedie). Novým vedoucím je Andreas Tille.
Po osmi měsících vývoje byla vydána nová verze 0.12.0 programovacího jazyka Zig (GitHub, Wikipedie). Přispělo 268 vývojářů. Přehled novinek v poznámkách k vydání.
Poslední měsíc byl plný zajímavých akcí, o kterých Vám bastlíři z projektu MacGyver mohou povědět, protože se na ně sami vydali. Kde všude byli, ptáte se? Objevili se na Installfestu, Arduino Day, Hackaday Europe a tajném srazu bastlířů z Twitteru. A z každé akce pro vás mají zajímavé poznatky.
… více »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: