Webový prohlížeč Dillo (Wikipedie) byl vydán ve verzi 3.1.0. Po devíti letech od vydání předchozí verze 3.0.5. Doména dillo.org již nepatří vývojářům Dilla.
O víkendu probíhá v Bostonu, a také virtuálně, konference LibrePlanet 2024 organizovaná nadací Free Software Foundation (FSF).
Nová vývojová verze Wine 9.8 řeší mimo jiné chybu #3689 při instalaci Microsoft Office 97 nahlášenou v roce 2005.
Coppwr, tj. GUI nástroj pro nízkoúrovňové ovládání PipeWire, byl vydán v nové verzi 1.6.0. Zdrojové kódy jsou k dispozici na GitHubu. Instalovat lze také z Flathubu.
Byla vydána dubnová aktualizace aneb nová verze 1.89 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a animovanými gify v poznámkách k vydání. Vypíchnout lze, že v terminálu lze nově povolit vkládání kopírovaného textu stisknutím středního tlačítka myši. Ve verzi 1.89 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.
Proton, tj. fork Wine integrovaný v Steam Play a umožňující v Linuxu přímo ze Steamu hrát hry určené pouze pro Windows, byl vydán ve verzi 9.0-1 (𝕏). Přehled novinek se seznamem nově podporovaných her na GitHubu. Aktuální přehled her pro Windows běžících díky Protonu také na Linuxu na stránkách ProtonDB.
Byla vydána verze 1.78.0 programovacího jazyka Rust (Wikipedie). Podrobnosti v poznámkách k vydání na GitHubu. Vyzkoušet Rust lze například na stránce Rust by Example.
Služba Dropbox Sign (původně HelloSign) pro elektronické podepisování smluv byla hacknuta.
Byla vydána nová major verze 8.0 textového editoru GNU nano (Wikipedie). Podrobný přehled novinek a oprav v oznámení v diskusním listu info-nano nebo v souboru ChangeLog na Savannah. Volbou --modernbindings (-/) lze povolit "moderní" klávesové zkratky: ^C kopírování, ^V vložení, ^Z vrácení zpět, … Tato volba je aktivována také pokud binárka s nano nebo link na ni začíná písmenem "e".
Před 60 lety, 1. května 1964, byl představen programovací jazyk BASIC (Beginners' All-purpose Symbolic Instruction Code).
aaa;200 bbbb;350 cc;467a druhý:
aaa;1 bbbb;2 cc;3Potřeboval bych je porovnat a vytvořit třetí soubor který bude vypadat takto:
1;aaa;200 2;bbbb;350 3;cc;467Půjde to nějak jednoduše v bashi nebo awkem?
#!/bin/sh cat $1 |while read line1 do pattern=`echo $line1 | cut -f 1 -d ";"` line2=`grep $pattern $2` echo `echo $line2 | cut -f 2 -d ";"`";$line1" doneako parameter tomu daj prvy a druhy subor, este je potrebne osetrovat return code grepu (ak by nahodou nenaslo hladany vzor v druhom subore, neviem ako to chces)
aaa;200 bbbb;350 cc;467a druhý:
cc;1 aaa;2 bbbb;3Tzn. když to bude různě proházené, tak ten skriptík nedube fungovat, proto sem psal v nadpisu "porovnání" souborů... Doufám, že jsem to napsal srozumitelně...
join -t ';' -o '2.2 1.1 1.2' <(sort file1) <(sort file2)
bash
, ale pouze sh
, tak ekvivalentní jemkfifo fifo1 fifo2 sort <file1 >fifo1 & sort <file2 >fifo2 & join -t ';' -o '2.2 1.1 1.2' fifo1 fifo2 rm fifo1 fifo2
perl -e 'sub p(){chomp;split /;/, $_, 2} open F, "<$ARGV[0]"; while(<F>){($k,$v) = p; $t{$k}=$v} close F; open F, "<$ARGV[1]"; while(<F>){($k,$v) = p; print "$v;$k;$t{$k}$/"} close F' file1 file2případně jako script
#!/usr/bin/env perl @ARGV >= 2 or die 'Not enough paramters'; sub p () { chomp; split /;/, $_, 2 } open F, "<$ARGV[0]" or die "Can't open $ARGV[0] for readin"; while(<F>){ ($k,$v) = p; $t{$k}=$v } close F; open F, "<$ARGV[1]" or die "Can't open $ARGV[1] for readin"; while(<F>){ ($k,$v) = p; print "$v;$k;$t{$k}$/" } close F
perl -e 'sub p(&$){open F, shift @ARGV;while(<F>){chomp;($k,$v)=split /;/,$_,2;&{$_[0]}}close F}p{$t{$k}=$v};p{print "$v;$k;$t{$k}$/"}' file1 file2Je fakt, že to jde určitě napsat ještě méně čitelně, ale na mistry oboru ještě dlouho mít nebudu.
perl -e 'sub p(&){open F,shift @ARGV;while(<F>){chomp;($k,$v)=split /;/,$_,2;&{$_[0]}}close F}p{$t{$k}=$v};p{print "$v;$k;$t{$k}$/"}' file1 file2Kdo chce ušetřit ještě pár znaků, může vynechat
close F
IFS=';' while read key rest do echo "$rest;$(grep "^$key;" "$1")" done <"$2"
uniqprefix=yuwg IFS=';' while read key rest do eval "$uniqprefix$key=$rest" done <"$1" while read key rest do var="$uniqprefix$key" [ -n "${!var}" ] && echo "$rest;$key;${!var}" done <"$2"Dvě drobné záludnosti, je nutnost definovat jednoznačný prefix a první cyklus se nesmí spustit jako subproces. Takže ani žádné roury. Jde to samozřejmě vyřešit pro bash (
... done < <(filter "$1")
) i pro sh (teda pokud to celé vůbec v sh funguje).
join -t ';' -o '2.2 1.1 1.2' file1 file2
join -t ';' -o '2.2 1.1 1.2' <(echo -e 'aaa;200\nbbbb;350\ncc;467') <(echo -e 'aaa;1\nbbbb;2\ncc;3')
To je zajímavé, kolik je na jeden problém řešení. Ještě tu nebyl awk, zde tedy je:
cat vstup1.txt vstup2.txt | awk ' BEGIN { FS = ";" } /^$/ { druhySoubor = 1; } /.+/ { if ( druhySoubor ) { pole[ $1 ] = $2 ";" pole[ $1 ]; } else { pole[ $1 ] = $0; } } END { for ( i in pole ) { print pole[ i ]; } } ' | \ sort -n -t";" -k1
(egrep -v '^$' file1; echo; egrep -v '^$' file2) | awk ...Ale musím uznat, že to už je fakt maso Nadruhou stranu by to mělo být srovnatelné s tím řešením v perlu.
perl -ne 'chomp;m/^$/&&++$d&&next;($k,$v)=split /;/,$_,2;$d?print "$v;$k;$t{$k}$/":($t{$k}=$v)'Osobně se mi to ale moc nelíbí.
Tiskni Sdílej: