Perl：chomp函数

在Perl中，chomp 是一个用于移除字符串末尾换行符（行尾符）的函数。它通常用于处理从文件或其他输入源中读取的文本行，去除行尾的换行符，以便进一步处理字符串的内容。

chomp 函数的使用非常简单，可以用于标量变量或数组变量。它会修改原始变量的值，将结尾的换行符从字符串中移除。如果字符串末尾没有换行符，则不会进行任何修改。

以下是 chomp 函数的用法示例：

# 从标准输入中读取一行并移除行尾的换行符
my $line = <STDIN>;
chomp $line;

# 从文件中逐行读取并移除行尾的换行符
open my $file, '<', 'data.txt' or die $!;
while (my $line = <$file>) {
chomp $line;
# 处理移除换行符后的行内容
# ...
}

# 对数组中的每个元素移除行尾的换行符
my @lines = ("Hello\n", "World\n");
chomp @lines;

# 检查字符串末尾是否有换行符并移除
my $text = "This is a sentence\n";
chomp $text;
if ($text =~ /\n$/) {
# 字符串末尾有换行符
}