Товарищи, у меня стыдный вопрос :(
Что означает ${*$sock} в левой части выражения?

${*$sock}{'io_socket_timeout'} = ...

Вроде бы обращение к таблице символов, в $sock наверное имя из таблицы... Я просто "*" пользуюсь пока только для *{$name} = ref
Если *{$name} = \{}; то ref(*$name) eq 'REF' , ref(${*$name}) eq 'HASH'
Т.е. $name - это имя хеша что ли?
Брр... В общем, может, видел кто доступную для понимания думаков типа меня статью про "*" ? :)

Это в IO::Socket такие извращения :)

а вот так, что понять что это за суЧность:

➜  ~ perl -le '$s = "xxx"; print *$s' 
*main::xxx

а дока: perldoc perldata
/Typeglobs and Filehandles

это GLOB, в кэмелбуке вроде целый раздел был

как-то раз пришлось и мне раскурить это дерьмо

OK, погляжу perldoc perldata и верблюда.
Так-то я понял, как данная конкретная конструкция работает, но хочется почитать побольшу на эту тему. Хотя конечно если я буду направо и налево использовать typeglob'ы в работе - коллеги могут, наверное, и побить :)

и будут правы)

их оправдают, они будут в состоянии аффекта

typeglob

110 страница в камэлбуке

это же получается как & в плюсах?

не, мутнее

тут ещё пишут смотреть отдельные разделы главы 8, 10 и 11

да

в алфавитном указателе можно посмотреть ещё

это какое издание?

четвёртое, в мягкой обложке

там только 36 страница