Perl - 简单的如果陈述不会工作

Question

我想写一个循环，将确定用户输入是否匹配字符串$ rev。无论我为$ seq输入什么内容，它都会返回它不匹配，即使它实际上是。我究竟做错了什么？谢谢你的帮助。

$seq = <>; 
$rev = "string"; 
if ($seq eq $rev){ 
    printf("The two strings match.\n"); 
} 
else { 
    printf("The two strings do NOT match.\n"); 
} 

Answer 1

您需要chomp您的输入删除换行符：

$seq = <>; 
chomp $seq; 
$rev = "string"; 
if ($seq eq $rev){ 
    print "The two strings match.\n"; 
} 
else { 
    print "The two strings do NOT match.\n"; 
} 

此外，使用print代替printf，因为你没有指定的格式。

Answer 2

改变你的代码

$seq = <>; 

到

chomp($seq = <>);