Русский Перл

Хабрахабр: Метки / perl: Вышел Perl 5.40

В начале июня 2024 года состоялся релиз стабильной ветки языка программирования Perl 5.40. Релиз предыдущей стабильной ветки проекта Perl 5.38 состоялся в июле 2023 года.

Написал denis-19 в 23:11

Мини-портал Perl на Opennet: Доступен язык программирования Perl 5.40.0

После 11 месяцев разработки опубликован релиз новой стабильной ветки языка программирования Perl - 5.40. При подготовке нового выпуска было изменено около 160 тыс. строк кода (без документации и автоматически сгенерированного кода - 110 тысяч), изменения затронули 1500 файлов, в разработке приняли участие 75 разработчиков.

13:34

Мини-портал Perl на Opennet: Уязвимость в Perl-модуле Spreadsheet::ParseExcel, используемая для компрометации Barracuda ESG

В Perl-модуле Spreadsheet::ParseExcel, предоставляющем функции для разбора файлов в формате Excel, выявлена критическая уязвимость (CVE-2023-7101), позволяющая выполнить произвольный код при обработке файлов XLS или XLSX, включающих специально оформленные правила форматирования чисел. Уязвимость вызвана использованием при построении вызова "eval" данных, полученных из обрабатываемого файла. Проблема устранена в обновлении Spreadsheet::ParseExcel 0.66. Имеется прототип эксплоита.

12:04

Хабрахабр: Метки / perl: Вышел Perl 5.38

В начале июля 2023 года состоялся релиз стабильной ветки Perl 5.38 с поддержкой классов. Примерно через месяц планируется выпустить первый корректирующий релиз Perl 5.38.1. Одновременно с выходом Perl 5.38 разработчиками прекращена поддержка ветки 5.34, для которой в будущем могут быть выпущены обновления только в случае выявления критических проблем с безопасностью. Также начался процесс разработки экспериментальной ветки 5.39, на базе которой в начале лета 2024 года будет сформирован стабильный релиз Perl 5.40, если сообществом не будет принято решение перейти к нумерации 7.x.

Написал denis-19 в 23:09

Мини-портал Perl на Opennet: Доступен язык программирования Perl 5.38.0 с поддержкой классов

После 13 месяцев разработки опубликован релиз новой стабильной ветки языка программирования Perl - 5.38. При подготовке нового выпуска было изменено около 290 тыс. строк кода, изменения затронули 1500 файлов, в разработке приняли участие 100 разработчиков.

14:16

СетевойГибитобой: HackerRank 30 Days of Code: Day 11: 2D Arrays

Не Литкодом единым, как говорится! Нашёл на диске пару задачек с HackerRank – видимо, показались тогда особо любопытными, и были сохранены.

Впрочем, и сейчас они выглядят интересно. Эта, например (первая из них) – перемещение паттерна в виде “песочных часов” по “игровому полю”, представленному матрицей, с целью найти такой паттерн, сумма цифр в котором будет максимальной.

Здесь у меня получилось два решения – частное (на Java) и общее (на Perl).

Java-решение

Решение для паттерна и поля, указанных в задаче. Т.е. поле размером 6х6 и часики с внешним габаритом 3х3.

import java.util.Arrays;
import java.util.Scanner;



public class Solution {



    public static void main(String[] args) {
        Scanner in = new Scanner(System.in);
        int[][] arr = new int[6][6];
        for (int i = 0; i < 6; i++) {
            for (int j = 0; j < 6; j++) {
                arr[i][j] = in.nextInt();
            }
        }
        System.out.println(solve(arr));
    }



    private static int solve(int[][] arr) {
        int[] sum = new int[16];
        int h = 0;



        for (int i = 0; i < 4; i++) {
            for (int j = 0; j < 4; j++) {
                sum[h] = arr[i][j] + arr[i][j + 1] + arr[i][j + 2]
                    + arr[i + 1][j + 1]
                    + arr[i + 2][j] + arr[i + 2][j + 1] + arr[i + 2][j + 2];
                h++;
            }
        }



        Arrays.sort(sum);
        return sum[sum.length - 1];
    }



}

Perl-решение

Здесь уже можно задать в скрипте габариты паттерна “часов” и подать на вход матрицу произвольного размера (конечно, с учётом того, что паттерн должен в ней помещаться).

#!/usr/bin/env perl
require 5.008_008;
use warnings;
use strict;
use utf8;



# hourglass dimensions, min 3x3
my $hg_dim = {
    'x' => 3, # width, must be odd
    'y' => 3, # height
};



$hg_dim->{wdht} = $hg_dim->{x} - 1; #i
$hg_dim->{hght} = $hg_dim->{y} - 1; #j
$hg_dim->{cntr} = sprintf("%u", $hg_dim->{x} / 2);



my $arr = [];
while (<STDIN>) {
    chomp;
    push @{$arr}, [ split(' ', $_) ];
}



# ...or $#{$arr-$hg_dim-1>[0]}+1 - $hg_dim-1
my $max_x = (scalar @{$arr->[0]}) - ($hg_dim->{wdht});
my $max_y = (scalar @{$arr}) - ($hg_dim->{hght});



# for neg nums, or add $sum on array and sort it
my $max_sum = -1000;



for (my $y = 0; $y < $max_y; $y++) {
    for (my $x = 0; $x < $max_x; $x++) {
        my $sum = 0;
        for (my $i = $x; $i <= $x + $hg_dim->{wdht}; $i++) {
            $sum += $arr->[$y]->[$i];                   # upper row
            $sum += $arr->[$y + $hg_dim->{hght}]->[$i]; # lowest row
        }
        for (my $j = $y + 1; $j < $y + $hg_dim->{hght}; $j++) {
            $sum += $arr->[$j]->[$x + $hg_dim->{cntr}]; # column
        }
        $max_sum = ($sum > $max_sum) ? $sum : $max_sum;
    }
}



print $max_sum, $/;

Что в итоге?

В итоге – оба приведённых решения работают, причём – по сию пору. Это отрадно По традиции – они же выложены на GitHub.

https://www.hackerrank.com/challenges/30-2d-arrays/problem

Комментировать в TELEGRAM

Написал dimio в 23:44

Мини-портал Perl на Opennet: Релиз компилятора Rakudo 2023.04 для языка программирования Raku (бывший Perl 6)

Представлен выпуск Rakudo 2023.04, компилятора для языка программирования Raku (бывший Perl 6). Проект был переименован из Perl 6 так как не стал продолжением Perl 5, как ожидалось изначально, а превратился в отдельный язык программирования, несовместимый с Perl 5 на уровне исходных текстов и развиваемый отдельным сообществом разработчиков. Компилятор поддерживает варианты языка Raku, описанные в спецификациях 6.c, 6.d (по умолчанию). Одновременно доступен выпуск виртуальной машины MoarVM 2023.04, формирующей среду для запуска скомпилированного в Rakudo байт-кода. В Rakudo компиляция также поддерживается для JVM и некоторых виртуальных машин для JavaScript.