Процедура для форматирования переменной
Задача
Есть переменная с целым числом. Необоходимо при выводе на экран форматировать в human-readаble формате.
Например:
1000 -> 1k 10000 -> 10k 1000000 -> 1m
Решение
1 2 3 4 5 6 7 8 9 10 11 | #! /usr/bin/perl $aa=9500000; print &strip_value($aa),"\n"; sub strip_value { my $value = @_[0]; $value = int($value/1000)."k" if ( $value >= 1000 && $value < 1000000 ); $value = int($value/1000000)."m" if ( $value > 100000 ); return $value; } |
результат: 9m