perl中数组函数详解一：chomp和chop

上一篇 / 下一篇 2010-11-06 16:27:22 / 个人分类：脚本语言

一、简介

(1)函数chomp

perl中的函数chomp基本上每个程序中都会用到，它的作用是去掉字符串结尾的换行，若使用在列表中，则是删除列表每个元素结尾的换行符。

(2)函数chop

chop删除字符串的最后一个字符(也可以删除\n)。如果是处理列表，它将删除列表每个元素的最后一个字符。

二、用法

chomp("字符串"或变量或列表)；

chop("字符串"或变量或列表)；

三、在字符串中的应用

例1：$str="test function of chomp\n";

chomp($str);#去掉结尾的\n

例2：$str=<STDIN>;#从标准输入中读入

chomp($str);

上面的二行可以合并为chomp($str=<STDIN>)

例3.$test="string";

chop $test;

print $test;#结尾的g将被去掉

备注：

1.在使用chomp的时候，可以不使用圆括号()，即chomp $str;

2.如果字符串结尾有2个或2个以上的换行符\n，chomp只去掉一个。如果字符串结尾没有换行符，那chomp什么都不做，返回0。

四、在列表中的简单应用

例4.@color=("red\n","green","orange\n");

chomp(@color);

print "@color"#red和orange后的\n被截取了

例5.@list=("apple","banana\n","berry");

chop(@list);

print "@list"."\n";#apple和berry最后的一个字符被截取，banana最后的\n也被截取了