Perl の数値計算と出力方法(3ページ目)

プログラムの改善

ここで覚えた事を利用して、「Perlプログラミングの流れ」で作った為替計算プログラムをもう少し直しておきましょう。赤字部分が改善点です。

修正した為替計算プログラム

#為替レートから100円でいくらになるかを計算する
#表示桁数改善バージョン

use strict;
use warnings;
use utf8;

#為替レートを設定（1ドル〇〇円の値）。
my $kawase_usd = 99.18;

#計算
my $usd_per_yen = 1 / $kawase_usd * 100; #100円なら何ドル？

#出力
binmode STDOUT, ':encoding(utf8)'; #Windowsは utf8->cp932
print "今日の為替は1ドル $kawase_usd 円です。\n";
#print "100円は $usd_per_yen ドルです。\n";
printf ("100円は %.2f ドルです。\n", $usd_per_yen);

ここで使っている printf は先ほど使った sprintf と同様の機能を持つ関数ですが、変数に代入せずに直接出力する時に使います。

出力はご自身で試してみて下さい。

まとめ

以上で、
- Perl での数値計算方法（+, -, *, /）
- 好きな桁数で表示する方法（sprintf と printf）
が分かりました。