VPF::как бы так сказать, двойная переменная.

edgik

Дата 25.11.2007, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.11.2007

Репутация: нет
Всего: нет

Как в перл реализовать такую конструкцию:

Код



  $digit$i

Есть примерно такой код:

Код


Цикл
       $i++;
...
        if ($i%2 != 0) {
          $dig$i = substr($value,0,4);
        } else {
          $dig$i = substr($value,4);
        }
конец цикла

И вот не пойму, что придумать, чтобы кучу строк не описывать, так как $i может быть десятка 3.

Anarki

Дата 25.11.2007, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 14.3.2005

Репутация: 1
Всего: 11

Самый правильный вариант - массив.

Код


@dig = ();
...
Цикл
       $i++;
...
        if ($i%2 != 0) {
          $dig[$i] = substr($value,0,4);
        } else {
          $dig[$i] = substr($value,4);
        }
конец цикла

А дальше уже использовать $dig[индекс]

А чтобы получить

Код

$digit$i

Можно сделать через eval

Код


$i = 2;
eval('$digit'.$i.'=2');
print $digit2; # 2

Но надо ли такое вместо массива?? Ибо код усложняется

Это сообщение отредактировал(а) Anarki - 25.11.2007, 16:27

--------------------

Мой блог

tishaishii

Дата 30.11.2007, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Цитата

А чтобы получить
Выделить всёкод Perl
1:

$digit$i

Можно сделать через eval
Выделить всёкод Perl
1:
2:
3:

$i = 2;
eval('$digit'.$i.'=2');
print $digit2; # 2

Но надо ли такое вместо массива?? Ибо код усложняется

Код


$i=1;
${'name'.$i}=2;
${'name$i'}=3;

print $$_, "\n" foreach qw(name1 name$i);

Это сообщение отредактировал(а) tishaishii - 30.11.2007, 18:18

edgik

Дата 1.12.2007, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.11.2007

Репутация: нет
Всего: нет

Да, до массива сам уже допер, спасибо!

Anarki

Дата 1.12.2007, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 14.3.2005

Репутация: 1
Всего: 11

Цитата(tishaishii @ 30.11.2007, 21:18)

Код


$i=1;
${'name'.$i}=2;
${'name$i'}=3;

print $$_, "\n" foreach qw(name1 name$i);

И что? Я привел лишь один пример реализации такого, самый длинный вариант, в данном случае массив более "правильней" использовать.
А твой пример не будет работать при strict refs (use strict).

--------------------

Мой блог

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »