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,$/;

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.

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$/";

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$/";