Hudební přehrávač Amarok byl vydán v nové major verzi 3.0 postavené na Qt5/KDE Frameworks 5. Předchozí verze 2.9.0 vyšla před 6 lety a byla postavená na Qt4. Portace Amaroku na Qt6/KDE Frameworks 6 by měla začít v následujících měsících.
Byla vydána nová verze 2.45.0 distribuovaného systému správy verzí Git. Přispělo 96 vývojářů, z toho 38 nových. Přehled novinek v příspěvku na blogu GitHubu a v poznámkách k vydání. Vypíchnout lze počáteční podporu repozitářů, ve kterých lze používat SHA-1 i SHA-256.
Před 25 lety, ve čtvrtek 29. dubna 1999, byla spuštěna služba "Úschovna".
Byla vydána nová verze 24.04.28 s kódovým názvem Time After Time svobodného multiplatformního video editoru Shotcut (Wikipedie) a nová verze 7.24.0 souvisejícího frameworku MLT Multimedia Framework. Nejnovější Shotcut je vedle zdrojových kódů k dispozici také ve formátech AppImage, Flatpak a Snap.
Byla vydána verze 5.30 dnes již open source operačního systému RISC OS (Wikipedie).
V aktuálním příspěvku na blogu počítačové hry Factorio (Wikipedie) se vývojář s přezývkou raiguard rozepsal o podpoře Linuxu. Rozebírá problémy a výzvy jako přechod linuxových distribucí z X11 na Wayland, dekorace oken na straně klienta a GNOME, změna velikosti okna ve správci oken Sway, …
Rakudo (Wikipedie), tj. překladač programovacího jazyka Raku (Wikipedie), byl vydán ve verzi #171 (2024.04). Programovací jazyk Raku byl dříve znám pod názvem Perl 6.
Společnost Epic Games vydala verzi 5.4 svého proprietárního multiplatformního herního enginu Unreal Engine (Wikipedie). Podrobný přehled novinek v poznámkách k vydání.
Byl vydán Nextcloud Hub 8. Představení novinek tohoto open source cloudového řešení také na YouTube. Vypíchnout lze Nextcloud AI Assistant 2.0.
$ cat log.file " " $ sed 's/" "/"_"/g' log.file "_"
#include <stdio.h> int main() { int c; int inside = 0; while ((c = getchar()) != EOF) { if (c == '"') inside = !inside; if (inside && c==' ') c = '_'; putchar(c); } return 0; }Zpracování chyb a/nebo parametrů si doplňte za cvičení.
#!/bin/bash ZAMENA="_" IFS= while read line ; do quote=0 while read -n 1 char ; do if [ "$char" == " " ] ; then if [ $quote -eq 0 ] ; then outchar=" " else outchar="$ZAMENA" fi elif [ "$char" == '"' ] ; then quote=$((1 - quote)) outchar='"' else outchar="$char" fi echo -n "$outchar" done <<<"$line" echo doneObecne v ulohach takoveho typu vynika Perl. Tady je reseni v Perl'u:
$ perl -pe 's/".*?"/($s=$&)=~s: :_:g;$s/eg' soubor.logNa zaver uvedu srovnani rychlosti vsech 3 reseni (vcetne programu v C, napsaneho Michalem Kubeckem):
$ ls -sh /var/log/messages 716K /var/log/messages $ time uvozovky.sh < /var/log/messages > /dev/null real 2m12.561s user 1m57.610s sys 0m6.001s $ time perl -pe 's/".*?"/($s=$&)=~s: :_:g;$s/eg' /var/log/messages > /dev/null real 0m0.038s user 0m0.030s sys 0m0.008s $ time uvozovky_c < /var/log/messages > /dev/null real 0m0.071s user 0m0.059s sys 0m0.005sMuzete si vsimnout, ze reseni v Perl'u je dokonce rychlejsi nez v C.
[~]$ gcc -o uvozovky_c uvozovky.c -O2 [~]$ time ./uvozovky_c < /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m4.195s user 0m3.174s sys 0m0.201s [~]$ time ./uvozovky_c < /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m3.492s user 0m3.112s sys 0m0.132s [~]$ time ./uvozovky_c < /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m3.250s user 0m3.079s sys 0m0.132s [~]$ time ./uvozovky_c < /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m3.301s user 0m3.098s sys 0m0.137sPodobne,
[~]$ time perl -pe 's/".*?"/($s=$&)=~s: :_:g;$s/eg' /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m2.278s user 0m1.806s sys 0m0.154s [~]$ time perl -pe 's/".*?"/($s=$&)=~s: :_:g;$s/eg' /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m2.003s user 0m1.807s sys 0m0.154s [~]$ time perl -pe 's/".*?"/($s=$&)=~s: :_:g;$s/eg' /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m2.004s user 0m1.814s sys 0m0.152sSamozrejme, prvni start Perlu muze byt i pomalejsi nez C, tady mu pomohlo to, ze ja jsem meril rychlost perlu az po c-ku. Neni nic divneho na tom, ze Perl muze byt rychlejsi nez C. Vzlast kdyz si uvedomite, ze pouzivate getchar() misto operaci cteni celeho bloku.
Vzlast kdyz si uvedomite, ze pouzivate getchar() misto operaci cteni celeho bloku.
Zapomínáte na to, že streamové operace v libc mají vlastní bufferování, takže vkládat tam ještě druhý buffer by bylo zbytečné a program by to naopak zpomalilo. Není tam ani overhead na volání getchar()
, protože to je ve skutečnosti makro. Samozřejmě by šel program trochu zrychlit načítáním celých bloků pomocí read()
a jejich zápisem pomocí write()
, pak by Perl neměl nejmenší šanci, ale to už by bylo na úkor přehlednosti.
Samozřejmě jsem používal průměr druhého až čtvrtého běhu programu, nejsem tak hloupý, jak vypadám.Nevypadate vubec hloupe, vase prispevky tady a na cz.comp.linux vzdy povazuji za velice duveryhodne. Ale stava se, ze i mistr tesar se utne, takze jsem nevedel, jestli jste nahodou nezapomel na ten cache.
Takže tvrdím, že někde děláte chybu, pravděpodobně v těch optimalizacích.V minulem prispevku jsem uvedl prikaz, pomoci ktereho to prekladam. Optimalizaci mam nastavenou na level 2. Jak to mate vy?
Zapomínáte na to, že streamové operace v libc mají vlastní bufferování, takže vkládat tam ještě druhý buffer by bylo zbytečné a program by to naopak zpomalilo.Plny souhlas.
Samozřejmě by šel program trochu zrychlit načítáním celých bloků pomocíTak tady nesouhlasim s tim, ze by to zrychlilo program jen trochu.read()
a jejich zápisem pomocíwrite()
, pak by Perl neměl nejmenší šanci, ale to už by bylo na úkor přehlednosti.
[~]$ cat uvozovky_read_write.c #include <stdio.h> #include <stdlib.h> #include <unistd.h> #define BUFSIZE 512 int main() { char *buf_in = malloc(BUFSIZE); char *buf_out = malloc(BUFSIZE); char c; int i, j, n; int inside = 0; j = 0; while (n = read(0, buf_in, BUFSIZE)) { for (i = 0; i < n; i++) { c = buf_in[i]; switch (c) { case '\n': inside = 0; break; case '"' : inside = !inside; break; case ' ' : c = inside ? '_' : ' '; } buf_out[j++] = c; if ( j >= BUFSIZE ) { write(1, buf_out, BUFSIZE); j = 0; } } } if ( j ) { write(1, buf_out, j); } return 0; } [~]$ gcc -O2 -o uvozovky_read_write uvozovky_read_write.c [~]$ time ./uvozovky_read_write < /usr/src/linux-2.6.14.2.tar.bz2 > /dev/null real 0m0.641s user 0m0.326s sys 0m0.202sA skutecne Perl nema sanci.
-O3 -fomit-frame-pointer
' plus optimalizaci pro procesor. Co se týká přechodu na 'read()
' a 'write()
', skutečně jsem ho hodně podcenil, rozdíl je v některých případech i řádový. Zdá se, že režie streamových funkcí v glibc je větší, než jsem si pod vlivem dřívějších testů myslel.
Zdá se, že režie streamových funkcí v glibc je větší, než jsem si pod vlivem dřívějších testů myslel.Dost velký čas sežere zbytečné zamykání, při použítí getchar_unlocked() a putchar_unlocked() se to celkem zrychlí.
#include <stdio.h> #include <stdlib.h> #include <unistd.h> #define BUFSIZE 65536 int main() { char *buf = malloc(BUFSIZE); char *c, *end; int n; int inside = 0; while (n = read(0, buf, BUFSIZE)) { end = buf+n; for (c = buf; c < end; c++) { switch (*c) { case '\n': inside = 0; break; case '"' : inside = !inside; break; case ' ' : if (inside) *c ='_'; } } write(1, buf, n); } return 0; }Proč ty data přesýpat z jednoho místa na druhé fakt nechápu.
$ time ./uvozovky_read_write </var/cache/apt/archives/openclipart-png_0.17+dfsg-1_all.deb >/dev/null real 0m1.716s user 0m0.580s sys 0m0.270s $ time ./uvozovky_read_write_orig </var/cache/apt/archives/openclipart-png_0.17+dfsg-1_all.deb >/dev/null real 0m1.926s user 0m0.800s sys 0m0.340sKrom toho ten půlkylovej buffer byl fakt dobrej vtip. Vůbec vám nevadí, že tráví v kernelu skoro stejně dlouhej čas jako v userspace? Ten
uvozovky_read_write_orig
má samozřejmě zvětšenej buffer taky, jinak by měl něco kolem 600ms v kernelspace. Toho času real si nevšímejte, nejsem na tom App Serveru sám
Tiskni Sdílej: