Цикл Foreach в EmbPerl

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; OUT файловый дескриптор привязан к выходному потоку Embperl. Вы также можете использовать блок [+ $myVar +] вместо печати в OUT.