Perl chomp 操作

如果字符串结尾有换行符，chomp 可以去掉它。这基本上就是它能完成的所有功能，如下例：
$text = “a line of text/n”; #也可以由<STDIN>输入
chomp($text); #去掉换行符(/n)。
它非常有用，基本上你的每一个程序都会用到它。如你将知道，这是将字符串末尾换行符去掉的最好方法。基于Perl 中的一条基本原则：在需要使用变量的地方，可以使用赋值表达式来代替。我们有更简单的使用chomp 的方法。Perl 首先做赋值运算，再使用这个变量。因此使用chomp 的最常用方法是：
chomp ($text = <STDIN>); #读入，但不含换行符

$text = <STDIN>;
chomp ($text); #同上，但用两步完成

第一眼见到时，第一种组合的方法看起来复杂些。如果把上述其看成两步操作，读一行再chomp，那写成两个语句的方法
看起来自然些。如果将其看作一个操作，读入一行但不包括换行符，那写成一个语句的方法更恰当。由于绝大多数Perl 程序员使用第一种写法，你也应该使用它。
chomp 是一个函数。作为一个函数，它有一个返回值，为移除的字符的个数。这个数字基本上没什么用：
$food = <STDIN>;
$betty = chomp $food; #得到值1
如上，在使用chomp 时，可以使用或不使用括号（）。这又是Perl 中的一条通用规则：除非移除它们时含义会变，否则括号是可以省略的。
如果结尾有两个或两个以上的换行符，chomp 仅去掉一个。如果没有，那什么也不做，返回0。