Byla vydána nová verze 4.5 (𝕏, Bluesky) multiplatformního open source herního enginu Godot (Wikipedie, GitHub). Přehled novinek i s náhledy v příspěvku na blogu.
Byla vydána verze 3.0 (Mastodon) nástroje pro záznam a sdílení terminálových sezení asciinema (GitHub). S novou verzí formátu záznamu asciicast v3, podporou live streamingu a především kompletním přepisem z Pythonu do Rustu.
Canonical oznámil, že bude podporovat a distribuovat toolkit NVIDIA CUDA (Wikipedie) v Ubuntu.
Tržní hodnota americké společnosti Alphabet, která je majitelem internetového vyhledávače Google, dnes poprvé překonala hranici tří bilionů dolarů (62,1 bilionu Kč). Alphabet se připojil k malé skupině společností, které tuto hranici pokořily. Jsou mezi nimi zatím americké firmy Nvidia, Microsoft a Apple.
Spojené státy a Čína dosáhly dohody ohledně pokračování populární čínské platformy pro sdílení krátkých videí TikTok v USA. V příspěvku na síti Truth Social to dnes naznačil americký prezident Donald Trump. Dosažení rámcové dohody o TikToku vzápětí oznámil americký ministr financí Scott Bessent, který v Madridu jedná s čínskými představiteli o vzájemných obchodních vztazích mezi USA a Čínou. Bessentova slova později potvrdila také čínská strana.
MKVToolNix, tj. sada nástrojů pro práci s formátem (medialnym kontajnerom) Matroska, byl vydán ve verzi 95.0. Podpora přehrávání formátu Matroska míří do Firefoxu [Bug 1422891, Technický popis]. Přehrávání lze již testovat ve Firefoxu Nightly.
Spolek OpenAlt zve příznivce otevřených řešení a přístupu na 211. sraz, který proběhne v pátek 19. září od 18:00 ve Studentském klubu U Kachničky na Fakultě informačních technologií Vysokého učení technického na adrese Božetěchova 2/1. Na srazu proběhne přednáška Jiřího Eischmanna o nové verzi prostředí GNOME 49. Nemáte-li možnost se zúčastnit osobně, přednáškový blok bude opět streamován živě na server VHSky.cz a následně i zpřístupněn záznam.
Microsoft se vyhnul pokutě od Evropské komise za zneužívání svého dominantního postavení na trhu v souvislosti s aplikací Teams. S komisí se dohodl na závazcích, které slíbil splnit. Unijní exekutivě se nelíbilo, že firma svazuje svůj nástroj pro chatování a videohovory Teams se sadou kancelářských programů Office. Microsoft nyní slíbil jasné oddělení aplikace od kancelářských nástrojů, jako jsou Word, Excel a Outlook. Na Microsoft si
… více »Samba (Wikipedie), svobodná implementace SMB a Active Directory, byla vydána ve verzi 4.23.0. Počínaje verzí Samba 4.23 jsou unixová rozšíření SMB3 ve výchozím nastavení povolena. Přidána byla podpora SMB3 přes QUIC. Nová utilita smb_prometheus_endpoint exportuje metriky ve formátu Prometheus.
Správcovský tým repozitáře F-Droid pro Android sdílí doporučení, jak řešit žádosti o odstranění nelegálního obsahu. Základem je mít nastavené formální procesy, vyhrazenou e-mailovou adresu a být transparentní. Zdůrazňují také důležitost volby jurisdikce (F-Droid je v Nizozemsku).
#!/usr/bin/perl -w use strict; open(FAJL,$ARGV[0]); my @lines = < FAJL > close(FAJL); my $i; my $vyskyt=0; for ( $i=0; $i<(scalar @lines)-1; $i++ ) { $vyskyt += ($lines[$i] =~ tr/msgstr/msgstr/); } print $vyskyt."\n";Ako vstup je pouzity po subor pre lokalizaciu isteho programu. Subor ma 3265 riadkov. Retazec msgstr sa vyskytuje na riadku maximalne jedenkrat, navyse sa nevyskytuje na kazdom riadku a v pocte riadkov su zahrnute aj prazdne riadky. Kazdopadne pocet msgstr nema sancu prekrocit hranicu 3265 vyskytov. Pocet vyskytov by sa mal pohybovat niekde v rozpati 600-700 vyskytov. Avsak po spusteni skriptiku mi to hodi cislo 20850 vyskytov. Cim je to sposobene?
$vyskyt += ($lines[$i] =~ /msgstr/);
a melo by to fungovat.
=~ /msgstr/
je to iste ako =~ m/msgstr/
?
tr
není s
ani m
#!/usr/bin/env perl use warnings; use strict; undef $/; my $vyskyt=0; $_ = <>; $vyskyt++ while m/msgstr/g; print $vyskyt,"\n";Trošku zkušenější třeba takto
#!/usr/bin/env perl use warnings; use strict; undef $/; print scalar @{[<> =~ m/msgstr/g]}, "\n";
#!/usr/bin/env perl use warnings; use strict; my $vyskyt = 0; $vyskyt += @{[m/msgstr/g]} while <> ; print $vyskyt,"\n";Nebo dokonce jako onliner
perl -ne '$vyskyt += @{[m/msgstr/g]}; END{print $vyskyt,"\n"}'
=~ /msgstr/
to iste ako =~ m/msgstr/
? Odpoviem si sam, je.
btw, ešte môžeš skúsiť nasledovné:
$vyskyt = grep { m/msgstr/ } <>; # alebo print scalar grep { m/msgstr/ } <>;
$/ = 'msgstr'; 1 while <>; print $., "\n";
Inak možno použiť i nasledovnú konštrukciu:Máš bod$/ = 'msgstr'; 1 while <>; print $., "\n";
$/ = 'msgstr'; 1 while <>; print $. - 1, "\n";
undef $/; print -1 + scalar split (/msgstr/, <>), "\n";
scalar
je tam zbytečné, protože + to přepne do skalárního kontextu. Použít split mě nenapadlo a přitom je to tak hezké perl -ne '$a+=-1+split/msgstr/; END{print "$a\n"}'Ale když už jsme u toho splitu, tak hezčí by bylo
perl -Fmsgstr -ane '$a+=-1+@F; END{print "$a\n"}'
perl -Fmsgstr -ane'$a+=@F-1;END{print "$a\n"}'
perl -Fmsgstr -ane'$a+=$#F;END{print "$a\n"}'
perl -e'undef$/;print-1+split("msgstr",<>),"\n"'a nejkratší varianta se čtením po řádcích
perl -Fmsgstr -ane'$a+=$#F;END{print"$a\n"}'
perl -ne'BEGIN{$/="msgstr"}END{print$.-1,"\n"}'
perl -ne'BEGIN{$/=shift}END{print$.-1,"\n"}' msgstrrozdiel oproti nižšie spomenutému grep-u je v počítaní výskytov a nie riadkov s výskytom
v porovnani so split, resp s $/ má najkratší variant nevýhodu v tom, že hľadaný reťazec nemôže obsahovať new-line ... takže o tri znaky viac
perl -ne'BEGIN{$/="msgstr"}END{print$.-1,"\n"}'
grep -c msgstr
$count +=($sentence =~ tr/*/*/)
. Zhodou okolnosti som pracoval na preklade isteho softu a zacalo mi v hlave vrtat(zo zvedavosti) ako by sa dalo v perle realizovat spocitanie vyskytu vybraneho retazca v urcitom subore, vyuzitim zmienovanej konstrukcie. Neslo mi o to aby to bolo naj a ani o to aby som spocital pocet retazcov v preklade. Tie sa daju lahko spocitat cez msgfmt --statistics your.po
a netreba ani nic programovat. Potom si sa objavil ty a prisiel so svojimi minimalistickymi rieseniami, coz je fajn aspon sa nieco priucim. S preliezania webu a citania programov mam vsak skusenost taku, ze riesenia tvojho druhu sa moc nepouzivaju. Preco? Stale vsak uplne nerozumiem ako perl tie znaky pocita. Moj odhad je taky, ze obsah zatvorky vyhodnoti ako boolean a ten potom vrati ako 1 alebo 0. A pretoze ked v '$sentence' najde '*' vrati true co je 1 je mozne tohoto faktu vyuzit napriklad na urcenie poctu znakov v retazci. Mam pravdu, alebo sa mylim?
tr/SEARCHLIST/REPLACEMENTLIST/cds y/SEARCHLIST/REPLACEMENTLIST/cds Transliterates all occurrences of the characters found in the search list with the corresponding character in the replacement list. It returns the number of characters replaced or deleted. If no string is specified via the =~ or !~ operator, the $_ string is transliterated. (The string specified with =~ must be a scalar variable, an array element, a hash element, or an assignment to one of those, i.e., an lvalue.)
odpoveď na otázku "prečo" je jednoduchá ... drvivá vačšina programátorov sa zastaví pri prvom funkčnom riešení. A ako vidíš aj z tejto diskusie, riešenie iterovalo v niekoľkých krokoch. Nevraviac o tom, že tu sú vypísané asi všetky kroky, podľa toho, kto si kedy na akú vlastnosť spomenul
Tiskni
Sdílej: