小编il-*_*fox的帖子

我有一个由三个名字组成的文件:daniel,elaine和victoria.如果我搜索丹尼尔,我会得到"你不在名单上".有人可以指出我的错误在哪里吗？谢谢.

#!/usr/bin/perl 

#open file 
open(FILE, "names") or die("Unable to open file"); 

# read file into an array 
@data = <FILE>; 

# close file 
close(FILE); 

print "Enter name\n"; 
$entry = <STDIN>; 
chomp $entry; 

if (grep {$_ eq $entry} @data) 
{ 
print "You are on the list $entry"; 
} 
else 
{ 
print "Your are not on the list"; 
}