Ve věku 91 let zemřel izraelský informatik Ja'akov Ziv, spolutvůrce bezztrátových kompresních algoritmů LZ77, LZ78 a LZW (Lempel–Ziv–Welch).
Byla představena nová Arduino deska Arduino UNO R4 s 32bitovým MCU RA4M1 (Arm Cortex-M4). Desku lze zatím získat pouze v rámci early access programu.
Operační systém MidnightBSD, fork FreeBSD optimalizovaný pro desktop s prostředím Xfce, byl vydán ve verzi 3.0. Přehled novinek v poznámkách k vydání.
Na GOG.com běží Spring Sale. Při té příležitosti lze získat zdarma počítačovou hru Neurodeck: Psychological Deckbuilder (ProtonDB).
Alex Ellis upozornil 15. března, že firma Docker se chystala zrušit bezplatný hosting open-source projektů na Docker Hubu. Po vlně odporu se představitelé firmy omluvili a posléze byl původní záměr odvolán.
Ve věku 94 let zemřel Gordon Moore, mj. spoluzakladatel společnosti Intel a autor Moorova zákona.
Mercurial (Wikipedie), software pro SCM (Source Code Management), byl vydán ve verzi 6.4. Přehled novinek v poznámkách k vydání. Ve dnech 5. až 7. dubna proběhne konference Mercurial Paris.
Byly rozdány Ceny Velkého bratra (Big Brother Awards) za rok 2022 pro největší slídily pořádané nevládní organizací Iuridicum Remedium. Dlouhodobý slídil: Microsoft. Firemní slídil: Seznam. Úřední slídil: Nejvyšší správní soud. Výrok Velkého bratra: Marian Jurečka. Pozitivní cena: NoLog.
Byla představena online vzdělávací platforma Ada Computer Science pro učitele, studenty a kohokoli, kdo se zajímá o informatiku. Stojí za ní Raspberry Pi Foundation a Univerzita v Cambridgi.
GitHub má nový RSA SSH klíč. Předchozí soukromý klíč byl krátce vystaven na GitHubu.
for $no ( 1 .. (počet znaků v proměnný $_) ) { push @sopts, $_; # ale $_ donutit tisknout jen $no-tej znak }Nebo že by se to dalo udělat pomocí regexpu? To ale nevím, nic mě nenapadlo...
No, není to žádný zázrak, ale mělo by to fungovat:
#!/usr/bin/perl -w my @attrib = (); my $i = 0; $attributy = $ARGV[0]; $attributy =~ s/^\-//; $length = length($attributy); while ($i < $length){ $attrib[$i] = "-" . substr($attributy, $i++, 1); print "attrib $i = $attrib[$i]\n"; }
Odborníky na PERL prosím o shovívavost ...
$aaa="-abc"; while ($aaa) { push (@uuu, chop $aaa); }a v poli
@uuu
mas vsechny znaky z $aaa
vcetne podtrzitka v opacnem poradi.
length(řetězec)
. Získání podřetězce z řetězce dělá funkce substr(řetězec, start, kolik)
. Pomocí regexpu by to šlo také, ale zbytečně složitě a neefektivně.
Nevím, jestli je dobré učit se programovat zrovna na Perlu…Líbí se mi
Funkce vracející délku řetezce je length(řetězec)
.
A já vůl zkoušel lenght. Furt se mi to plete Všem: díky za odpovědi
Zkoušel a Perl už IMHO vůbec nejde dohromadyNevím, jestli je dobré učit se programovat zrovna na Perlu…Líbí se mi… A já zkoušel lenght. Furt se mi to plete
![]()
$_
je implicitní prostor pro vstup, výstup a vyhledávání, $,
je výstupní oddělovač polí, @_
jsou parametry podprogramu, %ENV
jsou proměnné prostředí atd. atp. Aspoň referenční manuál by to chtělo foreach $prom (sort(keys(%{$zdroje{$jmeno}}))) { if ((substr($prom,0,1) eq '') || (substr($prom,0,1) !~ /^\w/i)) { print SPECIALNI "<h3 class='promenna'>$prom</h3>\n"; $text = $zdroje{$jmeno}{$prom}; do { $REcount = ($text =~ s/\?\{([^}:]*)\}/&_nahraditGlobals($1)/ge); $REcount += ($text =~ s/\?\{([^}:]*):([^{}]*(?:(?:\$|\*)\{[^{}]*(?:\*\{[^}]*\}[^{}]*)*[^{}]*\}[^{}]*)*[^{}]*)\}/&_nahraditGlobalsParametr($1,$2,$blok)/ge); } while ($REcount > 0); $text =~ s/(\$\{[^}:]*\})/<span class='vypisPromenne'>$1<\/span>/g; $text =~ s/(\$\{[^}:]*:[^{}]*(?:\*\{[^}]*\}[^}]*)*\})/<span class='vypisPromenne'>$1<\/span>/g; print SPECIALNI $text; } else …A to byla poslední věc, kterou jsem v Perlu napsal
[ivok@zero ~]$ perl -e 'print join " -", split //, "-abc"; print "\n"' - -a -b -c
split
na to, abych dostal celý řetězec, by byla blbost String.split("")
chová úplně stejně, a to bez jakékoliv zmínky v dokumentaci. Asi to bude tím, že programátor v Javě neuvidí žádnou výhodu v tom, že může cyklus přepsat do jednoho řádku programu a nenapadne ho zkoušet, jak se rozdělí řetězec, když se má dělit v místě, kde je nic Pokud se naopak chcete naučit přemýšlet jako hacker (v původním smyslu slova), s minimem nástrojů dosahovat maximálních výsledků a nástroje používat ne zrovna obvyklým způsobem (ale přesto elegantně), je Perl ta pravá volba.That's what I'm talkin' about, yo
['-'+x for x in '-abc'[1:]]
Tiskni
Sdílej: