пакетное объявление переменных в perl

Если вы используете такие имена переменных, значит вам необходимо подумать - а всё ли вы делаете правильно?
Использование массива или хэша значительно логичнее.

Если нужны именно скаляры, тогда так:
[-- CUT --]
foreach (1..17) {
    ${*{'main::temp'.$_}{SCALAR}} = $_*2;
}
[-- CUT --]

warnings и strict придётся отключать.

Сорри за вопрос, но всё же: а зачем? То есть чем массив не устраивает?

Вообще мне тут сходу это не удалось сделать, но интуиция мне подсказывает, что это в принципе реально. Только my должно быть вне блока, надо что-то типа my ... foreach

> Вообще мне тут сходу это не удалось сделать, но интуиция мне подсказывает

См. выше. Делается достаточно просто. Меняйте main на ваш модуль и temp - на нужное начало имени переменной. Это аналог команды my, но не проходит проверку в strict. Если постараться - можно сделать чтобы проходил. Но мне лень :-)

> что посоветуете?

воспользоваться для этого дела текстовым редактором.

и быстрее выйдет и проблем меньше

вообще да, думаю это через массив реализовать, вернее, через хэш (там подстановка номеров именами идет).

vim и юзаю :)

начнем-с холивар? :))

массив, и потом определяй тип при помощи ref, c ним и работай. ваще для того, что ты делаешь, существует eval, но генерировать код проги во время её интерпретации имхо плохой стиль.

eval кстати никак не спасает, надо хитрее извращаться. Переменные, объявленные внутри eval, снаружи не видны.

тогда яб в массив загонял, а после того как он не нужен писал ченнить вида $#arr=-1;

Так пойдет?

#!/usr/bin/perl


foreach $i (0..9)
{
    ${"aaa_$i"} = $i;
}

print "$aaa_1\n";
print "$aaa_2\n";
print "$aaa_3\n";
print "$aaa_4\n";
print "$aaa_5\n";
print "$aaa_6\n";
print "$aaa_7\n";
print "$aaa_8\n";
print "$aaa_9\n";

warning можно не отключать, а strict все же придется

> vim и юзаю :) начнем-с холивар? :))

вот те хрен. я тоже vim юзаю

и неоднократно убедился что в подобных случаях проще всего сделать 'q' нужой правки и повторить 20 раз

либо воспользоваться шаблоном/генератором; не знаю уж что там в перле для таких случаев есть, но наверняка не менее одного подходящего варианта (а учитывая наличие в виме встроенного перла можно сваять нехитрый скрипт и шаблон запихать в тот же файл в комментариях)

да тут-то вопросов нет, мне кажется, что это с точки зрения стиля неправильно.

чтож, работающую версию оставим, а эту с нуля переделаем.

З.Ы. прога - простейший парсер логов, считает, кто сколько и куда наговорил (логи с атски).

Можно попробовать в рантайме создать пакет с объявлениями, а потом eval-ом его подключить.