После года разработки опубликован релиз новой стабильной ветки языка программирования Perl - 5.36. При подготовке нового выпуска было изменено около 250 тыс. строк кода, изменения затронули 2000 файлов, в разработке приняли участие 82 разработчика.

Ветка 5.36 выпущена в соответствии с утверждённым девять лет назад фиксированным графиком разработки, подразумевающим выпуск новых стабильных веток раз в год и корректирующих релизов - раз в три месяца. Примерно через месяц планируется выпустить первый корректирующий релиз Perl 5.36.1, в котором будут исправлены наиболее значительные ошибки, выявленные в процессе внедрения Perl 5.36.0. Одновременно с выходом Perl 5.36 прекращена поддержка ветки 5.32, для которой в будущем могут быть выпущены обновления только в случае выявления критических проблем с безопасностью. Также начался процесс разработки экспериментальной ветки 5.37, на базе которой в мае или июне 2023 года будет сформирован стабильный релиз Perl 5.38, если не будет принято решение перейти к нумерации 7.x.

Ключевые изменения:

• Стабилизирована и теперь доступна при указании прагмы "use v5.36" поддержка сигнатур функций, позволяющих явно определить перечень переменных, используемых в функции и автоматизировать операции проверки и присвоения значений из массива входящих параметров. Например, ранее используемый код:

  
      sub foo {
          die "Too many arguments for subroutine" unless @_ >= 2;
          die "Too few arguments for subroutine" unless @_ <= 2;
          my($left, $right) = @_;
          return $left + $right;
      }
  

  при использовании сигнатур может быть заменён на:

  
      sub foo ($left, $right) {
          return $left + $right;
      }
  

  При вызове foo с числом аргументов, отличным от двух, интерпретатор выведет ошибку. В списке также поддерживается специальная переменная "$", которая позволяет игнорировать часть аргументов, например, "sub foo ($left, $, $right)" позволит выполнить копирование в переменные только первого и третьего аргумента, при этом в функцию необходимо передать ровно три аргумента.

  Синтаксис сигнатур также позволяет указывать необязательные аргументы и задавать значения, используемые по умолчанию в случае отсутствия аргумента. Например, указав "sub foo ($left, $right = 0)" второй аргумент становится необязательным и при его отсутствии передаётся значение 0. В операции присваивания можно указать произвольное выражения, в том числе с использованием других переменных из списка или глобальных переменных. Указание вместо переменной хэша или массива (например, "sub foo ($left, @right)") приведёт к возможности передачи одного и более аргументов.

• В функциях, объявленных с использованием сигнатур, поддержка дополнительного присвоения параметров из массива "@_" объявлена экспериментальной и будет приводить к выводу предупреждения (предупреждение выводится только если @_ используется в функциях, объявленных при помощи нового синтаксиса). Например, предупреждение будет выведено для функции:

  
     use v5.36;
   
     sub f ($x, $y = 123) {
       say "The first argument is $_[0]";
     }
  

• Стабилизирован и доступен при указании прагмы "use v5.36" инфиксный оператор "isa" для проверки того, является ли объект экземпляром указанного класса или классом, производным от него. Например:

  
     if( $obj isa Package::Name ) { ... }
  

• При указании прагмы "use v5.36" включена обработка предупреждений (активирован режим "use warnings").
• При указании прагмы "use v5.36" отключена поддержка косвенной нотации вызова объектов ("feature indirect") - устаревшего способа вызова объектов, при котором вместо "->" используется пробел ("method $object @param" вместо "$object->$method(@param)"). Например, вместо "my $cgi = new CGI" нужно использовать "my $cgi = CGI->new".
• При указании прагмы "use v5.36" отключена поддержка эмуляции многомерных массивов и хэшей в стиле Perl 4 ("feature multidimensional"), позволяющих транслировать указание нескольких ключей в промежуточный массив (например, "$hash{1, 2}") преобразовывалось в "$hash{join($;, 1, 2)}").
• При указании прагмы "use v5.36" отключена поддержка экспериментального механизма ветвления ("feature switch"), аналогичного операторам switch и case (в Perl применяются ключевые слова given и when). Для использования данной возможности начиная с Perl 5.36 нужно явно указывать 'use feature "switch"', а при указании "use версия" она больше автоматически включаться не будет.
• Стабилизирована и доступна по умолчанию поддержка дополнительных классов символов в квадратных скобках внутри регулярных выражений. Возможность позволяет осуществлять сопоставления с использованием расширенных правил пересечения, исключения и объединения множеств символов. Например, '[A-Z - W]' - символы от A до Z за исключением W.
• Частично стабилизирована и доступна по умолчанию поддержка операций "(?lookbehind). Для выражений со скобками, таких как '"aaz"=~/(?=z)(?<=(a|aa))/', пока оставлен экспериментальный статус, так как разработчики не уверены в сохранении нынешнего поведения ($1 ссылается на "aa", а не "a").
  
  
  
• Добавлен экспериментальный синтаксис для перебора списков с единовременным извлечением сразу нескольких значений в одной итерации цикла - "for my (VAR, VAR) (LIST)" и "foreach my (VAR, VAR) (LIST)". Например, теперь можно указывать:

  
     foreach my ($key, $value) (%hash) { ... }
     for my ($left, $right, $gripping) (@moties) { ... }
  

• Обеспечено сохранение состояния булевых значений "true" и "false" при их присвоении переменным. Для проверки является ли переменная булевой предложена встроенная функция is_bool().
• Добавлена экспериментальная поддержка функций, встроенных в интерпретатор и всегда доступных. Предложенный набор встроенных функций документирован в модуле builtin. По умолчанию встроенные функции должны вызываться с использованием префикса "builtin::" (например, "builtin::reftype([])"), а для использования коротких имён ("reftype([])") следует использовать прагму "use" (например, "use builtin 'reftype'").

  Среди добавленных в Perl 5.36 встроенных функций: builtin::trim (чистка граничных пробелов), builtin::indexed (нумерация элементов списка), builtin::true, builtin::false, builtin::is_bool, builtin::weaken, builtin::unweaken, builtin::is_weak , builtin::blessed, builtin::refaddr, builtin::reftype, builtin::ceil и builtin::floor.

• Добавлена экспериментальная поддержка блоков отложенного выполнения, определяемых пои помощи нового ключевого слова defer. Указанные блоки выполняются в самом конце выполнения. Если блок defer встретился во время выполнения, он пропускается и вызывается только на стадии выхода. Например:

  
     use feature 'defer';
     {
        say "Первый";
        defer { say "Последний"; }
        say "Второй";
     }
  

• Для обработчиков исключений, определяемых при помощи ключевых слов try и catch, предложена экспериментальная поддержка третьего ключевого слова "finally", позволяющего определить блок с кодом, выполняемым в самом конце конструкции try/catch, даже если обработчик будет прерван исключением или оператором перехода (по аналогии с "defer").

  
     try {
         attempt();
         print "Success\n";
     }
     catch ($e) {
         print "Failure\n";
     }
     finally {
         print "This happens regardless\n";
     }
  

• В операторах экранирования текста, таких как "qr", предоставлена экспериментальная возможность использования не-ASCII символов в качестве парных разделителей (feature extra_paired_delimiters). Например, вместо "< >", "( )", "{ }" и "[ ]" можно использовать символы "« »", "“ ”" и т.п. Например, "qr«pat»".
• Запрещён вызов функции sort без аргументов, который теперь будет приводить к выводу ошибки.

  
     @a = sort @empty; # продолжит работу
     @a = sort;        # будет выведена ошибка
     @a = sort ();     # будет выведена ошибка
  

• Предложен новый флаг командной строки "-g", включающий режим загрузки всего файла целиком, а не построчно. Действие флага аналогично указанию "-0777".
• Поддержка спецификации Unicode обновлена до версии 14.0.
• Обеспечена мгновенная обработка исключений, связанных с вычислениями с плавающей запятой (SIGFPE), аналогичная обработке других аварийных сигналов, таких как SIGSEGV, что позволяет привязывать собственные обработчики для сигнала SIGFPE через $SIG{FPE}, например, выводящие номер строки в которой возникла проблема.
• Обновлены версии модулей, входящих в базовую поставку.
• Добавлены оптимизации производительности. Предоставлена возможность более эффективного хранения ключей больших хэшей, без использования разделяемых таблиц строк. Значительно повышена производительность создания новых скалярных значений, например, следующий код теперь выполняется на 30% быстрее:

  
     $str = "A" x 64;
     for (0..1_000_000) {
         @svs = split //, $str
     }
  

• В коде интерпретатора началось использование некоторых конструкций, определённых в стандарте C99. Для сборки Perl теперь требуется компилятор, поддерживающий C99. Прекращена поддержка сборки в старых версиях MSVC++ (до VC12). Добавлена поддержка сборки в Microsoft Visual Studio 2022 (MSVC++ 14.3).
• Прекращена поддержка платформ AT&T UWIN, DOS/DJGPP и Novell NetWare.