Perl：标量数据-练习2

练习2：修改练习1的程序，用户可以在程序运行时输入半径，如果用户输入12.5，则得到和练习1一样的结果。

sourcecode:
#!/usr/bin/perl -w

print "please input the value of radius:\n";
chomp ($j=<STDIN>);
$i="3.1415926";
$circu=2*$i*$j;
print "The circumference of $j is $circu";

output:
please input the value of radius:
12.5
The circumference of 12.5 is 78.539815

note:
1. 行输入操作符（line-input operator）：<STDIN>。
2. <STDIN>作为标量值使用，Perl每次从标准输入读入文本的下一行，将其传给<STDIN>。
3. 标准输入默认的是键盘，如果没有值输入<STDIN>,Perl会停下来等待输入字符，由换行符结束。
4. 标准输入赋值给<STDIN>的时候，会把结尾的换行符\n一起赋给<STDIN>,需要使用chomp函数去掉它。
5. chomp函数的功能就是：如果字符串结尾有换行符，该函数可以去掉它。本练习中，chomp会把$j中的字符串结尾的换行符去掉，该换行符的存在是因为使用了键盘输入和回车结束。
6. chomp ($j=<STDIN>)是该函数常用的简单写法，先赋值，再使用该变量，也就是读入该变量，但不含换行符。
7.chomp函数的返回值为0或1，返回值为移除的字符的个数。但是如果结尾处有2个换行符，chomp只去掉了一个，那么返回1，没有去掉返回0。如：$returnvalue=chomp $input;