perl数字格式转换

查看mytop源码，学到的几个小技巧，获益匪浅

 

 
 

#!/usr/bin/perl  
  
  
use strict; 
  
  
use warnings; 
  
  
use Data::Dumper; 
  
  
 
  
  
my $number = $ARGV[0]; 
  
  
my $c = $ARGV[1]; 
  
  
 
  
  
sub commify($) 
  
  
{ 
  
  
    local $_  = shift; 
  
  
    chomp($_); 
  
  
    return 0 unless defined $_; 
  
  
    1 while s/^(\d+)(\d{3})/$1,$2/ and print Dumper($_);  ##，从右边开始，3位一个
  
  
    return $_; 
  
  
} 
  
  
 
  
  
 
  
  
sub make_short($) 
  
  
{ 
  
  
    my $number = shift; 
  
  
    my $n = 0; 
  
  
    while ($number > 1_025) { $number /= 1024; $n++; }; 
  
  
    return sprintf "%.1f%s", $number, ('','k','M','G', 'T')[$n];  ##切片
  
  
} 
  
  
 
  
  
 
  
  
print commify($number),"\n"; 
  
  
print make_short($number),"\n" if $c; 
 
 

# perl commify.pl 1230098 y

$VAR1 = '1230,098';
$VAR1 = '1,230,098';
1,098
1.2M

[root@cz perl]# perl commify.pl 1230098
$VAR1 = '1230,098

 

fyi : http://jeremy.zawodny.com/mysql/mytop/