Update perlsecret.ru.pod

lib/perlsecret.ru.pod

@@ -10,27 +10,27 @@ Cекретный операторы Perl:
 
     Оператор     Кличка                       Функция
     ======================================================
-    0+           Венус Venus                  Приведение к цифре
-    @{[ ]}       Детскаякаляска Babycart      интерполяция списка
-    !!           2 удара Bang bang            логическое преобразование
-    }{           Эскимосское приветствие      КОНЕЦ блока для однострочного скрипта
-    ~~           Дюймовыйчервь Inchworm       скалярный
-    ~-           Дюймовыйчервь на палке       декремент высокого приоритета
-    -~           Дюймовыйчервь на палке       декремент высокого приоритета
-    -+-          Космическая станция          Приведение к цифре высокого приоритета
-    =( )=        Гоатсе                       скалярный / списочный контекст
-    =< >=~       Пылающий X-Wing Истребитель  ищем во входных данных и присваиваем захваченное
-    ~~<>         Кайт, девочка убийца         Одиночная строка ввода
-    <<m=~m>> m ; Богатый двухлезвийный меч    Многострочный комментарий
-    -=!   -=!!   Плоская                      условное уменьшение
-    +=!   +=!!   Прямоугольная                условное увеличение
-    x=!   x=!!   Крестовая                    условный резет на ''
-    *=!   *=!!   Шестилучевая отвертка        условный резет на 0
-    ,=>          Подмигивающая жирная запятая не стрингифицирующая жирная запятая
-    ()x!!        Смелость Enterprise          Сквош логического списка
-    0+!!         Ключ к истине                числовое преобразование логических значений
+    0+           Венус Venus                   Приведение к цифре
+    @{[ ]}       Детскаякаляска Babycart       интерполяция списка
+    !!           2 удара Bang bang             логическое преобразование
+    }{           Эскимосское приветствие       КОНЕЦ блока для однострочного скрипта
+    ~~           Дюймовыйчервь Inchworm        скалярный
+    ~-           Дюймовыйчервь на палке        декремент высокого приоритета
+    -~           Дюймовыйчервь на палке        декремент высокого приоритета
+    -+-          Космическая станция           Приведение к цифре высокого приоритета
+    =( )=        Гоатсе                        скалярный / списочный контекст
+    =< >=~       Пылающий X-Wing Истребитель   ищем во входных данных и присваиваем захваченное
+    ~~<>         Кайт, девочка убийца          Одиночная строка ввода
+    <<m=~m>> m ; Богатый двухлезвийный меч     Многострочный комментарий
+    -=!   -=!!   Плоская                       условное уменьшение
+    +=!   +=!!   Прямоугольная                 условное увеличение
+    x=!   x=!!   Крестовая                     условный резет на ''
+    *=!   *=!!   Шестилучевая отвертка         условный резет на 0
+    ,=>          Подмигивающая жирная запятая  не стрингифицирующая жирная запятая
+    ()x!!        Предприятие Enterprise        Сквош логического списка
+    0+!!         Ключ к истине                 числовое преобразование логических значений
     ||()         Эбботт и Костелло Камеди дуэт удалить ложный скаляр из списка
-    //()         Наклон Эбботта и Костелло    удалить undef из списка
+    //()         Наклонный Эбботта и Костелло  удалить undef из списка
 
 Perl секретные константы:
 
@@ -697,41 +697,31 @@ heredoc-синтаксиса и красивой симметрии.
 Предприятие это просто повторение списочного оператора  C<< ()x >>
 затем логическое значение (см L<Bang bang> L<Двойной удар> оператор выше), который будет 
 интерпретируется как 1 или 0 в числовом контексте. 
-Следует отметить, что выражение слева всегда оценивается, независимо от того, 
-состояние состоянии. 
+Следует отметить, что выражение слева всегда выполняется, независимо от условия. 
 
-Из вопросов приоритета, сложных условиях на хвосте 
-Предприятие может потребоваться поставить в скобки.
+Из-за вопросов приоритета, сложных условиях в конце 
+оператора ентерпрайз (предприятия) может потребоваться поставить в скобки.
 
-The Enterprise is simply a list repetition operator C<< ()x >>
-followed by a boolean (see the L<Bang bang> operator above) which will be
-interpreted as 1 or 0 in a numeric context.
-Note that the expression on the left is always evaluated, regardless of
-the state of the condition.
-
-Because of precedence issues, complex conditions on the tail of the
-Enterprise may need to be put between parentheses.
-
-=head2 Key to the truth
+=head2 Ключ к истине  (Key to the truth)
 
     0+!!
 
-Discovered by Toby Inkster, 2013.
+Обнаружен Тоби Инкстер, 2013.
 
-This operator is a combination of the Venus and bang bang operators.
-It simply makes the boolean false into the C<0> numeric value.
+Этот оператор - комбинация операторов Венеры (Venus), и двойного удара(bang bang).
+Он просто превращает логическую ложь числовое значение C<0>.
 
-    my $true  = 0+!! 'a string';    # now 1
-    my $false = 0+!! undef;         # now 0
+    my $true  = 0+!! 'a string';    # теперь 1
+    my $false = 0+!! undef;         # теперь 0
 
-=head2 Abbott and Costello
+=head2 Эбботт и Костелло Камеди дуэт
 
     ||()
 
-Discovered by Yves Orton.
+Обнаружен Ивом Ортоном.
 
-This operator makes a false value disappear in list context.
-It simply replaces a false scalar by the empty list.
+Этот оператор делает ложное значение исчезающим в списочном контексте.
+Он просто заменяет ложный скаляр пустым списком.
 
     my @shopping_list = (
         'bread',
@@ -741,94 +731,95 @@ It simply replaces a false scalar by the empty list.
         'apples'
     );
 
-Mnemonic: one is tall (and also the "straight man") and one is fat,
-just like the famous comedy duo.
+Мнемоника: один высокий, (а также "прямой человек") и один жирный,
+, как в известном комедийном дуэте.
 
-=head2 Leaning Abbott and Costello
+=head2 Наклонный Эбботта и Костелло
 
     //()
 
-Proposed by Damien Krotkine, 2014.
+Предложен Дэмиеном Кроткиным, 2014.
 
-This operator works exactly like the L<Abbott and Costello>, except
-that it only makes C<undef> disappear in list context.
+Этот оператор работает точно так же, как L<Эбботт и Костелло> , за исключением
+того, что он только делает C<undef>  исчезающим в списочном контексте.
 
-This operator only works in Perl versions above 5.10.
+Этот оператор работает только в версиях Perl 5.10 выше.
 
-Mnemonic: in this version, the "straight man" is leaning
-(and so the associativity is really "(leaning Abbott) and Costello").
+Мнемоника: в этой версии, "прямой человек" склоняется 
+(и, поэтому, реальная ассоциативность "(склюняющийся Эботт) и Костелло" ).
 
-=head1 SECRET CONSTANTS
+=head1 СЕКРЕТНЫЕ КОНСТАНТЫ
 
-=head2 Space fleet
+=head2 Космический флот (Space fleet)
 
     <=><=><=>
 
-Discovered by Damian Conway.
+Открыт Домианом Конвеем.
 
-Even though it looks like a sequence of three spaceship operators,
-only the middle ship is an actual spaceship. The two outer "spaceships"
-are actually calls to C<glob("=")>.
+Даже несмотря на то, что он выглядит как последовательность из трех космических кораблей,
+только средний корабль является фактическим кораблем. Два внешних "корабля"
+являются на самом деле вызовом C<glob("=")>.
 
-This constant has the value C<0>.
+Эта константа имеет значение C<0>.
 
-=head2 Amphisbaena
+=head2 Амфисбена Двойной путь (Amphisbaena)
 
     <~>
+
+Обнаружил Рафаэль Гарсия Суарес, 2009.
 
-Discovered by Rafaël Garcia-Suarez, 2009.
+Под Unix будет равна в домашнему каталогу пользователя (с помощью C <glob>).
+На Win32 он будет расширять  C<$ENV{HOME}>, если он установлен (что является довольно редко)
+или возвратит C<'~'>.
 
-Under Unix, will be equal to the real user home directory (by using C<glob>).
-On Win32 it will expand to C<$ENV{HOME}> if it is set (which is quite uncommon)
-or return C<'~'> else.
+=head1 АВТОР
 
-=head1 AUTHOR
+Филипп Брюа (книга) 
 
-Philippe Bruhat (BooK)
+=head1 БЛАГОДАРНОСТИ
 
-=head1 ACKNOWLEDGMENTS
-
-The author would like to thank José Castro, Andrew Savige, Dmitry
+Автор хотел бы поблагодарить José Castro, Andrew Savige, Dmitry
 Karasik, Abigail, Yitzchak Scott-Thoennes, Zefram, Tye McQueen, Maxim
 Vuets, Aristotle Pagaltzis, Toby Inkster, Ævar Arnfjörð Bjarmason,
 Rafaël Garcia-Suarez, Andreas J. König, Andy Armstrong, Pau Amma,
 Keith C. Ivey, Michael R. Wolf, Olivier Mengué, Yves Orton, Damien Krotkine,
-Diab Jerius, Ivan Bessarabov
-and the Fun With Perl mailing list for inspiration, suggestions and patches.
+Diab Jerius, Ивана Бессарабова 
+и ожидает (Fun) в списке рассылки Perl вдохновения, предложений и патчей.
+
 
-=head1 CONTRIBUTING
+=head1 СПОСОБСТВОВАНИЕ
 
-If you know of other secret operators or constants, please let me know!
+Если вы знаете другие тайные операторы и константы, пожалуйста, дайте мне знать!
 
-However, before sending me your latest creation, be aware that, although
-these are not set in stone, I consider the following criteria before
-adding an operator or constant to this list:
+Однако, прежде чем отправить мне ваше последнее творение, следует знать, что, хотя
+они устанавливаются не в камне, я считаю следующие критерии до
+добавление оператора или константы в этот список:
 
 =over 4
 
 =item *
 
-does it have a nickname? (usually one that matches its ASCII-art shape)
+имеет ли он ник? (обычно такое, которое соответствует его художественной ASCII форме),
 
 =item *
 
-is it actually used in the wild?
+используется ли он на самом деле в дикой природе?
 
 =item *
 
-does it have a golf-specific interest? (i.e. does it perform some useful
-operation in significantly fewer characters than "normal" Perl code?)
+имеет ли он гольф-специфичный интерес? (т.е. он выполняет некоторые полезные
+операция в значительно меньше числе символов, чем "нормального" Perl код?)
 
 =item *
 
-does it have some historical interest?
+имеет ли он исторический интерес?
 
 =back
 
-=head1 REFERENCES
+=head1 ССЫЛКИ
 
-As shown below, most of the secret operator action happens
-on the Fun With Perl mailing-list.
+Как показано ниже, большинство действий секретных операторов происходит
+в веселом списке рассылки Perl.
 
 =over 4