无论值如何，脚本都返回 false

Question

我正在创建一个程序来确认给定的核苷酸序列是否是回文。该脚本创建一个反向补码并将其与原始序列进行比较，确认如果 2 匹配，它是一个回文。问题是我的脚本总是会声明它不是回文，即使它是。

#!/usr/bin/perl
use strict;

print "Enter the sequence\n";
my $seq = <STDIN>;

my $r=reverse($seq);

$r =~ tr/ACTGactg/TGACtgac/;

print "Reverse complement: $r \n";

if ($r eq $seq) {
    print "The sequence is a palindrome\n";
} else {
    print "The sequence is NOT a palindrome\n";
}

预期输出示例：

Enter the sequence:
CG
Reverse complement:
CG
The sequence is a palindrome

Answer 1

问题是从<STDIN> 读取后，$seq 还包含最后的换行符。 如果在my $seq = <STDIN>; 行之后添加chomp($seq);，脚本将按预期运行。