Perl 的 chomp 命令用法

2?????? ?print "Please enter first number:n";

3????? ? $number1=<STDIN>;

4????? ??chomp $number1;

5

6???? ? print "Please enter second number:n";

7???? ??chomp($number2=<STDIN>);

8

9?? ??? $sum=$number1+$number2;

10???? print "The sum is $sumn";

??????? 注意第 3 和 4 行，第 3 行是要求用户输入一个值，回车确认以后，这个值会赋给标量变量 $number1。由于用户回车也算为一个输入，即 $number1 结尾还有一个“n”换行符。第 4 行 chomp 就是为变量删去这个换行符的。

??????? 第 3 和 4 行也可以写作一句，如第 7 行！

??????? 其实，Perl 是不强调变量类型的，在不同的场合，Perl 知道变量应该是什么类型的。也就是说，第 4 句是多余的，因为在第 9 行，$number1 和 $number2 明显是数值变量，那么，他们结尾所带有的“n”换行符会自动去除。

?????? 事实上，chomp 是 chop 的安全形式，只删除 "n" 换行符！

良好的编程习惯：

用 chomp 剔除输入数据末尾的换行符，有助于避免在当前使用场合对那些值作出错误的解释!