在Perl中拆分函数用法

Question

我使用split函数将$ line拆分为'|'我想在分裂后检查蛋白质名称$val[2]！当我打印它给出正确的元素但是当我在if语句中使用它时，即使给定的条件是假的，它也给出了肯定。

请告诉我这是什么错误

#!/usr/bin/perl


$line = ">sp|P01011|AACT_HUMAN| Alpha-1:-antichymotrypsin: OS=Homo sapiens GN=SERPINA3 PE=1 SV=2";

my @val = split(/\|/, $line);

print " $val[2]\n";

if($val[2] == 'gh')
{
   print " \n yes\n";    
}    
else    
{    
   print "no";    
}

Answer 1

==用于比较数字。要比较字符串，请使用eq：

if ($val[2] eq 'gh')

Answer 2

而不是

if（$ val [2] ==＆＃39; gh＆＃39;）

使用

if（$ val [2] eq＆＃39; gh＆＃39;）