Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание переменных во время выполнения, Создание переменных на основе данных 
:(
    Опции темы
andryas
Дата 7.10.2010, 09:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здравстуйте. Никак не получается решить следующую задачу:

Через STDIN поступает текст в формате:

ИМЯ_ПЕРЕМЕННОЙ_1:ЗНАЧЕНИЕ_1
ИМЯ_ПЕРЕМЕННОЙ_2:ЗНАЧЕНИЕ_2
....
ИМЯ_ПЕРЕМЕННОЙ_N:ЗНАЧЕНИЕ_N

Необходимо создавать переменные с именем "ИМЯ_ПЕРЕМЕННОЙ" и присваивать им значения "ЗНАЧЕНИЕ". Возможно ли такое?
PM MAIL   Вверх
Logo
Дата 7.10.2010, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 10
Возможно, но скорее всего вам нужен хеш

Код

my %hash;
$hash{name} = 'qwe';
print $hash{name};
PM MAIL   Вверх
Jimy
Дата 7.10.2010, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 3
Цитата(Logo @ 7.10.2010,  09:20)
Возможно

Не покажите пример реализации?
PM   Вверх
sir_nuf_nuf
Дата 7.10.2010, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 14
Всего: 31
Код

while (<>) {
  my ($k, $v) = split ':', $_, 2;
  $hash{$k} = $v;
}



--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
andryas
Дата 7.10.2010, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Logo @  7.10.2010,  09:20 Найти цитируемый пост)
вам нужен хеш


Спасибо, действительно подходит.  Но пример с созданием переменной тоже интересует smile

sir_nuf_nuf

Спасибо большое, точно так же реализовал smile

Это сообщение отредактировал(а) andryas - 7.10.2010, 10:14
PM MAIL   Вверх
Egik2
Дата 7.10.2010, 10:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 302
Регистрация: 29.7.2008
Где: Агудзера

Репутация: 1
Всего: 11
Пример кода:
Код

#!/usr/bin/perl

my $var="hello";
$$var = "bye!";
print("$hello");


Весь сок в $$var="hello";




--------------------
Три великие добродетели программиста: лень, нетерпение и самомнение (Larry Wall)
a-nav.com
developer-blog.ru
world-poetry.org
PM MAIL WWW ICQ   Вверх
vadiml
Дата 7.10.2010, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 7
Можно и переменные, через ссылки, посмотрите в camelbook главу "Ссылки", часть "символические ссылки".

если кратко:
no strict 'refs';

${'varname'} = 'varbody';
print $varname;
PM MAIL Jabber   Вверх
andryas
Дата 7.10.2010, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо всем, задача успешно решена с использованием хеша.
PM MAIL   Вверх
Jimy
Дата 7.10.2010, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 3
Цитата(Egik2 @ 7.10.2010,  10:38)
Код

my $var="hello";
$$var = "bye!";
print("$hello");


Четно, не ожидал что такая конструкция сработает. Точнее даже наоборот, был уверен что не сработает, поэтому даже не попробовал smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0490 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.