Perl 将数组元素与单个字符进行比较



,致力于将数组的所有元素与单个字符进行比较。

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",而不是用于数字比较的"=="。

相关内容

  • 没有找到相关文章