Question

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

如题。

如何去掉一个字符串最后的换行符？

Answer 1

#!/usr/bin/perl
use 5.018;
use warnings;
chomp(my $text=<STDIN>);
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。

Answer 2

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