Percentage module in Math::?

[ewhitt]

Does anyone know of a Perl module that will return what percentage a number is of another number? I can't seem to find anything in the Math:: modules. Thanks!

[syphilis]

Hi ewhitt,

return what percentage a number is of another number

Shouldn't really require a module for that (imo). Better to just write a sub that divides the "a number" by the "another number" and multiplies by 100.

Cheers,
Rob

[TOD]

that's a rather trivial equation problem:

    $some_value / $some_othervalue = $x / 100
<=> $x = $some_value * 100 / $some_othervalue

;-)

[KurtSchwind]

I agree with most of the others. This is module madness if we need a module to do division.

I will ad this to what the others have said though. Be careful of divide by zero. You may want to do something like this.

my $percent = ($second_number ? $first_number/$second_number : undef);

And then check $percent for undef.

[ysth]

If $second_number is a negative zero, shouldn't that give negative undef? (Just kidding.)

[syphilis]

If $second_number is a negative zero, shouldn't that give negative undef? (Just kidding.)

Unless $first_number is also negative. (Being equally serious.)

Cheers,
Rob

[sanPerl]

Even if there is any module preseent, can't you simply write subroutine with few lines of code? I don't think I need to post this code, I think monk of your level can easily do it.
Please let us know why you want readymade module? From my experience of team managements and collaborative development environments, I know manytimes you need to restrict programmers to use standard modules to maintain consistancy and reliability of giant programs, If that is the case then I think here you can create your own library sub and distribute to your group.

[sh1tn]

In addition - Google always has all trivial answers formula percent.