Perl-chomp
chompFUNCTION:用于移除字符串结尾的换行符，除非有特殊原因，一律对输入值进行chomp
#!perl
#Learing Perl
#Chapter 2
#Exercise2_2
#Written by HEWEI
#Date:2011 03 22
########################
#User input the value
print "Please input the value of radius\n";
$radius = <STDIN> ; #这里是读入用户输入信息，但是用户按ENTER的符号也读进去了
#chomp($radius = <STDIN>) ;
print "The radius is $radius\n";
#########################
#define Scalar Variable
$pi=3.141592654;
########################
#Calculate the value of circumference
$cir=2*$pi*$radius;
#######################
#print the result
print "The radius is $radius result is $cir.\n";
#end
输出结果：
Please input the value of radius
12.5
The radius is 12.5
The radius is 12.5 这里有一个换行符
result is 78.53981635.
更改程序：
#$radius = <STDIN> ; #这里是读入用户输入信息，但是用户按ENTER的符号也读进去了
chomp($radius = <STDIN>) ;
输出结果：
Please input the value of radius
12.5
The radius is 12.5
The radius is 12.5 result is 78.53981635.
页:
[1]