perl-chomp与chop操作函数
2010-05-09 11:21:03 
阿炯
chomp与chop都是用于去除字符串变量尾部的字符，但它们有各自的区别。
chomp函数对变量起作用，而此变量含有字符串。如果字符串结尾有换行符，chomp可以去掉它。这基本上就是它能完成的所有功能，如下例：
$text="alineoftext\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。这种情况在一次读入一行时不会发生，但使用了输入分隔符(input separator)($/)(其不为换行符(\n))，read 函数，或者将一些字符串结合起来就有可能发生。
在编写Perl程序代码的时候，也许你会有时会用chop()函数来去掉<>输入的换行符"\n"，有时候使用chomp()函数。其实上面的用法都可以达到预期的效果，但它们也有细微的差别。
chop()函数，只是去除最后一个字符。
chomp()函数，就要首先判断最后一个字符是不是为"\n"，它才去除。
chop函数会砍掉字符串变量的最后一个字符，并返回砍掉的字符，chop函数不管字符串里是什么都会剪短它，而chomp函数则更有选择性一些。不能chop直接量，只能chop变量。
用法：
chop VARIABLE
chop LIST
chop
例子：
如果chop一列LIST变量，那么列表中的每个字符串都会被剪短：
@lines=`cat myfile`;
chop @lines;
在最常见的情况下，chop可以用substr来表示：
$last_char = chop($var);
$last_char = substr($var, -1, 1, ""); # 同上
再来看下面的完整的例子：
#!/usr/bin/perl
$string1 = "This is test";
$retval = chop( $string1 );
print " Choped String is : $string1\n";
print " Character removed : $retval\n";
结果：
Choped String is : This is tes
Number of characters removed : t
chomp()函数再解
该函数用于去掉字符串或者读取到的标准输入的一个 换行符。注意关键词：字符串、一个、换行符。
注意，这个函数是在原处修改字符串。但这个函数有自己的返回值：
如果能去掉换行符，则返回移除的字符数，也就是数值1。这是个没什么用的返回值，因为我们都已经知道了；
如果没有换行符，则返回数值0；
如果结尾有两个换行符，则只去掉一个并返回1。
比较下面两个程序，它们会从标准输入中读取：
$line=<STDIN>;
print $line;
$line=<STDIN>;
chomp($line);
print $line;
或者下面的例子，它直接操作一个已有的字符串：
$foo="hello world!\n"
chomp($foo);
print $foo;
字符串赋值操作和chomp()函数可以结合在一起。
chomp($line=<STDIN>);
chomp($line="hello world!\n");
print $foo;
但注意，chomp()是有返回值的，下面的函数返回的是数值1。
use v5.20;
my $line;
print chomp($line="Hello FreeOA!\n\n");
print $line;
返回：
1Hello FreeOA!
一次性去掉所有输入行的换行符：
chomp(@lines=<STDIN>);
chomp函数对变量起作用，而此变量含有字符串。如果字符串结尾有换行符，chomp可以去掉它。这基本上就是它能完成的所有功能，如下例：
$text="alineoftext\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。这种情况在一次读入一行时不会发生，但使用了输入分隔符(input separator)($/)(其不为换行符(\n))，read 函数，或者将一些字符串结合起来就有可能发生。
在编写Perl程序代码的时候，也许你会有时会用chop()函数来去掉<>输入的换行符"\n"，有时候使用chomp()函数。其实上面的用法都可以达到预期的效果，但它们也有细微的差别。
chop()函数，只是去除最后一个字符。
chomp()函数，就要首先判断最后一个字符是不是为"\n"，它才去除。
chop函数会砍掉字符串变量的最后一个字符，并返回砍掉的字符，chop函数不管字符串里是什么都会剪短它，而chomp函数则更有选择性一些。不能chop直接量，只能chop变量。
用法：
chop VARIABLE
chop LIST
chop
例子：
如果chop一列LIST变量，那么列表中的每个字符串都会被剪短：
@lines=`cat myfile`;
chop @lines;
在最常见的情况下，chop可以用substr来表示：
$last_char = chop($var);
$last_char = substr($var, -1, 1, ""); # 同上
再来看下面的完整的例子：
#!/usr/bin/perl
$string1 = "This is test";
$retval = chop( $string1 );
print " Choped String is : $string1\n";
print " Character removed : $retval\n";
结果：
Choped String is : This is tes
Number of characters removed : t
chomp()函数再解
该函数用于去掉字符串或者读取到的标准输入的一个 换行符。注意关键词：字符串、一个、换行符。
注意，这个函数是在原处修改字符串。但这个函数有自己的返回值：
如果能去掉换行符，则返回移除的字符数，也就是数值1。这是个没什么用的返回值，因为我们都已经知道了；
如果没有换行符，则返回数值0；
如果结尾有两个换行符，则只去掉一个并返回1。
比较下面两个程序，它们会从标准输入中读取：
$line=<STDIN>;
print $line;
$line=<STDIN>;
chomp($line);
print $line;
或者下面的例子，它直接操作一个已有的字符串：
$foo="hello world!\n"
chomp($foo);
print $foo;
字符串赋值操作和chomp()函数可以结合在一起。
chomp($line=<STDIN>);
chomp($line="hello world!\n");
print $foo;
但注意，chomp()是有返回值的，下面的函数返回的是数值1。
use v5.20;
my $line;
print chomp($line="Hello FreeOA!\n\n");
print $line;
返回：
1Hello FreeOA!
一次性去掉所有输入行的换行符：
chomp(@lines=<STDIN>);
该文章最后由 阿炯 于 2024-02-21 10:51:38 更新，目前是第 2 版。