円周率の取得

---

　Math::Trigモジュールのpiで取得できます。

use Math::Trig;

my $r = 10;
my $s = pi * $r * $r;
print $s, "\n";

---

関連項目

なし