Thread Kleinster Perl-Taschenrechner-Algorithmus: wer baut ihn? (17 answers)
Opened by pktm at 2006-05-31 19:38

pktm
 2006-06-01 19:52
#22574 #22574
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
[quote=Strat,01.06.2006, 17:27]ich wuerde das so schreiben
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.
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread Kleinster Perl-Taschenrechner-Algorithmus: wer baut ihn?