这个perl的程序是什么意思？要做什么的？

Question

#!/usr/bin/perl -w

use strict;

my @foo = (1..100);
my @bar = ();
my $end = 0;
my $index = 0;
until ( $end )
{
if ( ($foo[$index] % 2) == 0)
{
push(@bar, $foo[$index]);
}
$index += 1;
if ( $index == 100 )
{
$end = 1;
}
}

最后@foo和@bar里有什么？是不是1-100和1-100的偶数？

Answer 1

是的!

这个程序由 1 到 100 循环一遍.
每个循环, $index 就会 + 1
直到 $index == 100 时, $end = 1 , 就会结束

@foo , 由始至终都不变, 都是 ( 1..100 ), 这是被读取的.
在循环过程中, 只要除 2 没有馀数 ($foo[$index] % 2) == 0
这个 @foo 里面的这个元素就会复制, 并插入到 @bar 里
所以最後, @bar 里面装的都是偶数

Answer 2

是的。其实，实现这个功能不必这么啰嗦：
use strict;
my @bar;
for(1..100)
{
push(@bar,$_) if $_%2==0;
}