3桁のカンマ区切りでの表示
phpでは number_formatという関数があって、それに数字を渡せば、カンマ区切りにして返してくれるんですが、perlにはそんなものはなさそう。
■number_format関数 http://phpspot.net/php/man/php/function.number-format.html
こういうやり方を使うそうな。
■数値3桁ごとにカンマで区切るには http://www.ksknet.net/perl/3.html ■Perlリファレンス http://wiki.stsd.info/perl/5pWw5a2X44KSM-ahgeOBlOOBqOOBq-OCq-ODs-ODnuOBp-WMuuWIh-OCiw.html $num = 100000000000000; 1 while $num =~ s/^([-+]?\d+)(\d\d\d)/$1,$2/; print "$num"; とか $num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g; とか。
TemplateToolkitではすぐできるっぽい。同じperlなのになぜ。
■テンプレートツールキットマニュアル http://www.hakoniwa.net/tt/ ■TemplateToolkit http://template-toolkit.org/docs/manual/VMethods.html#section_lower [% MACRO number(n) GET n.chunk(-3).join(',') %] [% number(1234567) %] # 1,234,567












