Perl 如何去掉换行符

Question

如题所述

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。