Просмотр исходного текста страницы Perl code style

[[Category:Разработка]]
Данная статья отражает моё мнение по поводу правильного стиля кода в Perl’е.

Оно '''не совпадает''' со стандартными рекомендациями perlstyle, потому что, ИМХО, оно '''лучше''' — приводит к гораздо более читаемому коду :)

Кстати, аналогичный стиль я всегда использую при программировании и на других языках — и на Java, и на C/C++, и на JavaScript, и на PHP. Не получается только с убогим питоном — Гвидо же выпендрился, убрав фигурные скобки совсем…

== Отступы, пробелы ==

Желательно, чтобы все строки укладывались в 100—120 символов, но это не следует рассматривать как жёсткое требование: мониторы по 80 символов в ширину сейчас редкость, а случаи, когда длинные строки читаемее коротких, встречаются.

Размер отступа — строго 4 пробела либо 1 таб. Никаких смесей пробелов и табов — ни для «симуляции половины таба» (встречается стиль кода, где 1 отступ = 4 пробела, а 2 отступа = 1 таб — такой стиль запрещается), ни для выравнивания условий if () или параметров функций по открывающейся скобке. Если в файле пробелы, то только пробелы; если табы — то только табы.

Каждый уровень выравнивается строго на +1 отступ.

Например, продолжение выражения на новой строке всегда выравнивается ровно на +1 отступ. Именно на +1, а не на половину или ещё сколько-то:
<code-perl>
$template->process('file.tmpl', $vars)
    || ThrowTemplateError($template->error);
</code-perl>

Второй пример — если список параметров функции не помещается на 1 строчку — он переносится на следующую строчку с одинарным отступом, а закрывающая скобка помещается на отдельную строчку без отступа:

<code-perl>
$self->example(
    'very long parameter', 'very long parameter', 'very long parameter', 'very long parameter'
);
</code-perl>

Например, вот так НЕ ПИШЕМ НИКОГДА (отступы всегда должны расти ровно на 1 уровень!):

<s><code-perl>
$self->example('very long parameter', 'very long parameter',
               'very long parameter', 'very long parameter');
</code-perl></s>

Тело блока всегда глубже открывающих/закрывающих конструкций и скобок ровно на 1 отступ. Есть, например, такой вот странный вариант — так НЕ ПИШЕМ НИКОГДА:

<s><code-perl>
if ($a)
    {
    ...
    }
</code-perl></s>

При переносе условия <tt>if ()</tt> на новую строчку логические операторы остаются в предыдущей строке:

<code-perl>
if ($a && $b && $c &&
    $d && $e)
{
    ...
}
</code-perl>

После ключевых слов for, if и подобных всегда следует пробел:

<code-perl>for (my $a = 0; $a < 100; $a++) ...</code-perl>

После открывающих и перед закрывающими скобками пробелы НЕ СТАВЯТСЯ (есть извращенцы, считающие, что это повышает читаемость, а по-моему — это ужас). То есть вот так не пишем НИКОГДА:

<s><code-perl>if ( $a == 1 ) ...</code-perl></s>

После имён функций в вызовах пробелы не ставятся:

<code-perl>function($arg1, $arg2);</code-perl>

Пробелами обрамляется большинство операторов — присваивания, сравнения, логические, арифметические и т. п. Исключение могут составлять слагаемые в арифметических выражениях, например, <tt>$a*10 + 5</tt>.

Файл всегда должен заканчивается переводом строки.

== Блоки ==

Фигурные скобки ВСЕХ блоков, содержащих более 1 оператора, начинаются с новой строки:

<code-perl>
sub x
{
    ...
    if (...)
    {
        ...
    }
    else
    {
        ...
    }
    ...
}
</code-perl>

Если блок содержит только 1 оператор и этот оператор очень короткий, его можно разместить на 1 строке:

<code-perl>eval { &$sub() };</code-perl>

Конструкции map { … } и grep { … } желательно записывать в 1 строку. Если условие очень длинное — либо превратить в цикл for(), либо записать условие на отдельных строчках, оставив фигурную скобку на той же строке, что и grep:

<code-perl>
grep {
    ... &&
    ... &&
    ...
} @array
</code-perl>

Если блок содержит несколько операторов, можно даже перенести фигурную скобку { на новую строку:

<code-perl>
map
{
    my $a = $_;
    $a =~ s/[abc]/a/g;
    $a;
} @array
</code-perl>

Фигурные скобки хешей почти всегда начинаются на той же строке, что и предшествующий оператор:

<code-perl>
my $hash = {
    ...
};
</code-perl>

Если хеш очень длинный — не возбраняется перенести фигурную скобку на новую строчку.

В случае, если тело цикла — пустое, следует всегда явно добавлять пустой блок вместо пустого оператора «;»:

<code-perl>for ($a = 0; $s{$a}; $a++) {}</code-perl>

вместо

<s><code-perl>for ($a = 0; $s{$a}; $a++);</code-perl></s>

== Perl ==

'''Общее правило:''' поменьше «синтаксического плюрализма», то есть всяких извращённых вариантов записи, в целом позволяемых Perl’ом. Лучше, чтобы все конструкции выглядели однозначно.

Всегда следует использовать

<code-perl>
use strict;
</code-perl>

Для строк не следует использовать синтаксис q{}, qq{}. Обычных кавычек <nowiki>('одинарных' и "двойных")</nowiki> вполне достаточно. HEREDOC — разрешён, но на крайний случай, для очень длинных строк.

Суффиксная запись if/unless/for допускается только для очень коротких одинарных и однострочных операторов. Даже если тело if’а или for’а однострочное, но условие длинное и его приходится переносить на следующую строчку — лучше предпочесть обычную запись с фигурными скобками. Если тело выглядит слишком коротким — лучше заставить себя добавить к нему комментарий:

<code-perl>
if (!($a = $self->_template_lang_directories(Bugzilla->languages, "extensions/BmpConvert")))
{
    # комментарий
    $self->_search_templates(Bugzilla->languages, "extensions/BmpConvert");
}
</code-perl>

Вместо

<s><code-perl>
$self->_search_templates(Bugzilla->languages, "extensions/BmpConvert")
    if !($a = $self->_template_lang_directories(Bugzilla->languages, "extensions/BmpConvert"));
</code-perl></s>

Частный случай: НИ В КОЕМ СЛУЧАЕ не должны использоваться конструкции вида (во vsem.ru, помню, работал какой-то любитель такого):

<s><code-perl>
do
{
    ...
} if (...);
</code-perl></s>

Проверки на пустоту/непустоту следует делать БЕЗ дополнительных scalar(), keys(), == 0, > 0 и т. п. То есть, например, вместо:

<s><code-perl>
if (scalar(@array) == 0) {}
if (scalar(keys(%$hash)) > 0) {}
if ($a == 0) {}
</code-perl></s>

Следует писать:

<code-perl>
if (!@array) {}
if (%$hash) {}
if (!$a) {}
</code-perl>

В большинстве случаев, когда скобки можно опустить и результат будет выглядеть однозначно, предпочтительно их опустить. Например:

<code-perl>
keys %hash;
scalar @array;
push @array, "value";
</code-perl>

В то же время, если результат выглядит неоднозначно — скобки лучше добавить. Например,

<code-perl>open(FD, "file") or die.</code-perl>

Вместо операторов and, or, not предпочтительно использовать C-подобные &&, ||, !. Даже если and/or требуются согласно приоритету операторов, то вполне возможно, что конструкцию лучше переписать так, чтобы можно было использовать «нормальные» операторы && или ||, так как это, вероятно, устранит её «визуальную» неоднозначность. Например, добавить скобки:

<code-perl>($a = $b) || return</code-perl>

вместо

<s><code-perl>$a = $b or return</code-perl></s>

Вместо простых массивов/хешей желательно везде использовать ссылки на массивы/хеши: в переменных, в параметрах функций, в значениях возврата… Простые массивы и хеши имеет смысл использовать только там, где это действительно необходимо (что случается очень редко).

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

Также предпочтительно НЕ использовать возврат списков и wantarray в функциях — лучше вернуть ссылку на массив или хеш.

Аргументы функции строго рекомендуется получать в её начале с помощью списочного присваивания, причём желательно с отдельной строкой my $self = shift — это помогает визуально отличать функции и методы:

<code-perl>
sub f
{
    my $self = shift;
    my ($arg1, $arg2) = @_;
    ...
}
</code-perl>

В принципе, также можно применять конструкцию

<code-perl>
my ($self, $arg1, $arg2) = @_;
</code-perl>

Другие конструкции (например, несколько shift подряд) допустимы, если это необходимо для удобства «разворачивания» остальных атрибутов функции.

Ключи хешей, которые можно записать БЕЗ кавычек, ВСЕГДА следует записывать БЕЗ кавычек. Кавычки следует добавлять только тогда, когда это действительно необходимо — то есть, если ключ содержит разделители (например, <tt>$hash{'a-b'}</tt>).

Обращение к вложенным ключам в ссылке на массив/хеш записывается через ->:

<code-perl>$hash->{key}->{key}->{key}</code-perl>

Обращение к вложенным ключам в списке или хеше (не в ссылку на массив/хеш) записывается без ->:

<code-perl>$hash{key}{key}{key}</code-perl>

Длинные SQL операторы следует записывать в несколько строк с конкатенацией и пробелом в начале продолжения каждой новой строки:

<code-perl>
$dbh->do(
    "SELECT field1, field2, field3, field4" .
    " FROM table" .
    " INNER JOIN table2 ON table2.x=table.x" .
    " WHERE x=?",
    undef, $x
);
</code-perl>

А не, например, вот так (помним, что отступы всегда растут ровно по 1 уровню):

<s><code-perl>
$dbh->do("
        SELECT field1, field2, field3, field4
          FROM table
    INNER JOIN table2
            ON table2.x=table.x
         WHERE table.x=?
", undef, $x);
</code-perl></s>

== Программирование ==

Нежелательно пользоваться линейным поиском в массиве. Практически всегда лучше искать с помощью хеша.

DRY (!!!) Если блок кода повторяется хотя бы ДВА раза — повторение следует СРАЗУ убрать и вынести в функцию.

Никакого хардкода! Всё, что потенциально может различаться в разных системах и окружениях, должно быть вынесено из кода в параметры конфигурации.

Если в проекте используется база данных, всегда должен существовать явный способ её инициализации либо специальными скриптами инициализации, либо просто SQL-файлом, в обоих случаях входящими в код проекта и версионируемыми вместе с ним. Иными словами, если новую базу данных легче всего инициализировать копированием с существующей (боевой или тестовой) системы — это беспредел. Также очень желательно, чтобы были и скрипты миграций (то есть, обновления схемы) БД — опять-таки хотя бы просто SQL-файлами.

В SQL-запросах следует ВСЕГДА использовать bind-переменные, и лишь только в крайнем случае — подстановку значений с помощью <tt>$dbh->quote()</tt>.

Желательно использовать методы <tt>$dbh->select***</tt> и помнить о <tt>{Slice=>{}}</tt>, дающем возможность получить строчки из БД в самом удобном виде — в виде ссылки на массив хешрефов, например,

<code-perl>
my $rows = $dbh->selectall_arrayref("SELECT * FROM table WHERE x=?", {Slice=>{}}, $var1);
</code-perl>

Для получения ссылки на массив со значениями первой колонки — <tt>$dbh->selectcol_arrayref</tt>; для получения первой строчки в виде списка — <tt>$dbh->selectrow_array</tt>; иногда можно применять и <tt>$dbh->selectall_hashref</tt>.

При этом нежелательно без крайней необходимости использовать пары prepare/execute, построчный fetch и длинные списки переменных вместо хешей:

<s><code-perl>
my $sth = $dbh->prepare("SELECT ...");
$sth->execute($var);
while (my ($field1, $field2) = $sth->fetchrow_array)
{
    ...
}
</code-perl></s>

Пары prepare/execute и построчный fetch имеет смысл использовать только при потоковой обработке очень больших наборов данных, и в этом случае '''при использовании MySQL обязательно включить mysql_use_result'''.