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.
Richard Biener oznámil vydání verze 14.1 (14.1.0) kolekce kompilátorů pro různé programovací jazyky GCC (GNU Compiler Collection). Jedná se o první stabilní verzi řady 14. Přehled změn, nových vlastností a oprav a aktualizovaná dokumentace na stránkách projektu. Některé zdrojové kódy, které bylo možné přeložit s předchozími verzemi GCC, bude nutné upravit.
Free Software Foundation zveřejnila ocenění Free Software Awards za rok 2023. Vybráni byli Bruno Haible za dlouhodobé příspěvky a správu knihovny Gnulib, nováček Nick Logozzo za front-end Parabolic pro yt-dlp a tým Mission logiciels libres francouzského státu za nasazování svobodného softwaru do praxe.
Před 10 lety Microsoft dokončil akvizici divize mobilních telefonů společnosti Nokia a pod značkou Microsoft Mobile ji zanedlouho pohřbil.
Fedora 40 release party v Praze proběhne v pátek 17. května od 18:30 v prostorách společnosti Etnetera Core na adrese Jankovcova 1037/49, Praha 7. Součástí bude program kratších přednášek o novinkách ve Fedoře.
Stack Overflow se dohodl s OpenAI o zpřístupnění obsahu Stack Overflow pro vylepšení OpenAI AI modelů.
AlmaLinux byl vydán v nové stabilní verzi 9.4 (Mastodon, 𝕏). S kódovým názvem Seafoam Ocelot. Přehled novinek v příspěvku na blogu a v poznámkách k vydání.
Před 50 lety, 5. května 1974 v žurnálu IEEE Transactions on Communications, Vint Cerf a Bob Kahn popsali protokol TCP (pdf).
Bylo vydáno do češtiny přeložené číslo 717 týdeníku WeeklyOSM přinášející zprávy ze světa OpenStreetMap.
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: