thanks owen. after some research i was able to answer my own question. solution:
use POSIX; $n= 12.735; $w= floor($n); # assigns the value 12 to $n. $f= $n-$w; # this holds the fractional value. thanks! anjan On Tue, Jan 13, 2009 at 6:13 PM, Owen <rc...@pcug.org.au> wrote: > > Hi, > > I would like to divide a floating point number into its whole and > fractional > > parts. > > So, > > ($w, $f)= some_subroutine(12.735) > > assigns 12 to $w and 0.735 to $f. > > > > Any easy perlish way of doing this? > > > Someone no doubt will have a one liner, but here is a logical way of > achieving the result > > > #!/usr/bin/perl -w > > use strict; > > my $nr = "12.75"; > > my ( $whole, $part ) = ( int($nr), $nr - int($nr) ); > > print "$whole $part\n "; > > > > > Owen > > > > > -- ============================= anjan purkayastha, phd bioinformatics analyst whitehead institute for biomedical research nine cambridge center cambridge, ma 02142 purkayas [at] wi [dot] mit [dot] edu 703.740.6939
