,致力于将数组的所有元素与单个字符进行比较。
chomp($letter=<STDIN>);
$i=0;
for($i=0;$i<$length:$i++){
if(@selectword[$i]==$letter)
{
print("Matchn");
}
else
{
print("No Matchn");
}
}
}
当前无法使用设置为测试的数组输出为
match
match
match
match
无论输入任何字母。
正如我所说,你发布的Perl离编译还有很长的路要走,但看起来你可能想要这样的东西
use strict;
use warnings;
my @selectword = (); # Initialise with real data
chomp (my $letter = <>);
for my $i (0 .. $#selectword) {
if ($selectword[$i] eq $letter) {
print("Matchn");
}
else {
print("No Matchn");
}
}
我认为您还没有粘贴整个程序。但是查看代码的部分,您可能应该使用字符串相等运算符来比较 if(@selectword[$i]==$letter) 行中的字母"eq",而不是用于数字比较的"=="。