о Perl

[yorool_gui]

Перл замечательный язык, когда на нем пишу Я. Когда на нем пишут другие -- это кошмар. И подозреваю, что это взаимно.

use strict;
...
no strict 'refs';
...
$self->{LABELS}->{$title} = $3;
$self->{LABELS}->{$title}->{NUM} = $num++;

Это работатет. Но я не понимаю, ради чего надо так извращаться. Это не тот Перл, на котором пишу я. На моем Перле ref $self->{LABELS}->{$title} будет либо SCALAR, либо HASH, но никак не то и другое одновременно. А вот на Перле этого человека в $self->{LABELS}->{$title} хранятся сразу два значения и ему это удобно. Но это другой язык.

Comments

[blacklion.livejournal.com]

А я бы за другое убил -- за no strict 'refs';. Т.е. я просто отказываюсь понимать этот код. Сначала присваеаыем скалярь, а потом обращаемся к нему как к hash ref! Нет, я понимаю, как оно работает, но за любоею no strict (включая LABELS/NUM без кавычек) -- убивать.

[asd.livejournal.com]

С большой вероятностью, это зависит от размера проекта. Я писал довольно объёмные перловые модули, и ничего -- люди нормально понимали.

Но там без экстремизма было.