perl - 为什么这没有按预期连接？

Question

我正在尝试学习一些 Perl 并做一些简单的练习来让自己习惯它。

其中一个练习是操纵字符串，我写了下面的内容。

#!/usr/bin/perl

use strict;

print "Please enter some text..\n";
my $string =<STDIN>;

my $string_reverse = reverse $string;
print "Reversed: $string_reverse\n";

my $string_length = length $string;
print "Length: $string_length\n";

my $string_upper = uc $string;
print "Uppercase: $string_upper\n";

my $string_lower = lc $string;
print "Lowercase: $string_lower\n";
print "Enter a second bit of text\n";

my $second_string = <STDIN>;
print $string . $second_string;

这会产生以下输出。

Please enter some text..
test
Reversed:
tset
Length: 5
Uppercase: TEST

Lowercase: test

Enter a second bit of text
123
test
123

我希望连接的文本显示为:

test123

为什么每次都换行显示？

Answer 1

my $string =<STDIN>;

读入一个字符串，包括一个换行符。

尝试使用 chomp 来修剪换行符。