Perl中的chomp函数用于删除字符串末尾的换行符（\n）或回车符（\r）。
当从文件或用户输入中读取字符串时，通常会包含一个换行符或回车符作为字符串的结尾。但有些情况下，我们希望移除这些结尾符号，以便在处理字符串时不受其影响。
chomp函数会检查字符串的末尾字符，如果是换行符或回车符，则将其删除。它会修改原始字符串，并返回删除结尾符号后的结果。
以下是一个示例：
my $str = "Hello World\n";
chomp($str);
print $str; # 输出 "Hello World"
在上面的例子中，chomp函数删除了字符串末尾的换行符，输出结果为"Hello World"。如果字符串末尾没有换行符或回车符，则chomp函数不会做任何修改。
在处理用户输入或读取文件时，chomp函数通常与
print "请输入一个字符串：";
my $input = <STDIN>;
chomp($input);
print "你输入的字符串是：$input\n";
上面的代码中，chomp函数用于删除用户输入字符串末尾的换行符。这样，输出字符串时就不会出现额外的换行符。
