Open source RDP (Remote Desktop Protocol) server xrdp (Wikipedie) byl vydán ve verzi 0.10.0. Z novinek je vypíchnuta podpora GFX (Graphic Pipeline Extension). Nová větev řeší také několik bezpečnostních chyb.
Rocky Linux byl vydán v nové stabilní verzi 9.4. Přehled novinek v poznámkách k vydání.
Dellu byla odcizena databáze zákazníků (jméno, adresa, seznam zakoupených produktů) [Customer Care, Bleeping Computer].
V lednu byl otevřen editor kódů Zed od autorů editoru Atom a Tree-sitter. Tenkrát běžel pouze na macOS. Byl napevno svázán s Metalem. Situace se ale postupně mění. V aktuálním příspěvku Kdy Zed na Linuxu? na blogu Zedu vývojáři popisují aktuální stav. Blíží se alfa verze.
O víkendu 11. a 12. května lze navštívit Maker Faire Prague, festival plný workshopů, interaktivních činností a především nadšených a zvídavých lidí.
Byl vydán Fedora Asahi Remix 40, tj. linuxová distribuce pro Apple Silicon vycházející z Fedora Linuxu 40.
Představena byla služba Raspberry Pi Connect usnadňující vzdálený grafický přístup k vašim Raspberry Pi z webového prohlížeče. Odkudkoli. Zdarma. Zatím v beta verzi. Detaily v dokumentaci.
Byla vydána verze R14.1.2 desktopového prostředí Trinity Desktop Environment (TDE, fork KDE 3.5). Přehled novinek v poznámkách k vydání, podrobnosti v seznamu změn.
Dnešním dnem lze již také v Česku nakupovat na Google Store (telefony a sluchátka Google Pixel).
Apple představil (keynote) iPad Pro s čipem Apple M4, předělaný iPad Air ve dvou velikostech a nový Apple Pencil Pro.
@vars = sort @{$dailyvars{$_}};Pokud bych měl tedy uloženy odchylky v podobném poli jako hodnoty, a tímto způsobem zamíchám s jejich pořadím,tak už nepřísluší například pátý prvek pole vars k pátému prvku pole odchylek. Principielně je snad řešení snadné, prostě kromě hodnot je třeba naskládat do pole @{dailyvars{1}} ještě odkazy na konkrétní prvky pole odchylek a na ty se potom odvolávat. Já jsem ale v Perlu doccela nováček a netuším jak tohle zapsat nebo mě nenapadá nějaké snažší řešení. Děkuji za každou radu. Celý výpis kódu je zde
while (<>) { if (/^#/) { next; } /([\d-]+) (\d+) ([\d\.]+) ([\d\.]+)/ or die "daily_median.pl: Error processing line: $_"; if (! exists $dailyvars{$1}) { @{$dailyvars{$1}} = ( $3 ); $count{$1} = 1; } else { push @{$dailyvars{$1}}, $3; $count{$1} += 1; } } foreach (sort keys %dailyvars) { @vars = sort @{$dailyvars{$_}}; $n = $#vars + 1; if ($n % 2 == 1) { $median = $vars[($n - 1) / 2]; } else { $median = ($vars[$n / 2] + $vars[$n / 2 - 1]) / 2; } print $_ . " $median " . $count{$_} . "\n"; }
Řešení dotazu:
if (! exists $dailyvars{$1}) { @{$dailyvars{$1}} = ({var => $3, odchylka => $4}); $count{$1} = 1; } else { push @{$dailyvars{$1}}, {var => $3, odchylka => $4}; $count{$1} += 1; } ... @vars = sort { $a->{var} <=> $b->{var} } (@{$dailyvars{$_}}); ... $median = $vars[($n - 1) / 2]->{var};A další změny analogicky. Vtip je v tom, že do $dailyvars{$den} neukládáš jen hodnoty, ale ukazatele na hash, který má dva klíče: var a odchylka. Tím si podržíš ty přidružené hodnoty pospolu. Doufám, že je to trochu srozumitelné, spěchám, tak to vysvětluju tak nějak narychlo a ne moc exaktně. Podívej se do manuálu na sort, tam uvidíš, že to, co dávám do prvních složených závorek, je funkce, která určuje, podle čeho se bude třídit.
popř. něco takového
use 5.010;
use warnings;
use strict;
my %dailyvars;
while (<>) {
next if /^#/; #ignoruj komentáře
/(?<date>[\d-]+) \d+ (?<var>[\d\.]+) (?<odchylka>[\d\.]+)/ #rozeber řádek
or die "daily_median.pl: Error processing line: $_";
push @{ $dailyvars{ $+{date} }{vars} },
$+{var}; #přidej hodnotu mezi hodnoty
push @{ $dailyvars{ $+{date} }{'odchylky'} },
$+{odchylka}; #přidej odchylku mezi odchylky
$dailyvars{ $+{date} }{count}++; #přičti k počtu 1
}
foreach ( sort keys %dailyvars ) { #pro všechny dny (seřazené)
my $median;
my @vars = sort { $a <=> $b } @{ $dailyvars{$_}{vars} }; #srovnej hodnoty
my $n = @vars; #počet hodnot;
if ( $n % 2 == 1 ) {
$median = $vars[ ( $n - 1 ) / 2 ]
; #vypočti median pro sudý počet hondot
}
else {
$median = ( $vars[ $n / 2 ] + $vars[ $n / 2 - 1 ] )
/ 2; #vypočti median pro lichý počet hodnot
}
#vypiš výsledek
say $_
. "\tmedian: $median "
. "\tpocet: $dailyvars{$_}{count} "
. "\todchylky: @{ $dailyvars{$_}{odchylky} }";
}
Tiskni Sdílej: