perl中如何去掉一句末的换行符?

如题。如何去掉一个字符串最后的换行符?
2025年05月05日 13:21
有2个网友回答
网友(1):

#!/usr/bin/perl
use 5.018;
use warnings;
chomp(my $text=);
say "say is $text";
print "print is $text";

输出结果:
$ perl test.pl
fdsfdf\n
say is fdsfdf\n
print is fdsfdf\n$
say和print一样的。
意思是说chomp怎么没有把我输入的\n给去掉。
应该是输入fdsfdf而已。而没有\n。

网友(2):

chomp($str);#删除$str末尾的换行符
chomp;#删除确省变量$_末尾的换行符