perl数字格式转换

发布时间：2020-12-15 21:02:24 所属栏目：大数据来源：网络整理

导读：查看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?

查看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/

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!