...
Code Block | ||||
---|---|---|---|---|
| ||||
my ($a, $b) = # initialize my $answer; eval qq{ \$answer = $a / $b }; print "The quotient is $answer\n"; |
...
Code Block | ||||
---|---|---|---|---|
| ||||
my ($a, $b) = # initialize my $answer; eval qq{ \$answer = $a / $b }; if ($@) { carp $@; $answer = 0; } print "The quotient is $answer\n"; |
...