abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
dnes 14:00 | Zajímavý projekt

Vítězným projektem letošního ročníku soutěže určené vývojářům open source hardwaru Hackaday Prize se stal modulární senzorový systém FieldKit.

Ladislav Hagara | Komentářů: 0
včera 15:44 | Nová verze

Byl vydán Debian 10.2, tj. druhá opravná verze Debianu 10 s kódovým názvem Buster. Řešeny jsou především bezpečnostní problémy, ale také několik vážných chyb. Instalační média Debianu 10 lze samozřejmě nadále k instalaci používat. Po instalaci stačí systém aktualizovat.

Ladislav Hagara | Komentářů: 0
15.11. 13:22 | Zajímavý článek

Na stránkách spolku OpenAlt vyšel Rozhovor s Jaroslavem Tulachem o GraalVM – o kompilátoru umožňujícím v jednom programu kombinovat různé jazyky (Java, JavaScript, Ruby, R, C, C++, Fortran, Rust aj.), překládat do nativních binárek nebo si snadno vytvořit vlastní jazyk a použít při tom stávající ekosystém (debugger, profiler, IDE atd.).

xkucf03 | Komentářů: 0
15.11. 11:55 | Komunita

Bylo spuštěno předobjednávání linuxových chytrých telefonů PINEPHONE v limitované edici BraveHeart. Cena telefonu je 149 dolarů. Cena dopravy do Česka je 15 dolarů. Telefony by mely být odesílány na přelomu prosince a ledna.

Ladislav Hagara | Komentářů: 21
15.11. 02:22 | Pozvánky

Fedora 31 Release Party, tj. oslava nedávného vydání Fedory 31, se uskuteční ve středu 20. listopadu v Brně. Program přednášek bude upřesněn.

Ladislav Hagara | Komentářů: 3
15.11. 01:11 | Nová verze

Příspěvek na blogu webové aplikace pro spolupráci na zdrojových kódech pomocí gitu Gitea (Wikipedie) představuje novinky a ukazuje náhledy nové major verze 1.10.0 této v programovacím jazyce Go naprogramované aplikace. Nově jsou například vedle sebe zobrazovány původní a nové verze obrázků.

Ladislav Hagara | Komentářů: 0
14.11. 22:33 | IT novinky

Společnost Docker stojící za stejnojmennou kontejnerovou technologií čelila vážným finančním problémům. Stávající investoři do ní ale vložili dalších 35 milionů dolarů a společnost Mirantis odkoupila Docker Enterprise.

Ladislav Hagara | Komentářů: 0
14.11. 16:11 | IT novinky

Od 24. listopadu bude možné předobjednat přenosný počítač Pocket Popcorn Computer (Pocket P.C.) s 1.2 GHz Quad-Core ARM Cortex-A53 CPU, 2GB DDR3 RAM, 32GB eMMC Memory, 4.95" Full HD IPS LCD a 3200 mAh Removable Battery. Počítač by měl být odesílán v květnu 2020. Předinstalován by měl být Debian 10.

Ladislav Hagara | Komentářů: 110
14.11. 11:11 | Komunita

Canonical věnoval nadaci UBports další telefony a tablety pro podporu vývoje Ubuntu Touch, tj. Ubuntu pro telefony a tablety. Vybraní vývojáři Ubuntu Touch je mohou získat zdarma.

Ladislav Hagara | Komentářů: 23
14.11. 09:33 | Zajímavý projekt

Společnost GitHub v rámci svého GitHub Archive Programu vytvoří několik off-line záloh open source softwaru nacházejícího se na GitHubu pro budoucí generace. První taková záloha všech aktivních repozitářů proběhne 2. února 2020 ve spolupráci se společností Pigl na jejich piqlFilmy a uložena bude v Arktickém světovém archivu. Případné obnovení ze zálohy by mělo být možné i za 1 000 let.

Ladislav Hagara | Komentářů: 7
Jaké hodinky nosíte (nejčastěji)?
 (23%)
 (6%)
 (17%)
 (54%)
Celkem 205 hlasů
 Komentářů: 13, poslední dnes 18:02
Rozcestník

Naučte mě Perl 6, III. Zkracování kódu

17.4.2016 22:18 | Přečteno: 1651× | Perl | Výběrový blog | poslední úprava: 18.4.2016 11:21

V tomto díle si ukážeme jak Perl 6 umožňuje zkracovat zápis. Konkrétně se zmíníme o zástupných proměnných, o whatever kódu a zástupnému znaku whatever * a nakonec o topic proměnné $_ a jejím nepsání.

III. Zkracování kódu

Perl vždy umožňoval zkracovat a popř. vynechávat části kódu, co při správném využití může vést nejen k přehlednějšímu kódu, ale i efektivnějšímu. Perl 6 navíc mimo jiné přináší zástupný znak whatever, pomocí kterého dokážeme řešit některé problémy, velmi elegantně.

Zástupné proměnné v bloku

Blok je v Perlu 6 část kódu, který ohraničují složené závorky. Objevuje se např. při zápisu řídících struktur, ale lze pomocí něho definovat i podprogram, předávat ho jako parametr atd. Standardní zápis bloku vypadá např. následovně
  -> $a, @b, :$x, :$y, *@positional, *%named { dd $a, $b, $x, $y, @positional, %named }
kde $a, @b jsou poziční parametry a @positional je slurp pole ostatních pozičních parametrů a podobně $x, $y jsou jmenné parametry a %named je slurp hash ostatních jmených parametrů.

Tento blok můžeme definovat, ale i pomocí zástupných proměnných
  { dd $^a, @^b, $:x, $:y, @_, %_ }
  #
u pozičních parametrů záleží na lexikografickém uspořádání.

Ukažme několik příkladů:
{ dd ($^a, @^b, $:x, $:y, @_, %_) }(
    1, (2, 3), 4, :32x, :12z, :1y
                                 
);      #(1, (2, 3), 32, 1, [4], {:z(12)})         
say (^5)».&{ $^a + 1 };         #(1 2 3 4 5) — voláme podpogram jako metodu, pamatujete první kapitolu
say (^5).map: { $^a + 1 };      #(1 2 3 4 5) — přibližně totéž co výše
                                           
for (^6) {                      #0 2 1          
    say "$^a $^c $^b";          #3 5 4          
};                                              

for (<a b c> Z ^3+1).flat {     #(1 a)
    say ($^number, $^letter)    #(2 b) — number je lexikograficky větší než letter 
};                              #(3 c)
Všimněte si jak for předá počet hodnot, podle toho kolik je v bloku zástupných (pozičních) parametrů.

Zástupný znak (whatever) *

V některých případech lze použít tzv. whatever kód, kde namístě parametrů uvedeme znak *.

Příklady:
  say ( *.chars + * )("ahoj", 2);     #6 

  my &multiply_three_numbers = * * * * *;   #1. 3. a 5. * jsou parametry 
  say multiply_three_numbers 2, 3, 2;  #12  #2. a 4. * je binární operátor násobení 

  say (^5)».&( * + 1 );                #(1 2 3 4 5) — kulaté závorky místo hranatých
  say (^5).map: * + 1 ;                #(1 2 3 4 5) — zápis map bez závorek 
  say (^5).&( ** + 1 );                #(1 2 3 4 5) — ** je tzv. hyperwhatever 
Hvězdičku můžeme použít jako zástupný znak i v jiných případech, většinou když chceme něco bez omezení nebo ve významu co možná nejvíc.

Některé příklady využití whatever:
  my  @matrix = ( (1, 2, 3), ('a', 'b', 'c'), ('x', 'y', 'z') );
  say @matrix[*];          #((1 2 3) (a b c) (x y z))
  say @matrix[*-1;*];      #(x y z) — poslední řádek
  say @matrix[*;2];        #(3 c z) — druhý sloupec
  
  my  @e=@matrix[*;*];        
  say @e[*];                  #(1 2 3 a b c x y z)
  say @e[2 .. *];             #(3 a b c x y z)
  say @e[0 .. *-4];           #(1 2 3 a b c)
  say @e.pick(*);             #(3 x c y a z 1 b 2) — náhodné pořadí
  
  for 21 .. * Z~ '×' xx * Z~ @e {        #27×x
      say $^a if $^a ~~ '27×x' ff *;     #28×y
  }                                      #29×z

Topic proměnná $_

Opravdovou třešničkou na dortu je už z Perlu 5 dobře známá topic proměnná $_. Topic proměnná je zapisovatelná. Používají ji různé příkazy a často není potřeba ani psát. Především pro každou metodu jde zapsat .metoda jako zkrácený zápis pro $_.metoda, for a given nastavují $_. Topic proměnnou lze použít jako zástupnou proměnou v bloku. when porovnává s touto proměnou, s/// resp. m// implicitně nahrazuje resp. hledá v této proměnné atd. Raději místo dalšího vypisování uvedu pár příkladů:
  $_="ahoj";
  say .chars; 
  say  ( $OUTER::_, $_ for ^2 ); #((ahoj 0) (ahoj 1)) — tady nelze použít $^a před for není blok 
  s/aho/čau /;
  .say;                 #čau j 
  
  my ( $a, $b, $c ) = 0, 1, 2;
  for  $a, $b, $c {                 #0
      say .++;                      #1
  };                                #2
  say "$a $b $c";                   #1 2 3
  
  my @a = < abba kolo oko vede >;
  say grep {  True when .flip }, @a;    #(abba oko)

  for 21 .. * Z~ '×' xx * Z~ @e {        #27×x — srovnejte s předešlou kapitolou
      .say if '27×x' ff *;               #28×y
  }                                      #29×z

  my @b = < ahoj jak se vede >;
  say @b.first({ .=chop; .chars > 2 });  #s
  say @b;                                #[aho ja s vede]

Závěr

Ukázali jsme některé způsoby jak v si Perlu 6 usnadnit práci a psaní kódu. Ze začátku se to může zdát sice trochu matoucí, ale osvojení těchto technik se nám později bohatě oplatí. Samozřejmě jako u všeho podobného je to dobrý sluha, ale zlý pán. Jak je to ze zkracováním a vynecháváním psaní části kódu v jiných jazycích a je některý zkrácený zápis, který máte oblíbený, nebo naopak považujete za příliš matoucí?        

Hodnocení: 75 %

        špatnédobré        

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

Komentáře

Vložit další komentář

Bedňa avatar 17.4.2016 22:44 Bedňa | skóre: 34 | blog: Žumpa | Horňany
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
V ďalšom diely by neškodilo nejaké hlasovanie, kto píše web v Perly. Môj prvý web v minulom tisícročí som napísal v Perly, len vtedy s tým na hostingoch boli problémy.
KERNEL ULTRAS video channel >>>
wamba avatar 17.4.2016 23:09 wamba | skóre: 38 | blog: wamba
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Možná by bylo nejlepší, kdyby se ti, co píši web v Perlu, vyjádřili přímo v tomto vlákně. Anketa je dost nevypovídající. Co se týká mě, tak jsem sice pár webů v Perlu napsal, ale byli to spíš jen experimenty. Aktuálně, žádný mnou napsaný web (i díky tomu, že si neplatím žádný hosting) není přístupný.
This would have been so hard to fix when you don't know that there is in fact an easy fix.
Bedňa avatar 18.4.2016 21:40 Bedňa | skóre: 34 | blog: Žumpa | Horňany
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
vyjádřili přímo v tomto vlákně
To by platilo tak pred rokmi, dnes musíš ľudí dokopať, aby mali jednoduchú možnosť voľby :)

Je pravda, že aj ja som migroval kvôli jednoduchosti na PHP, pretože to fungovalo Out of the box a ostatné jazyky mali úplne kulové, teda jediné naozaj použiteľné boli len Perl, PHP a mne ostatné jazyky prídu aj dnes viac náročné na spojazdnenie a správnu konfiguráciu.
KERNEL ULTRAS video channel >>>
18.4.2016 08:16 miluju tě!
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Obávám se, že Perl nikdo nepoužívá.
18.4.2016 10:33 Mirek
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
V Perlu mám napsanou dost klíčovou utilitu pro synchronizaci úloh. Je to ideální pro heterogenní prostředí, kdy třeba vyvíjíte na Linuxu, ale musí to běžet na nějakým komerčním UNIXu. Dík za články, ale přechod na Perl 6 nechystám :-)
21.4.2016 04:11 ChronicPain | blog: chronicPain
Rozbalit Rozbalit vše Nemam problem prijmout st...
Nemam problem prijmout stredoskolaka na pomerne financne zajimavou pozici, kdyz vidim, ze ma o svuj obor zajem a ze o svem oboru vi kolikrat vice nez uchazeci, kteri sice maji onen statni bc titul, ale pri tom o svem oboru v zivote nic neprecetli a krome naucenych statnich skript nedisponuji relevantnimi znalostmi. Vase nazory jsou jen dukazem toho, ze soucasna spolecnost ma mozek dokonale vymyty socialistickou propagandou (slabym je treba pomahat, zamestnavatele vas vykoristuji, musite v praci intrikovat pro zachovani mista, je treba donaset na druhe, a dalsi veci co jste predvedl) a jiz si nedokaze predstavit, jake by to bylo na svobodnem trhu.
http://www.klaus.sk/ – energeticky úsporné vykurovacie systémy
pavlix avatar 21.4.2016 07:57 pavlix | skóre: 54 | blog: pavlix
Rozbalit Rozbalit vše Re: Nemam problem prijmout st...
Někteří musejí dokonce na tu „socialistickou“ propagandu každý rok udělat v rámci zaměstnání e-learningový kurz. :)
Já už tu vlastně ani nejsem. Abclinuxu umřelo.
18.4.2016 12:59 alkoholik | skóre: 38 | blog: Alkoholik
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Perl nahodou pouzivame docela dost. Je to pomerne slusny filtr na "takyprogramatory".
;)
pavlix avatar 18.4.2016 13:05 pavlix | skóre: 54 | blog: pavlix
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
To věřím, zkusmo jsem si v něm napsal generátor statického webu, a bylo to jako se snažit domluvit španělsky.
Já už tu vlastně ani nejsem. Abclinuxu umřelo.
27.4.2016 10:14 unavensluncem
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Ahoj, dovolim se nesouhlasit. Perl se pouziva. Z tech hodne znamych firem zminim booking.com, duckduckgo a cPanel

jinak obecne na tema 'zivost' perlu jsme se vyjadrili v tomhle techtalku
18.4.2016 13:25 jiri.v
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
To vybírání sloupce z matice je moc hezké. Jinak by se ale tyto featury měly používat s rozumem, tj. jen tam, kde to přirozeně zapadne do logiky věci. Ne se je pokoušet napasovat všude jen proto, že to jde. Kód by se neměl snažit používat větší expresivitu než přirozená logika. Ze zápisu by vždycky mělo být pokud možno na první pohled jasné, co dělá. Radši si v perlu napíšu o nějaký ten řádek víc, než aby to po mně někdo (já) musel za měsíc luštit.
19.4.2016 17:16 Kooala
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Nenapsal jste ten serial na linuxsoftu? Jestli ano, tak velke diky, byl to prvni zdroj, z ktereho jsem se Perl ucil, a rekl bych, ze mi dal docela solidni zaklady.

Jinak musim rict, ze my &multiply_three_numbers = * * * * *; dava uplne nove moznosti pro opravdu poradne obfuscovany kod. Nechapu, kdo mohl neco takoveho vymyslet. Funkcionalita to je zajimava, ale mohli pouzit aspon nejaky jiny znak.
wamba avatar 20.4.2016 15:42 wamba | skóre: 38 | blog: wamba
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Tak musí se s * opatrně, &multiply_three_numbers jsem uvedl jako zajímavost. Někde mi, především u jednoduchých map, grep, … , připadá ten zápis přirozený .grep: * > 3;, .sort: *.chars; atd. A nebál bych se ani čitelnosti u něčeho takového .map: * * 1.328;.
This would have been so hard to fix when you don't know that there is in fact an easy fix.
David Watzke avatar 24.4.2016 10:29 David Watzke | skóre: 74 | blog: Blog... | Praha
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Tenhle kód bych chtěl po někom dostat na údržbu :-D
for 21 .. * Z~ '×' xx * Z~ @e {        #27×x
    say $^a if $^a ~~ '27×x' ff *;     #28×y
} 
“Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
Bedňa avatar 25.4.2016 00:07 Bedňa | skóre: 34 | blog: Žumpa | Horňany
Rozbalit Rozbalit vše Re: Naučte mě Perl 6, III. Zkracování kódu
Tak v PERLy sa dá písať skoro na úrovni inštrukcií a je okolo toho fakt veľa príkladov.

Ale však "oneline" súťaží aj v iných jazykoch dosť ale neviem prečo práve z PERLu si robia všetci prdel :)
KERNEL ULTRAS video channel >>>

Založit nové vláknoNahoru

ISSN 1214-1267   www.czech-server.cz
© 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.