LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Diskuze: článek Perl (12) - Pole - základní operace

Hezké, hezké
(link)
12.8.2005 16:11
Hynek (Pichi) Vychodil
Věk: ( ~43 let)
Jen nevím kdy se tímto tempem dostaneme k něčemu jako:
use strict;
use warnings;
sub setif (&$$) { my $sub = shift; local ($a,$b) = @_; $_[0] = $_[1] if &$sub; }
my ($d,$c) = (1,2);
setif { $a<$b } $d,$c;
print $d,$/;
Re: Hezké, hezké
(link)
12.8.2005 16:14
Ivan Majer
Věk: ( ~58 let)

No musim priznat, ze to jde ted pomaleji. Clanku o programovani se vydava ted podstatne mene, max. jeden az dva tydne....

Neni to ale v zadnem pripade chyba autora, protoze ten ma dily v administraci pripravene.

Re: Hezké, hezké
(link)
12.8.2005 18:01
Hynek (Pichi) Vychodil
Věk: ( ~43 let)

No já si dělám srandu. Tohle je hodně daleko. To je spíš pro takové hračičky. Jako například takovej operátor merge. To mě přímo štve, že perlu chybí. To si ho člověk musí doprogramovat:

use strict;
use warnings;
sub merge (&\\@\\@) {
  my ($sub,$f,$s) = @_;
  my $i = 0;
  no warnings 'uninitialized';
  map { local (*a, *b) = (\\$_, \\$s->[$i++]); &$sub } @$f;
}
my @a=(1,2,3);
my @b=(4,5,6);
print "Merge result: ", join(' ', merge {$a += $b} @a, @b), $/;
print "a: @a$/";
Ale dost už ať čtenáře nevyděsím :-)

P.S.: Proč ten engine baští spětná lomítka?
Re: Hezké, hezké
(link)
12.8.2005 18:22
Hynek (Pichi) Vychodil
Věk: ( ~43 let)
To no warnings je tam zbytečně. Musí se použít až v místě volání merge. Je tam pro případ, že druhé pole je menší než první. Trošku se to chová jinak než jsem čekal.
Re: Hezké, hezké
(link)
12.8.2005 18:48
Aleš Hakl
Bydliště: Praha

Zpetna lomitka opravena (funguje to tak jak to je mysleno, tj. ne zpetne kompatibilne).

Opravena verze vyse uvedene perlove necitelne magie:

use strict;
use warnings;
sub merge (&\@\@) {
  my ($sub,$f,$s) = @_;
  my $i = 0;
  no warnings 'uninitialized';
  map { local (*a, *b) = (\$_, \$s->[$i++]); &$sub } @$f;
}
my @a=(1,2,3);
my @b=(4,5,6);
print "Merge result: ", join(' ', merge {$a += $b} @a, @b), $/;
print "a: @a$/";

DISKUZE

Hezké, hezké 12.8.2005 16:11 Hynek (Pichi) Vychodil
  L Re: Hezké, hezké 12.8.2005 16:14 Ivan Majer
    L Re: Hezké, hezké 12.8.2005 18:01 Hynek (Pichi) Vychodil
      |- Re: Hezké, hezké 12.8.2005 18:22 Hynek (Pichi) Vychodil
      L Re: Hezké, hezké 12.8.2005 18:48 Aleš Hakl




Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

18.6.2018 0:43 /František Kučera
Červnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 21. 6. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: F-Droid, aneb svobodný software do vašeho mobilu. Kromě toho budou k vidění i vývojové desky HiFive1 se svobodným/otevřeným čipem RISC-V.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

20.9.2018 10:04 / Jan Ober
Jaký kurz a software by jste doporučili pro začínajcího kodéra?

20.9.2018 10:00 / Jan Ober
Re: Gimp

20.2.2018 18:48 / Ivan Majer
portal

20.2.2018 15:57 / Jan Havel
Jak využíváte služby cloudu v podnikání?

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2018) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze