pl+2007-08-16 23:05:32--

Code: (dl )

1
2
3
4
5
6
7
8
9

my %rechenart = (
    '+' => sub { $_[0] + $_[1] },
    '-' => sub { $_[0] - $_[1] },
    '*' => sub { $_[0] * $_[1] },
    '/' => sub { $_[0] / $_[1] },
    '**' => sub { $_[0] ** $_[1] },
);

my @zeichen = qw# + - * / ** #;

Stiltipp: Als Programmierer wiederholt man sich nicht, sondern generiert Mehrfachdaten aus anderen Daten. [¹] [²] Stell dir vor, du fügst einen neues Wertepaar zu %rechenart hinzu, aber vergisst, auch @zeichen zu aktualisieren. Hier wird's wohl kaum passieren, weil die beiden so dicht beieinanderstehen, aber sonst ist dies eine ernstzunehmende Fehlerursache.

Du kannst schreiben, oder keys %rechenart direkt überall dort verwenden, wo @zeichen benutzt worden wäre.