Perl | chomp() 函数

chomp() 函数是 Perl 中非常常用的一个函数，它用于去除字符串末尾的换行符。

语法

以下是 chomp() 函数的语法：

chomp VARIABLE
chomp(LIST)

chomp() 函数接收一个参数，可以是变量名，也可以是数组或列表。

示例

示例 1: 去除字符串末尾的换行符

下面的例子中，我们使用 chomp() 函数去掉字符串末尾的换行符：

my $str = "hello\n";
chomp($str);
print $str;

输出：

hello

示例 2: 去除数组元素末尾的换行符

下面的例子中，我们使用 chomp() 函数去掉数组元素末尾的换行符：

my @arr = ("foo\n", "bar\n", "baz\n");

foreach my $elem (@arr) {
    chomp($elem);
    print $elem . " ";
}

输出：

foo bar baz

注意事项

使用 chomp() 函数时需注意以下几点：

• chomp() 只会去掉字符串或数组元素末尾的一个换行符，如果有多个连续的换行符，只会去掉一个。
• chomp() 函数会直接修改原始变量或数组，而不会返回新的字符串或数组。
• 如果想去掉字符串末尾的其他字符，可以使用 chop() 函数。

参考链接

• Perl chomp() Function
• Perl chop() Function