查看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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。