我正在解析一个非常简单的文本文件并将其处理成一个数组。在程序的最后一步中,我试图搜索用户给定的术语。我已经尝试了很多东西,但似乎无法让它发挥作用,我搜索了一个我知道的术语,因为事实在数组中它仍然找不到它。我有一种预感,变量可能会在“split”、“chop”和“sort”函数的某个时候被修改,但我不确定。
print "\n";
print "Enter a term you would like to search for: \n";
my $element = <STDIN>;
$num = grep(/$element/,@final);
if($num > 0){
print ("Term: " . $element . " found " . $num . " times. \n");
}else{
print "Not found. \n";
}
所以我知道“苹果”这个词在列表中,当我搜索“苹果”这个词时,它会打印出它没有找到。请帮忙!!