perl - 为什么我的 ($i) 索引不起作用？

Question

我的程序是

#!\usr\bin\perl -w

my @one= ("sun", "moon", "star");
my $three="SON"; 
my $flag= 0;
my $tester_1=0 ; 
my $tester_2= 0;
my $i= 0;

push (@one, $three);

print @one; 
print join(" ", @one);

while (@one[$i]= $three) 
{
    #flag 1
    if (@one[$i] ne "moon"&& @one[$i] ne "star") 
    {
        $tester_1= 1; 
    }

    ##flag2 
    if ($i<= 99) 
    {
        $tester_2=1;
    }

    #real condition 
    if ($tester_1= 1)
    { 
        if ($tester_2= 1)   
        {
            print @one[$i];
            $i++; 
        }
    }
}

我运行我的程序。循环运行了无数次。在标志 2 中，我设置了 $i<= 99; 的条件，因此我的程序应该在打印第 100 个 SON 后停止。但是，由于某些原因 $i<= 99 不起作用？是什么原因？

Answer 1

您显示启用了警告；您的代码会产生警告。 修复它们，您将解决您的问题。如果您无法理解警告，请尝试添加use diagnostics;

Answer 2

似乎问题在于您在比较中使用了“=”（例如if($tester_1 = 1)应该在哪里if($tester_1 == 1)）。当您运行脚本时，Perl 打印的警告中会出现这种错误。

您还应该替换：
while (@one[$i]= $three)bywhile ($one[i] == $three)和
if (@one[$i] ne "moon"&& @one[$i] ne "star")byif ($one[$i] ne "moon"&& $one[$i] ne "star")

Answer 3

#!\usr\bin\perl 
use strict;
use warnings;

my @one= ("sun", "moon", "star");
my $three="SON"; 
my $flag= 0;
my $tester_1=0 ; 
my $tester_2= 0;
my $i= 0;

push (@one, $three);    
print @one,"\n"; 
print join(" ", @one),"\n";   

while ($one[$i] eq $three) 
{
 if ($one[$i] ne "moon"&& $one[$i] ne "star") 
 {
    $tester_1= 1; 
 }
 if ($i<= 99) 
 {
    $tester_2=1;
 }
 if ($tester_1 == 1)
 { 
    if ($tester_2 == 1)   
    {
        print $one[$i];
        $i++; 
    }
 }
}

这是我为上面显示的脚本得到的输出：

sunmoonstarSON
sun moon star SON