Perl中的chomp函数用于删除字符串末尾的换行符(\n)、回车符(\r)或换行回车符组合(\r\n)。
chomp函数的使用格式为:
chomp($string);
其中,$string是要进行处理的字符串。chomp函数会修改传入的字符串,删除末尾的换行符等特殊字符。
示例:
my $str = "Hello World\n";
chomp($str);
print $str; # 输出:Hello World
在上述示例中,原始字符串"Hello World\n"经过chomp函数处理后,末尾的换行符被删除,最后输出的结果为"Hello World"。
chomp函数也可以应用于数组,可以一次性删除数组中所有字符串元素末尾的换行符等特殊字符。
示例:
my @array = ("apple\n", "banana\r\n", "cherry\r");
chomp(@array);
foreach my $element (@array) {
print $element;
}
# 输出:apple,banana,cherry
在上述示例中,数组@array中的所有元素经过chomp函数处理后,字符串末尾的换行符等特殊字符被删除,最后输出结果为"apple"、“banana"和"cherry”。