在 Perl 中拆分函数用法

Question

我正在使用拆分函数通过"|"拆分$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 yesn";    
}    
else    
{    
   print "no";    
}

Answer 1

==用于

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

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

Answer 2

而不是

if（$val[2] == 'gh'）

用

if（$val[2] 等式 'gh'）