perl - 在无效上下文中无用的数字lt(<)

Question

对于可能是愚蠢的问题，我感到抱歉，但我收到以下警告：

"Useless use of numeric lt (<) in void context"

运行此代码时：

   for (my $j=0, my $k = 0; $j < @name,$k < @name_mod;) {               
        #doing something   
   }

谁知道怎么修它？，
任何建议，不胜感激

Answer 1

好的，因此-从注释中-您正在比较两个数组。

大概在循环中，您正在执行以下操作：

 if ( $name[$j] == $name_mod[$k] ) { 

所以我的建议是-不要那样做：

for ( my $index = 0; $index < @name and $index < @name_mod; $index++ ) { 
    if ( $name[$index] == $name_mod[$index] ) { 
         #do something
     }
}

也许： each_array

my $ea = each_array(@name, @name_mod);
while ( my ($cur_name, $cur_name_mod ) = $ea->() )   { .... }