No se si et farà el fet...<br><br>#!/usr/bin/perl<br>#<br><br>use warnings;<br>use strict;<br><br>my $NUM = $ARGV[0];<br>my @MULTS = ('','k','M','G');<br>my $k = (log($NUM)/log(10));<br>my $kk = int($k/3);<br>
<br>#print "k is $k\nkk is $kk\n10^kk is ".(1000**$kk)."\n";<br>print "Num is: ".sprintf("%.2f%s",$NUM/(1000**$kk),$MULTS[$kk])."\n";<br><br><br><div class="gmail_quote">
On Mon, Jul 27, 2009 at 12:53 PM, Albert Vilella <span dir="ltr"><<a href="mailto:avilella@gmail.com">avilella@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Hola,<br><br>Algu sap quina es la manera mes adequada de convertir numeros en notacions com aquesta:<br>
<br>91.8M<br>12.3G<br><br>perl no tracta el M en mega i G en giga automaticament...<br><br>Gracies<br><br><br>
<br>_______________________________________________<br>
llista dels Barcelona-pm<br>
<a href="mailto:Barcelona-pm@pm.org">Barcelona-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/barcelona-pm" target="_blank">http://mail.pm.org/mailman/listinfo/barcelona-pm</a><br>
BCN Perl Mongers: <a href="http://barcelona.pm.org" target="_blank">http://barcelona.pm.org</a><br></blockquote></div><br>