Ounces and pounds conversion

[spyderco]

I have a $num that contains ounces. I need to convert these ounces into pounds and keep the extra ounces. I cannot divide the number by 16 because that gives a decimal, I need the real left over ounces, too.

I need them separated into two variables $ounces and $pounds. Any ideas?

 

[rharsh]

You still need to divide the number by 16, give this a shot:

my $ounces = 25;
my $pounds = int($ounces / 16);
my $remaining = $ounces - ($pounds * 16);

print "$ounces oz is $pounds lbs and $remaining oz.\n";

 

[KevinADC]

or:

my $ounces = 37;
print "$ounces oz is @{[int($ounces / 16)]} pounds and @{[$ounces % 16]} ounces\n";