[bcn-pm] numeros en notacions no estandard

[Quim Rovira]

No se si et farà el fet...

#!/usr/bin/perl
#

use warnings;
use strict;

my $NUM = $ARGV[0];
my @MULTS = ('','k','M','G');
my $k = (log($NUM)/log(10));
my $kk = int($k/3);

#print "k is $k\nkk is $kk\n10^kk is ".(1000**$kk)."\n";
print "Num is: ".sprintf("%.2f%s",$NUM/(1000**$kk),$MULTS[$kk])."\n";


On Mon, Jul 27, 2009 at 12:53 PM, Albert Vilella <avilella a gmail.com> wrote:

> Hola,
>
> Algu sap quina es la manera mes adequada de convertir numeros en notacions
> com aquesta:
>
> 91.8M
> 12.3G
>
> perl no tracta el M en mega i G en giga automaticament...
>
> Gracies
>
>
>
> _______________________________________________
> llista dels Barcelona-pm
> Barcelona-pm a pm.org
> http://mail.pm.org/mailman/listinfo/barcelona-pm
> BCN Perl Mongers: http://barcelona.pm.org
>
-------------- part següent --------------
Un document HTML ha estat eliminat...
URL: <http://mail.pm.org/pipermail/barcelona-pm/attachments/20090727/a0e061dd/attachment.html>