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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с ссылками на переменные. Как получить переменную, имея ссылку на 
:(
    Опции темы
everyone
  Дата 5.2.2005, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Код
%new=(one=>{pack=>polietilen});


Ячейка хэша %new под именем "one" содержит ссылку на другой хэш. Как получить данные через эту ссылку?
Не знаю как работать с ссылками на переменные smile.
--------------------
Что написал, то написал (Пилат)
PM ICQ Skype   Вверх
dimes
Дата 5.2.2005, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Все очень просто:

Код

my %hash=(
one =>{
  qq   =>'123',
  ww =>'456'
},
two =>{
 rr =>'789'
}
);

print $hash{'two'}{'rr'}; # 789

print join ",",( keys %{ $hash{'one'} } ); # qq,ww

PM ICQ   Вверх
Kiber_rat
Дата 9.2.2005, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MACMANIAC
**


Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

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



Код
#!/usr/bin/perl -w
use strict;
my %hash=(a=>{b=>3,c=>4},d=>{e=>5,g=>6});
print $hash{a}->{c}; # Обращаемся к переменной через ссылку
my %hash2 = %{$hash{a}}; # Разименовываем ссылку и присваиваем в хэш
print $hash2{b}; # Тоде вариант добраться до переменной :)



--------------------
Best regards!                                                             
@..@_____Ku6ep
=*=______\______KPbIC
Код
print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))
PM WWW ICQ Skype Jabber YIM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




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


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

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