EmbPerl中的Foreach循环

Question

看起来像是在foreach外部声明的变量，在foreach内部初始化的变量不会持久化它的数据。

考虑这个例子：

[-
$myVar;

foreach my $item (qw/item1 item2 item3/) {
    $myVar = $item;
}

print $myVar # This will print undef, I expect it to print item3
-]

如何使用foreach循环来实现这一点？

Answer 1

将print $myVar语句更改为print OUT $myVar;输出文件句柄绑定到Embperl的输出流。您也可以使用[+ $myVar +]块而不是打印到OUT。