perl сравнить массивные элементы с одиночным charater

Question

, Работа над сравнением всех элементов массива с одним символом.

chomp($letter=<STDIN>); 

$i=0; 

for($i=0;$i<$length:$i++){ 
    if(@selectword[$i]==$letter) 
      { 
      print("Match\n"); 
      } 
      else 
      { 
      print("No Match\n"); 
      } 
     } 
} 

в настоящее время не работает с массивом, установленным в качестве теста выхода

match 
match 
match 
match 

независимо от введенной буквы.

Answer 1

Как я уже говорил, 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("Match\n"); 
    } 
    else { 
     print("No Match\n"); 
    } 
} 

Answer 2

Я думаю, что вы не вставили всю программу. , но, глядя на часть кода, вы, вероятно, должны использовать оператор равенства строк для сравнения букв «eq» в строке if (@selectword [$ i] == $ letter) вместо «==», который предназначен для числового сравнения ,