题目来自《Perl语言入门》第四版
2.1.2练习
- [5]写一个程序,计算半径为12.5的圆的周长。圆周长等于2π(π约为3.1415926)乘以半径。答案为78.5。
#!/usr/bin/perl –w
use strict;
my $pi=3.141592654;
my $r=12.5;
my $c=2*$pi*$r;
printf "The C is %.1f\n",$c;
- [4]修改上述程序,用户可以在程序运行时输入半径。如果,用户输入12.5,则应得到和上题一样的结果。
#!/usr/bin/perl –w
use strict;
my $pi=3.141592654;
print "Please input your R:";
my $r=