Re: Surviving 'Illegal division by zero'

. I was wondering if there's some way I can alter this behaviour

You could wrap the expression in an eval

$growth = eval { ( $fig_2 / $fig_1 * 100 ) - 100 };
[download]

Comment on Re: Surviving 'Illegal division by zero' Select or Download Code

Replies are listed 'Best First'.
Re^2: Surviving 'Illegal division by zero' by ViceRaid (Chaplain) on Jun 23, 2004 at 11:52 UTC
Thanks, but I've got lots and lots of these calculations, and what I'd like to be able to do is scope-globally adjust the behaviour, rather than have to wrap every block in either an `eval` or a conditional. On reflection, a function mydiv: `sub mydiv { my ( $divided, $divisor ) = @_; $divisor ? $divided / $divisor : undef; } my $growth = mydiv($fig_2, $fig_1);` [download] Might have been easier, but Abigail-II's answer is another way of getting to it as well. Thanks Alex	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Surviving 'Illegal division by zero'
by ViceRaid (Chaplain) on Jun 23, 2004 at 11:52 UTC

Thanks, but I've got lots and lots of these calculations, and what I'd like to be able to do is scope-globally adjust the behaviour, rather than have to wrap every block in either an eval or a conditional.

On reflection, a function mydiv:

sub mydiv {
  my ( $divided, $divisor ) = @_;
  $divisor ? $divided / $divisor : undef;
}

my $growth = mydiv($fig_2, $fig_1);
[download]

Might have been easier, but Abigail-II's answer is another way of getting to it as well.

Thanks
Alex

[reply]
[d/l]