Цикл по каждому элементу в 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.