Vývojáři dekompilátoru rev.ng otevřeli jeho backend revng-c. Zdrojové kódy jsou k dispozici na GitHubu.
Poněvadž Redis už není svobodný, konsorcium Linux Foundation a Amazon Web Services (AWS), Google Cloud, Oracle, Ericsson a Snap Inc. společně představili svobodný fork Redisu s názvem Valkey.
Sam Bankman-Fried, zakladatel zkrachovalé kryptoměnové burzy FTX, byl dnes odsouzen k 25 letům vězení [Yahoo Finance].
Proxmox oznámil, že usnadňuje migraci z VMware ESXi do Proxmoxu.
Byla vydána nová verze 2.53.18.2 svobodného multiplatformního balíku internetových aplikací SeaMonkey (Wikipedie). Přehled novinek v poznámkách k vydání.
Na blogu programovacího jazyka Swift byl publikován příspěvek Psaní aplikací pro GNOME v programovacím jazyce Swift. Používá se Adwaita pro Swift.
egui je GUI knihovna pro programovací jazyk Rust běžící na webu i nativně. Vydána byla verze 0.27.0.
Byla vydána nová verze 6.1 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Přehled změn v příslušném seznamu. Tor Browser byl povýšen na verzi 13.0.13. Thunderbird na verzi 115.9.0.
Linka STOPonline.cz v roce 2023 přijala 3700 hlášení závadného obsahu na internetu, 22 bylo předáno PČR, 23 bylo předáno ISP a 944 závadových domén zobrazujících dětskou nahotu či pornografii bylo nahráno do mezinárodního systému ICCAM, který je spravován asociací INHOPE.
Byla publikována podrobná analýza v upstreamu již opravené bezpečnostní chyby CVE-2024-1086 v Linuxu v nf_tables.
Dobrý den. Mam dotaz jak pomocí splitu mam rozdělit "@list".Když v @list se skrývá: NICK @NICK NICK %NICK NICK NICK +NICK Viz kód:
my ($self, $event) = @_;
my (@list, $channel) = ($event->args);
($channel, @list) = splice @list, 2;
print "@list\n";
Otázka..Jak se split mam rozdělit každý nick na jeden řádek a odstranit znaky: @, +, % Zkoušel sem:
my $people;
my $people = split(/ /, @list);
ale bohužel marně..Nejaky navrh?
Řešení dotazu:
$ perl -e 'use Data::Dumper; $a = "NICK \@NICK NICK %NICK NICK NICK +NICK"; @l=split(/[\@%\+ ]+/, $a); print(Dumper(\@l));'
$VAR1 = [
'NICK',
'NICK',
'NICK',
'NICK',
'NICK',
'NICK',
'NICK'
];
Ted mi to vypisuje todlecto:
$VAR1 = [
'1'
];
my $people = split(/ /, @list);vezme počet prvků
@list
rozdělí to podle mezery a do $people
se uloží počet prvků vzniklého pole, tedy pravděpodobně vždy 1
, což pochybuji je to co chcete :)
$events->args
, tak to bude těžké.
zkusím odhadnout, že vrací pole, kde od 4,5,... prvek obsahuje postupně ty nicky, pak bych zkusil něco jako
my @people = map /(\w+)/, @list;ale celkově jsou to pro mě určité podivnosti např. tohle
my (@list, $channel) = ($event->args);by chtělo přinejmenším komentář, co to dělá.
use 5.10.1; use Data::Dumper; my @list = qw{NICK \@NICK NICK %NICK NICK NICK +NICK}; my @people = map /(\w+)/, @list; say Dumper( [\@list, \@people] ); say foreach @people;
my @list = qw{NICK \@NICK NICK %NICK NICK NICK +NICK};
de o to, že ty NICK nahrazují uživatele, který nejsou v přesnym pořadí jak je dáno.Vždycky se to může měnit.
my @list = $event->args;nebo něčím podobným
Tiskni Sdílej: