Perl 的 chomp 命令用法

Perl 的 chomp 命令用法  

1        #!/usr/bin/perl

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 $sum\n";

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

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

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

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

良好的编程习惯：

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