Поздравляю всех с юбилейной версией! Просьба отписываться, если новость была полезной :3

Приятно знать, что не зря пыхтел.

в регвырах

где мой канделябр?

Ларри тобой не доволен.

Ололо, на самом деле это СОБЫТИЕ. Минька- слишком мелко. Ну да ладно. Я не злюсь.

А на perl.org версия 5.30.3

if ( $x < $y <= $z ) {…}

Это же натуральная бомба

Бэкпорт с Raku. Perl11, ёпта!

Perl11

Следующим будет Perl111

отличная новость!

спасибо за информацию

Появилась возможность записывать операторы сравнения с одним приоритетом в виде цепочки

Слава Котоне! Я джвадцать лет ждал!

(речь о {$a <=> $b} и {$b <=> $a} )

Ты пошто sort пролюбил? Я не вкурил, пошёл по ссылке и долго искал этот кусок кода (когда уже перлорегулярки завезут в мой браузер? Никогда! Он на Python! >_<).

Спасибо!

if ( $x < $y <= $z )

полезная вещь для гольфа, между прочим. Ждём пока онлайн-площадки с задачками обновятся.

Ну да, получается.

А куда ему из него деться?

Киньте ссылками со свежими сравнениями производительности Perl и Python. Нагуглить удалось лишь нечто довольно старое и потому неактуальное.

сравнениями производительности Perl и Python

Оба медленные.

операторы сравнения с одним приоритетом в виде цепочки

По-настоящему революционное изменение, которого двадцать лет ждали.

Разве это важно? Если один язык для людей, а второй для роботов? И в пхп весь говносинтаксис попёрли

Где сейчас работает бородатый?

👍

Perl почти всегда быстрее. Это не секрет. Просто для скриптухи часто производительность не важна.

Когда уже компиллер завелосипедят?

К LLVM прикрутить же возможно? Будет же пушка.

Пзы: Знаю что такое скаляр, на этом знания перла заканчиваются.

Когда уже компиллер завелосипедят?

Добро пожаловать Raku.

Там же VM. Это не считается.

Добро пожаловать Raku.

Я слышал что он ещё сырой, и медленнее. Ну и да там VM.

140 тысяч изменённых строк

Нормально так перл умирает, живенько.

Играл в Planescape: Torment? Вот там были такие ghouls.

Иногда важна. Мне приходилоссь пилить скрипты для обработки гигабайтных текстовых файлов и там перлом я решал задачу в секунды. До этого были инструменты на питоне и яве. Первый работал сутками, второй падал из-за нехватки памяти.

Сравнение производительности Perl и Python

Как на счёт аналитики уровня LOR?

Я нашёл в интернете простенькую реализацию решета Эратосфена. Код примерно одинаковый, вот результаты:

C -O3    0.7с      3%
C -O0    1.1с      4%
Perl    22-23с    87%
Python  24-28с   100%

Питон в 1.15 раз медленее перла. Перл в 32 раза медленее С.

Бенчмарк:

cat > sieve.c << 'EOF'
#include <stdio.h>
#include <stdlib.h>

int main(int argc, char **argv)
{
    int i, j, k;
    int number = atoi(argv[1]);

    int *primes = calloc(number+1, sizeof(int));

    for (i = 2; (i * i) <= number; i++) {
        if (!primes[i]) {
            for (j = 2; j < number; j++) {
                if (i * j > number) break;
                primes[i * j] = 1;
            }
        }
    }

    j = 0;
    k = 0;
    for (i = 2; i <= number; i++) {
        if (!primes[i]) {
            k++;
            j = i;
        }
    }
    printf("%d %d\n", j, k);

    return 0;
}
EOF

cat > sieve.pl << 'EOF'
my $number = int($ARGV[0]);
my @primes = (0)x($number+1);
for (my $i = 2; ($i*$i) <= $number; $i++) {
    if (not $primes[$i]) {
        for (my $j = 2; $j < $number; $j++) {
            last if ($i*$j > $number);
            $primes[$i*$j] = 1;
        }
    }
}

my $j = 0;
my $k = 0;
for (my $i = 2; $i <= $number; $i++) {
    if (not $primes[$i]) {
        $k++;
        $j=$i;
    }
}
print "$j $k\n";
EOF

cat > sieve.py << 'EOF'
import math
import sys

number = int(sys.argv[1])
primes = [False for i in range(number + 1)]
i = 2
while i * i <= number:
    if not primes[i]:
        for j in range(2, number):
            if i*j > number: break
            primes[i*j] = True
    i += 1

j = 0;
k = 0;
primes[0] = True
primes[1] = True
for i in range(number + 1):
    if not primes[i]:
        k += 1
        j = i

print(j, k)
EOF

SIZE=50100200

echo C $(gcc --version | head -1) -O3
gcc -O3 sieve.c -o sieve && time ./sieve $SIZE

echo ----------------

echo C $(gcc --version | head -1) -O0
gcc -O0 sieve.c -o sieve && time ./sieve $SIZE

echo ----------------

echo Perl $(perl --version | head -2 | tail -1)
time perl sieve.pl $SIZE

echo ----------------

echo Python $(python --version)
time python sieve.py $SIZE

Не нашел ничего интересного в дельте, кроме ускорения. Но дело хорошее, надо будет в своих cpan-модулях .travis обновить до актуальной версии.

Цепочные сравнения это вин. Обидно было что в менее гольфовом Raku есть эта штука, а в Perl нет.

if ( $x < $y <= $z ) {…}

Тоже самое что:

if ( $x < $y && $y <= $z ) {…}

if ( $x < $y && $y <= $z ) {…} лучше.

Readable код лучше кода в котором нужно что-то «додумывать».
А лучше так

if ( $x <  $y  && 
     $y <= $z 
   ) {

...
}  

Владимир

оО

А на opennet другая стата…

При подготовке нового выпуска было изменено около 220 тыс. строк кода, изменения затронули 1800 файлов, в разработке приняли участие 89 разработчиков.

Perl почти всегда быстрее.

В плане регулярок — не почти. На регулярках Python жидко обсирается. Всегда.

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

У меня в продакшене 5.20. В cpan-модулях обычно нет ограничений или 5.10.1. Фича хорошая, но будет мне доступна через несколько лет в лучшем случае.

«Век живи, век учись».

Использовал Perl в 90-х.
Foxpro 2.6 с текстом работал медленно.
Так вот для работы с текстом, там где Foxpro 2.6 «тупил» вызывал из него модули Perl.
Например для размещения по горизонтали нескольких расчетных листков.
Все работало раз в пятьдесят быстрее Foxpro 2.6.
Ради интереса пробовал расположить 1000 расчетных листков по горизонтали.
Perl очень шустро выдавал результат.
И вот те на - оказывается Perl медленный.

М-да …

Владимир

А если бы модули были на си, то можно было бы расположить в 10 раз больше листков за половину времени. (Правда, делать сами модули не так быстро)

Дмитрий

Вот так вот познакомишься с няшной анимешной девочкой, а она Дмитрий.

Р’рХа Фх’ ЪыЪ

Шутка.

А можно и на ассемблере ведь было сделать …

Владимир

Это включая файлы отредактированные автозаменой (смена версии и т.п.), ниже написано что людьми было изменено 140 тысяч строк.

вносите перлового царя

Аналогично. Perl рулит.

Плохой пример.

Надо брать гигабайт текста, что-то с ним делать, записывать в другой (или несколько других) файл(ов).

А если выражение несколько более сложное, чем а < б < с?

Вот тут и начинаешь ценить синтаксисический сахарок.)))

Плохой пример

1. для лора сойдёт

Надо брать гигабайт текста

2. возьми, жду новых результатов бенчмарка

синтаксисический сахарок.)))

СЛАДКИЙ ХЛЕБ

Делириума забанили.

Просьба отписываться, если новость была полезной :3

Полезна.

Оказывается, Larry Wall ещё жив.

Как у него с карьерой?

Наконец-то догадались подсмотреть у Python!

Кого там подсматривать то ? Ты либо клоун либо толстый тролль компания ремотнулась к моему пк да взяла себе этот перл который я туда затащил , не думай что линукс свободен может ноум жопой и не торчит а остальное все дампом уходит на сервера статистики в виде мета дампа

Ты человек вообще или бот? Надеюсь на второе, иначе ты болен на голову.

Держи толстячек поддакиватель https://source.chromium.org/chromium/chromium/src/+/master:ui/ примерно так компы и открыты