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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Синтаксис конструкторов хешей, что значит унарный минус в ключах хешей  
:(
    Опции темы
sir_nuf_nuf
Дата 5.2.2008, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Коллеги, кто скажет мне зачем пишут унарные минусы в ключах хешей ? 

например так:
Код

my $textbox : shared = $textcontainer->Tex­t(-height => 28, -width => 80)->pack(-side => 'left');


зачем минус перед height, width и т.п. ?

часто встречается, но я не видел описание такого приема... =(


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


Шустрый
*


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

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



Если ошибаюсь, прошу сильно не бить, именованные параметры так обозначают вроде.

Это сообщение отредактировал(а) PanamOS - 5.2.2008, 15:30
PM MAIL   Вверх
sir_nuf_nuf
Дата 5.2.2008, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



хм.. не думаю. 
у функции perl нет именовых параметров,
а хеши - к ним не совсем подходит термин параметр. это ключ хеша.

но почему перед ним минус ?


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


Эксперт
***


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

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



syntactic shugar
PM MAIL ICQ   Вверх
PanamOS
Дата 5.2.2008, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(sir_nuf_nuf @  5.2.2008,  15:35 Найти цитируемый пост)
у функции perl нет именовых параметров,
а хеши - к ним не совсем подходит термин параметр. это ключ хеша.

Не в том плане именованные как в других языках. Просто так выделяют параметры метода/функции. Чаще всего встречается в методах, как описание свойств объекта. Нечто декоративное, как скажем _func() считается закрытым методом/функцией модуля. 

Это сообщение отредактировал(а) PanamOS - 5.2.2008, 16:10
PM MAIL   Вверх
ginnie
Дата 5.2.2008, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Уважаемые коллеги!

Задача на эту тему:

Код

my %hash;

$hash{-test} = 1;
$hash{test} = 2;
$hash{+test} = 3;



Что вернет

Код

print $hash{-test}, ' ',  $hash{test}, ' ', $hash{+test}, "\n";



--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
vadiml
Дата 5.2.2008, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



это что бы выделить что это параметр

самому хешу всё равно есть там минус или нет, т.к. в данном случае это строка:
-height => 28, -width => 80 равноценно надписи '-height' => 28, '-width' => 80

а в самом модуле скорее всего будет такое:
Код

my ($w, $args) = @_;
$w->{width} = exists $args->{-width} ? delete $args->{-width} : 'значение по умолчанию';


PM MAIL Jabber   Вверх
ginnie
Дата 5.2.2008, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Уважаемый vadiml, не совсем так:

Код

function(-height => 28, -width => 80);

sub function {
    my %args = @_;
    return $args{-height} * $args{-width};
}


Так что с "именованными параметрами" я полностью согласен.

Это сообщение отредактировал(а) ginnie - 5.2.2008, 16:39


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
AlexPet
Дата 6.2.2008, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(ginnie @ 5.2.2008,  16:23)
Уважаемые коллеги!

Задача на эту тему:

Код

my %hash;

$hash{-test} = 1;
$hash{test} = 2;
$hash{+test} = 3;



Что вернет

Код

print $hash{-test}, ' ',  $hash{test}, ' ', $hash{+test}, "\n";

Я бы не сказал, что на эту тему.
Скорее, тут задача на использование плюса как отделения аргументов функции от нее самой.
Если я не прав, поправьте, пожалуйста smile
PM MAIL ICQ Jabber   Вверх
vadiml
Дата 6.2.2008, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



ginnie

Вы привели вызов простой функции, а я -- из функции класса в Tk (да и вообще любой функции-члена класса), что и было в первом вопросе.

При вызове функции класса первым аргументом идет bess-указатель на сам класс, если это не конструктор, которому обычно первым аргументом передается название класса.

PM MAIL Jabber   Вверх
ginnie
Дата 6.2.2008, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Уважаемый vadiml, и что это меняет?


Код

$object->function(-height => 28, -width => 80);

sub function {
    my $self = shift;
    my %args = @_;
    return $args{-height} * $args{-width};
}


Ваш вариант работает только для

Код

$object->function( {-height => 28, -width => 80} );


Это сообщение отредактировал(а) ginnie - 6.2.2008, 11:59


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
vadiml
Дата 8.2.2008, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



ginnie, 

программно -- ничего,

Но я скопировал строку из реального конструктора -- модуля Tk::DBI::DBGrid


PM MAIL Jabber   Вверх
nitr
Дата 9.2.2008, 01:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(arto @  5.2.2008,  15:36 Найти цитируемый пост)
syntactic shugar

соглашусь, думаю это и есть ответ smile
Т.е. не заморачивайтесь по этому поводу, это сделано для больше читабельности или "под стандарт"...

Добавлено через 17 секунд
Т.е. никакой функциональности...


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


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

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


 




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


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

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