Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E 'say eval for map { "12 $_ 3" } qw{+ - *
+ / % **}'
15
...
4
0
1728
  2. or download this
    $ perl -Mstrict -Mwarnings -E '
    my %op_hash = (
...
4
0
1728
  3. or download this
    $ perl -Mstrict -Mwarnings -E '
    my %op_hash = (
...
    say for map { $op_hash{$_}->(12, 0) } qw{+ - * / % **};
'
Divide by zero! at -e line 6.