Opened by pktm at 2006-05-31 19:38
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
[quote=pktm,01.06.2006, 17:52][quote=Strat,01.06.2006, 17:27]ich wuerde das so schreiben
dann sind die subroutinen von variablen ausserhalb unabhaengiger[/quote]
Hm, das gefällt mir irgendwie. Dann leuchtet das mit dem Sub-Aufruf etwas besser ein. Schließlich gibt man dann Werte rein.[/quote]
ist halt ansichtssache, was man verwendet; bei meinem verwendet man halt lokale variablen, bei der urspruenglichen version closures
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my ($zahl1, $zahl2, $operator) = (7, 3, '*');
my %switch = (
'*' => sub { return $_[0] * $_[1] },
'/' => sub { return $_[0] / $_[1] },
'+' => sub { return $_[0] + $_[1] },
'-' => sub { return $_[0] - $_[1] },
);
my $ergebnis = $switch{$operator}->($zahl1, $zahl2);
dann sind die subroutinen von variablen ausserhalb unabhaengiger[/quote]
Hm, das gefällt mir irgendwie. Dann leuchtet das mit dem Sub-Aufruf etwas besser ein. Schließlich gibt man dann Werte rein.[/quote]
ist halt ansichtssache, was man verwendet; bei meinem verwendet man halt lokale variablen, bei der urspruenglichen version closures
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/