> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Anderson, Mark (Service Delivery)
> Sent: Wednesday, September 08, 2004 9:59 AM
> To: '[EMAIL PROTECTED]'; Chris
> Cc: perl-win32-users;
> [EMAIL PROTE
5DE
http://www.manufacturing.rbs.co.uk/GTrswi/
> -Original Message-
> From: Anderson, Mark (Service Delivery)
> Sent: Wednesday, September 08, 2004 2:59 PM
> To: '[EMAIL PROTECTED]'; Chris
> Cc: perl-win32-users; [EMAIL PROTECTED]
> Subject: RE: Round Numbers
>
>
[EMAIL PROTECTED] wrote:
>
>
>
> how about
>
> $rounded = int($number+ 0.5)
Or for a specified number of digits using POSIX method :
sub pround ($;$) { # $ret = pround ($num, [$digits:2])
my $num = shift;
my $dp = shift || 2;
use POSIX qw(ceil floor);
my
Message-
> From: [EMAIL PROTECTED]
> [SMTP:[EMAIL PROTECTED]
> Sent: Wednesday, September 08, 2004 2:52 PM
> To: Chris
> Cc: perl-win32-users; [EMAIL PROTECTED]
> Subject: Re: Round Numbers
>
> *** WARNING : This message originates from the Internet ***
>
>
To: "perl-win32-users" <[EMAIL PROTECTED]>|
| cc: (bcc: Gerhard Petrowitsch/STN/SC/PHILIPS)
All,
Is there an easy way to round numbers in Perl?
Regards,
Chris
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
