Куча говна / Говнокод #26800 Ссылка на оригинал

0

  1. 1
Продолжаем форс Перла

Нечто запредельно пиздатое в перле — это книга Ларри, написанная с охуенным чувством юмора и предельно чистым и умным языком, как будто сам стиль книги и то, с каким Ларри мы через этот текст знакомимся — является одним из образцов применения философии перла на практике. Роман Кашицин, царствие ему небесное, ценил; есть ещё среди нас ценители?

Запостил: vistefan vistefan, (Updated )

Комментарии (492) RSS

  • ava MAKAKA # Ссылка на оригинал 0

    Это которая с верблюдом? Да, она вроде самая важная про перл.
    Еще нужно читать книжку с собачкой: PBP. По ней работает Perl::critic.
    Есть еще кукбук и эвенсд, но это опциональнее.

    А разве Роман за перл?
    Ответить

    • vistefan vistefan # 0 ⇈

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

      Так вплетать юмор в технически точное и полезное повествование — это надо быть Ларри.
      Ответить

      • ava Desktop # Ссылка на оригинал 0 ⇈

        > он емаксит
        – ещё один показатель элитарности detected
        Ответить

        • ava guest # 0 ⇈

          А если емаксист на вимиста залезет, кто кого поборет?
          Ответить

  • ava guest # 0

    Особенно красив и логичен в перле ООП
    package Mammal {
    sub milk {
        'yes'
    }
    sub new {
        bless { name => $_[1] }, $_[0];
    }
    sub talk {
        die 'unimplemented'
    }
}
1;

package Wombat {
    our @ISA = 'Mammal';

    sub talk {
        my $name = $_[0]->{name};
        "I am $name";
    }
}
1;

package main;
my $wombat = Wombat->new('BatjanaWombat');
print $wombat->talk;
    Ответить

  • ava MAKAKA # Ссылка на оригинал 0

    Суппортера попросили написать скрипт, который сохранял бы переменные окружения пользователя, но вырезал бы при этом его личные данные (например, его ник).

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

    Без учета бойлерплейта программа занимает 10 строк. Какой перл!
    #!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

use Fcntl;
use SDBM_File;
tie my %db, 'SDBM_File', 'file.db', O_RDWR | O_CREAT, 0666 or die "Can't open file";
my $nick = getlogin;
if (@ARGV) {
    printf "%s: %s\n", $_, $db{$_} for keys %db;
}
else {
    $db{$_} = $ENV{$_} for grep {$ENV{$_} !~ /$nick/i} keys %ENV;
}
    Ответить

  • ava MAKAKA # Ссылка на оригинал 0

    Христоматийного говна вам. Из такого потом вырос пых. Это год так 1998-й 
    #!/usr/bin/perl

#full path for the guestbook file
$file="/home/httpd/html/guestbook.html";

require "cgi-lib.pl";
&ReadParse;

#translate all the linefeeds into <BR>s for nice formatting
$in{'comments'} =~ s/\n/<BR>\n/g;

#open the guestbook file and append data to the end of it
open(GUESTBOOK,">>$file");

#print the information
print GUESTBOOK "\n<UL>\n";
print GUESTBOOK $in{'comments'};
print GUESTBOOK "\n<B>$in{'name'}<BR>\n";
print GUESTBOOK "$in{'location'}</B><BR>\n";
close GUESTBOOK;
    Ответить

      • ava MAKAKA # Ссылка на оригинал 0 ⇈

        Так это копролит времен царя гороха. Разумеется, за такой код бьют с вертушки по ебалу вот уже лет двадцать как
        Ответить

        • vistefan vistefan # 0 ⇈

          Так ты ж сказал что 98-й примерно. Поздновато говорю.
          Ответить

          • ava MAKAKA # Ссылка на оригинал 0 ⇈

            А, думаешь в 98 уже так не писали?
            Писали. Я все эти "guestbook.cgi" как раз в 99-м где-то и наблюдал.

            CGI появился-то в apache году так в 1996-м
            Ответить

            • vistefan vistefan # 0 ⇈

              А. Ну просто самописная гостевая книга в виде простыни, вся хуйня. Если учесть что в 2000-м уже Яндекс.Народ появился.
              Ответить

              • ava MAKAKA # Ссылка на оригинал 0 ⇈

                Наличие народру (кажется к я он не имел тогда отношения) никак не мешало крутым вебмастерам делать свои сайты web 1.0. Хостинг агава поддерживал запуск cgi.
                Ответить

              • ava MAKAKA # Ссылка на оригинал 0 ⇈

                В пхп была бы mysql.
                Тут говно везде: начиная с неиспользования модуля CGI, и заканчивая тем, что результат вместе с версткой срут в .html (чтоб верстку было никак не поменять) да еще и без flock: чтобы одновременный заход на сайт двух петухов мог сделать интересные гонки.
                К счастью, количество пользователей такого сайта обычно лежит в отрезке [0,1]
                Ответить

                • vistefan vistefan # 0 ⇈

                  > количество пользователей такого сайта обычно лежит в отрезке [0,1]

                  Этот код идеален для своих задач.
                  Ответить

              • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                Опровергаю. Пыхомакаки слишком ленивые для того, чтобы генерировать и сохранять HTML-файл.
                Ответить

                • vistefan vistefan # 0 ⇈

                  Пыхомакаки уже не те, я джва года не видел ни одной свежей самописной цмс-ки
                  Ответить

                  • ava guest # 0 ⇈

                    Сейчас у них даже фреймоврки есть.
                    А в начале нулевых не было: надо было или все с ноля писать на голом PHP, или брать готовый CMS, где у тебя прямо в ядре было понятие "верхнее меню".
                    Очень гибко.
                    Ответить

            • vistefan vistefan # 0 ⇈

              но чтобы ещё и не рендерить из какого-нибудь массива строк в оформление для комментов в цикле, а блять тупо аппендить в html-файл — это прям мамонт.
              Ответить

              • ava guest # 0 ⇈

                В перле из коробки привязывание хеша к dbm: key-value базе данных. Обычно перловики все таки ее использовали в то время.
                Ответить

              • ava guest # 0 ⇈

                Наверное.

                Ввел в гугл "guestbook.cgi", и нашел. Такого много
                Ответить

              • ava guest # 0 ⇈

                Кстати, на фреймах тогда работали чаты. Там было два фрейма: главный обновлялся переодически, и там была комната. В нижем была форма для посылки сообщения. Хранилось все в базе данных. Много было таких чатов.
                Ответить

                • vistefan vistefan # 0 ⇈

                  А я тут когда-то показывал свой пруф-оф-концепт литературного чата.
                  Ответить

                  • ava guest # 0 ⇈

                    Тоже на фреймах, или уже SPA с вебсокетом?
                    Ответить

                  • ava guest # 0 ⇈

                    тащемто, чат web 1.0
                    https://web.archive.org/web/19991009015038/http://www.mtrros.msk.ru/chats/011/

                    Цветовое решение -- ок

                    Экшен формы -- thankschat.cgi?job=login

                    Качать тут
                    http://www.atbcode.com/code/t5pm36h2-136017-down

                    ($secn,$minn,$hourn,$dayn,$monn,$yearn,$weekn,$yeardayn,$isdst) = localtime(time+(3600*$time_miss));
$monn=$monn+1;
if ($monn<10)  {$monn="0$monn";}
if ($dayn<10)  {$dayn="0$dayn";}
if ($hourn<10) {$hourn="0$hourn";}
if ($minn<10)  {$minn="0$minn";}
if ($secn<10)  {$secn="0$secn";}
$daten="$yearn/$monn/$dayn";
$timen="$hourn\:$minn\:$secn";
$secn=$hourn*60*60+$minn*60+$secn;
$reloadtimes=4;
$reloadxx=$reloadx*$reloadtimes;
$reloadxxx=$reloadxx*$reloadtimes;
$userinfo="&username=$username";
$userinfo="$userinfo&usersex=$usersex" if ($usersex ne ""); 
$userinfo="$userinfo&userid=$userid&userpassword=$userpassword" if (($userid) && ($userid ne "") && ($userpassword) && ($userpassword ne "")); 
}

                    какой перл)) а printf какой!
                    Ответить

                    • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                      Все переменные уже с баксами. Это хорошо. Легче будет переводить на «PHP».
                      Ответить

                      • ava MAKAKA # Ссылка на оригинал 0 ⇈

                        ну-ну
                        foreach (@pairs) {
  ($name, $value) = split(/=/, $_);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value = &filterhtml($value);
  &setvaluetoform($name, $value); 
  if ($name eq "userpassword") {&check_password;}
}
                        Ответить

                        • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈ 

                          foreach ($pairs as $_) {
  list($name, $value) = explode('=', $_);
  $value = strtr($value,'+',' ');
  $value = preg_replace_callback('/%([a-fA-F0-9][a-fA-F0-9])/eg', function($x){return pack("C", hex($x[1]));}, $value);
  $value = filterhtml($value);
  setvaluetoform($name, $value); 
  if ($name === "userpassword") {check_password();}
}
                          Ответить

                            • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                              Если бы не вызов функции pack, можно было бы использовать preg_replace и шаблон подстановки типа '$1'. А из-за того, что шаблон подстановки неконстантный, пришлось использовать preg_replace_callback и лямбду, которая в «PHP» пишется довольно длинно.
                              Ответить

                      • ava MAKAKA # Ссылка на оригинал 0 ⇈

                        В ту пору можно было задешево взять охуенный домен. У них еще chat.ru был, например
                        Ответить

                        • vistefan vistefan # 0 ⇈

                          Почему был.

                          Правда там капча называется "ключ активации", и передают погоду по москве +4..+6
                          Ответить

                          • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                            На вид типичный сайт из 90-х. И вдруг... аутентификация по OAuth2 через «mail.ru».
                            Ответить

                          • ava guest # 0 ⇈

                            Каталог зато есть. Когда мне нужно найти интересный сайт в Интернете, я всегда использую каталоги.
                            Ответить

                    • admin admin # 0 ⇈

                      А как путешествовать в прошлое, когда браузеры не будут корректно отображать сайты 2000 годов?
                      Ответить

                      • vistefan vistefan # 0 ⇈

                        Ну будет на waybackmachine рендерилка, допустим, если внезапно html, css и js запретят по конституции без возможности обжаловать обратную совместимость.
                        Ответить

                      • ava MAKAKA # Ссылка на оригинал 0 ⇈

                        Анлайкли. Всё таки там HTML был очень тупой, кажется что рендерилку HTML 3.2 может написать студент
                        Ответить

                        • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                          В HTML 3.2 было много элементов, которые не вошли в новые версии HTML. Например, векторная графика и математические формулы. Эти элементы дали начало новым языкам: SVG и MathML.

                          Всё-таки с реализацией HTML 3.2 придётся попердолиться. Вот HTML 4 без CSS и без JS реализовать проще.
                          Ответить

                            • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                              Не поверишь, в 90-х были такие сайты. С тегами <font>, с кучей атрибутов типа width, height, bgcolor.
                              Ответить

                              • vistefan vistefan # 0 ⇈

                                с депрекейтнутым атрибутом align у блочных элементов, с кучей ныне умерших атрибутов у ячеек таблицы, с тегами <center>, <right>, <color>
                                Ответить

                                • ava guest # 0 ⇈

                                  Я верстал таблицам в то время.
                                  Весь сайт именно и состоял из таблиц с align=right, align=left..

                                  css правда тоже был, но мало
                                  Ответить

                                • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                                  Там ещё с кроссбраузерностью всё плохо. Например, «Хром» игнорирует какой-то из атрибутов цвета то ли для рядов в таблице, то ли для ячеек. Типа, используйте CSS, нам некогда в новом браузере реализовывать устаревшее говно.
                                  Ответить

                                  • ava guest # 0 ⇈

                                    Да, в ту пору я верстал под два одельных браузера: netscape и explorer.

                                    помнишь таг layer?
                                    Ответить

                            • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                              Погугли «CSS Naked Day». Это флешмоб: 1 апреля владельцы сайтов отключают CSS, возвращая голый HTML, чтобы посетители почувствовали атмосферу 90-х. Если вёрстка реально семантическая, всё по делу, сайт не должно распидорасить. Если же элементы используются не по назначению, а «для красоты», будет какой багор.
                              Ответить

                              • ava guest # 0 ⇈

                                Семантических сайтов не бывает со времен бутстрапа
                                Ответить

                                • vistefan vistefan # 0 ⇈

                                  да реально, тру осталось только на редких сайтах с документацией по софту, где сематника сама собой ясна.
                                  Ответить

                                • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

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

                                  • ava guest # 0 ⇈

                                    У нас у вебщиков свой фреймворк, и он точно такой же.

                                    Сплошное
                                    <div class="__red_message"></div>
                                    Ответить

                                    • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                                      Вот, да, никаких «редмесседж» быть не должно. Класс должен указывать на назначение сообщения, а не на его цвет. Цвет должен заботить дизайнера, а не разработчика фреймворка.

                                      А то потом после смены темы оформления появится зелёное сообщение с классом "__red_message".
                                      Ответить

                                      • ava guest # 0 ⇈

                                        Это в идеальном мире, где единороги какают принцессами, верстальщик получает на вход семантический XML от бекендера и преобразовывает его в семантический HTML посредством XSLT, а затем натягивает на него css.

                                        В реально же мире веба царит треш, говно, кал, и вот такое

                                        <div class="container">
  <div class="row">
    <div class="col-sm-4">
      <h3>Column 1</h3>
      <p>Lorem ipsum dolor..</p>
    </div>
    <div class="col-sm-4">
      <h3>Column 2</h3>
      <p>Lorem ipsum dolor..</p>
    </div>
    <div class="col-sm-4">
      <h3>Column 3</h3>
      <p>Lorem ipsum dolor..</p>
    </div>
  </div>
</div>


                                        В место XSLT -- такое
                                        https://github.com/django/django/blob/master/django/contrib/admin/templates/admin/change_form.html
                                        Ответить

                                          • ava guest # 0 ⇈

                                            еще немного семантики с сайта одной фирмы
                                            <div class="wt-row wt-row_size_m wt-offset-top-24 product-card_description">
                        <div class="wt-col-11 wt-col-lg-12 wt-subtitle-2 wt-subtitle-2_theme_dark">
                            The integrated team environment
                        </div>
                    </div>


                                            offset-24 и theme-dark
                                            ясно-понятнго
                                            Ответить

                                            • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                                              А теперь представь, как выглядит CSS-файл, если где-то нужны смещения 23, 22, 21, 20, 25, 26, 27, 28 и т. д.
                                              Ответить

                                              • ava guest # 0 ⇈

                                                Так скомпилированный LESS или SCSS же

                                                руками не пишут же, циклом небось генерирувается
                                                Ответить

                                                • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

                                                  Я где-то даже приводил реальные примеры, как писать LESS или SCSS с циклом.

                                                  Меня смущает результат. Это типа как кэш маленьких целочисленных значений в «Йаже». Свалка ненужных объектов про запас.
                                                  Ответить

                                                  • ava guest # 0 ⇈

                                                    Так и есть. Но всем похуй. Ну будет весить твой css 100 килобайт. Ну сожмет его gzip, будет он еще меньше весить.
                                                    Всем похуй же
                                                    Ответить

                                        • ava CHayT # Ссылка на оригинал 0 ⇈

                                          XSLT -- это младший брат лиспа, который носит деловой костюм, но при этом злоупотребляет героином. Как же всё-таки хорошо, что он помер.
                                          Ответить

                              • vistefan vistefan # 0 ⇈

                                Коллеги, не кажется ли вам, что в какой-то момент веб тотально свернул не туда?

                                Такое ощущение, что раньше, грубо сказать, сайт был как книга: он что-то сообщал нам в виде гипертекста.

                                Затем, словно бы пришёл какой-то злой волшебник, и показал такой трюк с книгой: если нарисовать на углу каждой странички маленькую картинку и быстро-быстро пролистать, то получится короткий мультик.

                                Да, это прикольно. Но не более чем!

                                Как же могла такая свистоперделка внезапно стать главным, и уже почти единственным (sic) форматом в вебе?

                                Что за хуйня, какие в пизду веб-приложения, порталы? Где сайты-то блять? Где гипертекст нахуй? На википедии одной остался.

                                И теперь это говно, пользоваться которым — примерно то же самое, что за каким-то хуем писать книгу из макарон-буковок, которые совсем не для того сделаны (ни книга не выигрывает, ни макароны), лезет на десткоп.

                                Товарищи, обращаюсь ко всем людям доброй воли. Что будем делать? Может какие-то декреты издадим? Борманд был прав, надо запрещать нахуй PHP по конституции. Давайте попробуем подсидеть начальство, займём управленческие позиции в госкорпорациях и под видом импортозамещения и защиты от иностранных агентов протолкнём трушные принципи свободного софта и адекватного веба на нашей Родине?

                                Например запретить электрон как принадлежащий microsoft'у неоднократно пиздившему данные наших соотечественников и не соблюдающему какие-нибудь ебанутые требования министерства обороны. Более того, в конституции написано, что главное — это дети. Линукс учит детей и делает их умными, а потом они становятся славными русскими хакерами, и прославляют отчизну. А чему учит майкрософт? Играть в игры, в половине из которых надо убивать русских!
                                Ответить

                                • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                  >надо запрещать нахуй PHP по конституции
                                  >запретить электрон как принадлежащий microsoft'у

                                  Русне бы только всё запрещать.
                                  Именно поэтому я за легалайз вообще всего. И ПХП, и «электрона», и легких наркотиков, и гей-копрофилии, и тормозных бесполезных «говносайтов», и детского порно, и продукции Яббл наконец.

                                  >Играть в игры, в половине из которых надо убивать русских!

                                  Смерть ванючей русьне!
                                  Ответить

                                  • ava guest # 0 ⇈

                                    >И ПХП, и «электрона», и легких наркотиков, и гей-копрофилии,

                                    Зачем дублировать?
                                    Ответить

                                      • ava MAKAKA # Ссылка на оригинал 0 ⇈

                                        Яблу многое можно простить за отсутствие ГЦ в свифте и обжси.

                                        Теперь когда питух кукаречет, что дескать языки без ГЦ это пиздец сложно, ему можно тыкать в ебло миллионом приложений под гейфон, написанных обычными питухами
                                        Ответить

                                        • ava Desktop # Ссылка на оригинал 0 ⇈

                                          Сегодня внутри телефона столько мозгов, что можно вкорячить и ГЦ и никто и разницы не заметит.

                                          Спасибо надо говорить не за отсутствие ГЦ, а за ARC. Распиханные руками retain'ы и release'ы в обжективсишных портянках это минное поле почище крестов.

                                          А вообще на макоси был ГЦ и от него отказались примерно после внедрения ARC.

                                          Is GC (Garbage Collection) deprecated on the Mac?

                                          Garbage collection is deprecated in OS X Mountain Lion v10.8, and will be removed in a future version of OS X. Automatic Reference Counting is the recommended replacement technology. To aid in migrating existing applications, the ARC migration tool in Xcode 4.3 and later supports migration of garbage collected OS X applications to ARC.
                                          Ответить

                                          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                            >Сегодня внутри телефона столько мозгов, что можно вкорячить и ГЦ и никто и разницы не заметит

                                            «Андроид» тому подтверждение.
                                            Ответить

                                          • ava MAKAKA # Ссылка на оригинал 0 ⇈

                                            GC это не только память: это еще и ненужные действия, и что самое мерзкое -- недетерминированное уничтожение объекта: отсюда у нас все эти клозаблы диспозаблы.

                                            С RC их нет, а с ARC нет еще и бойлерплейта
                                            Ответить

                                        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                          а все праильна
                                          русня это ж не люди, а пидарасы, хуесосы и говно государства райпсейскага
                                          их при рождении высирают, а когда русьячьокь подыхает, то его, как говно, прикапывают
                                          все правильно
                                          будь Моя воля, Я б на месте каклов живую русню в сортирах топил бы спецом, и в навозные ямы, где-нть там возле ферм, скотобоен всяких, где говнища побольше, вот очистные крупных городов еще тоже очень хорошее место, вот туда вот дохлую мразоту сбрасывал бы
                                          говно к говну так сказать ггг
                                          Ответить

  • ava guest # 0

    Некто имеет файл с телефонами пользователей в таком форматеЖ
    User1
122-16-96
User2
17-66-29
    .

    С помощью какого языка его можно легко считать?
    Разумеется, с помощью 
    #!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

open my $file, '<', '1.txt';
my %users = map {chomp && $_} <$file>;
print $users{User1}; # Выведет телефон
close $file;

    Где еще так можно?
    Ответить

  • ava guest # 0

    Друзья, пользуйтесь на здоровье!
    Добавление поддержки utf и парсинг JSONа с ответом оставляю вам в качестве домашнего задания.

    Гомосексуализм Вордпресс, отдающий 200 в случае ошибки, я обсуждать не хочу
    #!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

use LWP::UserAgent;
use HTTP::Request::Common qw{POST GET};

use constant COMMENT => 26799;
use constant BASE_URL => 'https://govnokod.xyz/';

my $ua = LWP::UserAgent->new((agent => 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Mobile Safari/537.36'));
my ($nonce) = $ua->request(GET(BASE_URL . '_' . COMMENT . '/'))->as_string =~ /ajax_nonce=([a-z0-9]+)"/;
my $request = POST(BASE_URL . "wp-admin/admin-ajax.php?action=add-comment&_ajax_nonce=$nonce", {
    'comment'         => ':))',
    'comment_post_ID' => COMMENT,
    '_ajax_nonce'     => $nonce
});
print $ua->request($request)->as_string();
    Ответить

    • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

      Я считаю, что запрет отдавать 200 в случае ошибки, а также запрет отдавать многомегабайтную страницу в случае ошибки (с любым кодом) нужно внести в Конституцию.
      Ответить

      • ava guest # 0 ⇈

        Он отдает JSON c error, но с 200. Проверь, у тебя же есть перл.
        Ответить

        • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

          А это вроде обычное дело для «AJAX».

          Код 404 отдаётся, если у тебя «API endpoint URL» написано с ашипкой.
          Код 301/302 отдаётся, если endpoint куда-то переехал.
          Код 500 отдаётся, если сервер упал.

          Если же endpoint указан верно, сервер не лежит, то возвращается 200. Если ошибка заключается в том, что ты указал неправильный номер поста, то расшифровка ошибки будет внутри JSON, а не в коде ответа HTTP. Протокол HTTP не обязан ничего знать о твоём API.

          Какой код ты хотел получать в случае ошибки?
          Ответить

          • ava guest # 0 ⇈

            500, наверное. Зачем мне читать json?
            Ответить

    • ava guest # 0 ⇈

      кто знает, почему важно писать ($nonce) именно в скобках -- тот знает основы перл:)
      Ответить

      • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

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

        • ava MAKAKA # Ссылка на оригинал 0 ⇈

          Почти:) Регулярка (на самом деле это оператор "m", который можно не писать ~=m// есть ~=//) смотрит на контекст. Если от нее ожидают список -- она возвращает список находок. Если скаляр -- она возвращает 1 (то-есть true) если что-то нашла, иначе ничего (то-есть false).

          Если слева от приравнивания массив (@foo) или хеш (%foo) это списковый контекст.
          Если скаляр ($foo) то скалярный.

          Скобочки организуют списковый (листовой) контекст, раскладывая каждое значение в переменную:

          ($a, $b) = (1,2);

          В нашем случае я организовал списковый контекст, и положил значение в первую переменную.
          Ответить

        • ava guest # 0 ⇈

          еще примеров
          my %users = "user is petuz" =~ m/(.+) is (.+)/; # список (user, petuz) превратится в хеш (user => petuz)
print $users{'user'};                           # petuz

my @findings = "a,b,c" =~ /(.),(.),(.)/; # список (a,b,c)
print join '-', @findings;               #a-b-c

my ($job, $title) = "joe programmer" =~ /([^ ]+) ([^ ]+)/;
print $title; # programmer

my $found = "joe programmer" =~ /([^ ]+) ([^ ]+)/;
print $found; #1

print "joe programmer" =~ /([^ ]+) ([^ ]+)/;        #joeprogrammer -- print организовал листовой контекст, и схлопнул список
print scalar "joe programmer" =~ /([^ ]+) ([^ ]+)/; #1 -- зафоршен скалярный контекст


          В функции определить конекст можно через ``wantarray``
          sub foo {
    wantarray ? qw/Foo bar buz/ : 42;
}

print join ',', foo; #Foo, bar, buz
print scalar foo;    #42
          Ответить

          • ava guest # 0 ⇈

            острологи объявили неделю течки по перлу?
            Ответить

        • ava guest # 0 ⇈

          Массив в скалярном контексте возвращает количество элементов.
          Известный тебе оператор организует справа от себя списковый контекст, а слева -- скалярный
          my $num_of_a = () = "a bad day" =~ /(a)/g; # организуем справа списковый контекст, а слева скалярный (получим кол-во элементов)
print $num_of_a;                           # 3
          Ответить

      • ava XYPO3BO3 # Ссылка на оригинал 0 ⇈

        Перевожу на «PHP»:
        <?php

$mosiv = array(0 => 'Kukareku');

list($scalar) = $mosiv;

var_export($scalar);


        https://ideone.com/lIF222

        В этом реальном примере list() в левой части раздирает массив на элементы.
        Ответить

        • ava guest # 0 ⇈

          Но это же только для массивов. А можно сделать свою функцию как в примере с wantarray ?
          Ответить

          • ava TEH3OPHblu_nemyx # Ссылка на оригинал 0 ⇈

            В «Перле» полная противоположность той перегрузке, которая бывает в «крестах» и во многих популярных языках программирования.

            В «PHP» нельзя узнать контекст, в котором будет вызвана функция. Однако, можно объявить класс с магическими методами. Во-первых, можно реализовать интерфейс ArrayAccess, чтобы экземпляр класса вёл себя как массив, если к нему прилепить квадратные скобки:
            https://www.php.net/manual/ru/class.arrayaccess.php

            Ну то есть если $pituhi — экземпляр класса, который implements ArrayAccess, то можно писать $pituhi[42].

            Во-вторых, можно реализовать интерфейс ArrayIterator, чтобы бегать по нему форичем:
            https://www.php.net/manual/ru/class.arrayiterator.php

            То есть если $pituhi — экземпляр класса, который implements ArrayIterator, то можно foreach($pituhi as $pituh) {}.

            В-третьих, можно реализовать магический метод __toString(), чтобы класс возвращал строку в «скалярном контексте»:
            https://www.php.net/manual/ru/language.oop5.magic.php

            То есть если $pituhi — экземпляр класса с методом __toString(), то можно echo $pituhi.

            Увы, только строку. Магических методов __toInt() и подобных в «PHP» нет. То ли дело «кресты», в которых можно перегрузить операторы приведения типа.

            Можно реализовать интерфейс Countable, чтобы count($pituhi) возвращала количество питухов.

            А ещё можно реализовать магический метод __invoke(), чтобы использовать экземпляр в «функциональном контексте».

            Например, если $pituhi — экземпляр класса с методом __invoke(), то можно сделать вызов $pituhi('кококо'). Это типа перегрузки оператора () в «крестах».
            Ответить

            • ava TEH3OPHblu_nemyx # Ссылка на оригинал 0 ⇈

              Итого: в «PHP» функция может вернуть хитрый объект, который реализует метод __toString, чтобы его можно было использовать в «строковом контексте», интерфейсы ArrayAccess и ArrayIterator, чтобы его можно было использовать в «списковом контексте», интерфейс Countable для функции count и метод __invoke для «процедурного контекста».
              Ответить

              • ava guest # 0 ⇈

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

                Но только у перла от контекста зависит не сам объект, а возвращающая его функция или оператор.

                В perldoc perldata написано, что английские слова тоже меняются от контекста (например, слово fish) и потому так сделано в перле. Кстати, сигилы (%,$,@ итд) тоже похожи на английский: $ это "the", а @ и % это "those", а & это "do". и как do" он опционален.

                Сразу видно, что перл для умных, а Ларри лингвист
                Ответить

  • ava guest # 0

    Ну вот доработанная версия Говноклиента. Теперь с объетно-оринтеированным подходом
    #!/usr/bin/perl
use strict;
use Encode::Locale;
use warnings FATAL => 'all';
use utf8;
use LWP::UserAgent;
binmode($_, ":encoding(console_out)") for qw/STDOUT STDERR/;

package Govnoclient {
    use JSON;
    use constant AGENT => 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Mobile Safari/537.36';
    use HTTP::Request::Common qw{POST};
    sub new {
        my ($class, $url, $comment) = @_;
        my $ua = LWP::UserAgent->new(agent => AGENT);
        my ($nonce) = $ua->get("$url/_$comment")->as_string =~ /ajax_nonce=([a-z0-9]+)"/;
        bless {
            url     => $url,
            ua      => $ua,
            nonce   => $nonce,
            comment => $comment
        }, $class;
    }
    sub say {
        my ($this, $phrase) = @_;
        my $url = $this->{url} . '/wp-admin/admin-ajax.php?action=add-comment&_ajax_nonce=' . $this->{nonce};
        my $params = {
            'comment'         => $phrase,
            'comment_post_ID' => $this->{comment},
            '_ajax_nonce'     => $this->{nonce}
        };
        my $response = $this->{ua}->post($url, $params);
        $response->is_success or die $response->status_line;
        my $content = $response->decoded_content;
        return if ($content !~ /error/);
        my $result = decode_json $content;
        die $result->{'message'};
    }
};
1;

package main;
# Your code starts here
my $client = Govnoclient->new('https://govnokod.xyz', 26237);

foreach my $what (qw/сослик услик паукан/) {
    $client->say("$what. Отправлено с Perl.");
}


    Кто поймет про binmode -- тот значит понимает про кодировки в перд)
    Ответить

  • ava guest # 0

    лядь, это слишком хорошо, чтоб быть правдой
    #!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use Smart::Comments;

for(my $i = 0; $i < 5; $i++) { ### Initialzing....
        sleep 1;
}

for(my $i = 0; $i < 5; $i++) { ### Preparing...
        sleep 1;
}


    https://metacpan.org/pod/Smart::Comments
    Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      Can't locate Smart/Comments.pm in @INC (you may need to install the Smart::Comments module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.28.1 /usr/local/share/perl/5.28.1

      Так это ж не из коробки.

      Но выглядит оче пиздато.
      Особенно ### Progress: 0... 100


      In each case, the module animates the comment, causing the dots to extend from the left text, reaching the right text on the last iteration. For "open ended" loops (like while and C-style for loops), the dots will never reach the right text and their progress slows down as the number of iterations increases.
      Ответить

  • ava guest # 0 

    perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [number]


    трудно поверить, но эта штука проверяет число на простоту.
    1 x shift повторяет единицу число раз
    затем, результат проверяется на несовпадение с релурякой
    ахаха
    Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      Лет 15 назад я читал, что перловые регулярки тьюринг-полны благодаря бектрекингу и рекурсивности. Но это не точно.
      Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      Как и всё гениальное просто.

      > /^1?$|^(11+?)\1+$/
      Здесь у нас склеено 2 регэкса.

      Первый отсекает единицу ^1?$ т.к. она не является простым.

      А второй матчит на простое число
      ^(11+?)\1+$
      Мы берём строку с двумя и более единицами и lazy-матчингом проверяем может ли она повториться целое число раз — \1+

      \1 — выражение в первых скобках.
      Ответить

      • ava Desktop # Ссылка на оригинал 0 ⇈

        > Мы берём строку с двумя и более единицами и lazy-матчингом проверяем может ли она повториться целое число раз

        – это вореции?
        Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      Продолжу капитанство:
      !~ в пёрле означает инверсию совпадения с регэксом, которая в свою очередь записывается как =~

      Сама регулярка, как отмечено выше, проверяет является ли строка единицей ИЛИ состоит из целого числа подстрок вида 11+.

      Забавно что ^(11+?)\1+$ прекрасно работает и в жадном режиме, то есть без ?

      А lazy является всего-лишь оптимизацией.
      Ответить

      • ava 3.14159265 # Ссылка на оригинал 0 ⇈

        Забавно так же что ? то ускоряет тест в разы, то замедляет его.
        165001 - Разница около 10%

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 165001
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.
Prime

real	0m1.283s
user	0m1.261s
sys	0m0.014s

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 165001
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.
Prime

real	0m1.365s
user	0m1.356s
sys	0m0.003s

165003 - lazy в 3 раза медленее

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 165003
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

real	0m1.034s
user	0m1.017s
sys	0m0.018s

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 165003
real	0m0.301s
user	0m0.290s
sys	0m0.010s

165005 - lazy в 4 раза быстрее

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 165005
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

real	0m0.122s
user	0m0.113s
sys	0m0.009s

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 165005

real	0m0.518s
user	0m0.509s
sys	0m0.009s
        Ответить

        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

          На числах больше 65536 пёрл выдаёт ворнинг, но считает почти всегда правильно.
          Только изредка промахиваясь.

          165073 — простое. Но регэкс так не считает.
          $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 165073
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

real	0m0.036s
user	0m0.032s
sys	0m0.004s

          Заметно так же что время выполнения очень небольшое.
          При этом код ответа всегда 0.
          Ответить

          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

            >165073 — простое. Но регэкс так не считает.
            Отэта я лоханулся.

            Я сделал кривой тест, который перебирал числа до 300. Для диапазона [2;65537] этого было достаточно. Для 165073 нет, т.к. делитель 383.
            Ответить

        • ava bormand # Ссылка на оригинал 0 ⇈

          Странно, что на 165003 вопросик так долго работает. Там же тройка в делителях, должно почти сразу заматчить на 111. Видимо какая-то особенность перебора в перловых регулярках, о которой я не знаю.

          З.Ы. Походу тройка сорвалась из-за subexpression recursion limit, поэтому пришлось перебирать до второго множителя, а он аж 55001.

          На 165005 пятёрка точно так же отлетела по лимиту, но быстро нашлось 61. А жадному перебору пришлось копать с конца аж до 541. Поэтому здесь жадный перебор проиграл.
          Ответить

          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

            Удивительный код:
            0% branch misprediction. 0% cache miss
            Performance counter stats for 'perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 1165139':

      17015,696277      cpu-clock (msec)          #    1,000 CPUs utilized          
    14 815 266 939      branches                  #  870,682 M/sec                    (36,81%)
        13 169 260      branch-misses             #    0,09% of all branches          (42,08%)
           189 341      cache-misses              #    0,003 % of all cache refs      (42,08%)
     6 739 590 559      cache-references          #  396,081 M/sec                    (42,08%)
    62 826 558 696      cpu-cycles                #    3,692 GHz                      (42,08%)
   141 850 740 540      instructions              #    2,26  insn per cycle           (47,34%)
    59 435 188 197      ref-cycles                # 3492,962 M/sec                    (52,61%)
                 0      alignment-faults          #    0,000 K/sec                  
             1 697      page-faults               #    0,100 K/sec                  
    27 179 282 229      uops_issued.stall_cycles  # 1597,306 M/sec                    (52,61%)
    26 990 197 686      resource_stalls.any       # 1586,194 M/sec                    (52,63%)
    13 575 040 916      L1-dcache-load-misses     #   19,59% of all L1-dcache hits    (52,65%)
    69 287 657 652      L1-dcache-loads           # 4071,985 M/sec                    (52,66%)
           120 891      LLC-load-misses           #    0,00% of all LL-cache hits     (52,66%)
     6 739 283 765      LLC-loads                 #  396,063 M/sec                    (52,66%)
            76 562      LLC-store-misses          #    0,004 M/sec                    (10,53%)
         1 711 272      LLC-stores                #    0,101 M/sec                    (10,53%)

            Тест на тупую, грубую силу.
            Ответить

            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

              То есть оно ждёт пока из L2/L3 кеша подтянется ещё больше единичек.
              _
    28 609 758 607      cycle_activity.cycles_l1d_pending # 1702,178 M/sec                    (21,61%)
    55 467 959 473      cycle_activity.cycles_l2_pending # 3300,145 M/sec                    (21,59%)
    62 032 007 742      cycle_activity.cycles_ldm_pending # 3690,683 M/sec                    (21,57%)
     3 598 789 774      cycle_activity.cycles_no_execute #  214,115 M/sec                    (21,54%)
     2 729 009 407      cycle_activity.stalls_l1d_pending #  162,366 M/sec                    (10,76%)
    13 824 770 304      cycle_activity.stalls_l2_pending #  822,524 M/sec                    (13,45%)
    23 044 685 962      cycle_activity.stalls_ldm_pending # 1371,076 M/sec                    (16,14%)
        21 719 141      ild_stall.iq_full         #    1,292 M/sec                    (18,82%)
            12 634      ild_stall.lcp             #    0,752 K/sec                    (21,51%)
    26 250 234 675      resource_stalls.any       # 1561,795 M/sec                    (21,51%)
        36 824 152      resource_stalls.rob       #    2,191 M/sec                    (21,51%)
    26 439 449 946      uops_issued.core_stall_cycles # 1573,053 M/sec                    (21,51%)
              Ответить

          • ava gost # Ссылка на оригинал 0 ⇈

            > Походу тройка сорвалась из-за subexpression recursion limit
            Кстати, а разве после вылета в лимит «Перл» не перестаёт считать оставшееся? Как-то странно получается.
            Пи, проверь большое простое число — оно вообще простоту-то проверяет, когда вываливается в «Complex regular subexpression recursion limit»?
            Ответить

            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

              >Пи, проверь большое простое число — оно вообще простоту-то проверяет
              1165139 достаточно большое?
              Просто дальше идёт квадратичная питушня на полчаса.

              [0] $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 1165139
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.
Prime


              https://govnokod.ru/26800#comment559582
              Ответить

                • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                  >Пи, проверь большое простое число — оно вообще простоту-то проверяет, когда вываливается в «Complex regular subexpression recursion limit»?

                  Досчитало 5165191
                  $ time perf stat -e $EVENTS perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 5165191
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.
Prime

 Performance counter stats for 'perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 5165191':

    2079517,176142      cpu-clock (msec)          #    0,840 CPUs utilized          
   274 267 611 244      branches                  #  131,890 M/sec                    (21,63%)
        93 974 602      branch-misses             #    0,03% of all branches          (21,63%)
    61 736 335 661      cache-misses              #   27,163 % of all cache refs      (21,63%)
   227 283 416 540      cache-references          #  109,296 M/sec                    (21,63%)
 7 638 165 967 233      cpu-cycles                #    3,673 GHz                      (21,62%)
 2 711 109 980 628      instructions              #    0,35  insn per cycle           (24,32%)

    2474,145686595 seconds time elapsed


real	41m14.605s
user	34m39.382s
sys	0m0.920s
                  Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      Йажа работает в десятки раз медленее пёрла
      jshell> "1".repeat(1165139).matches("^(11+)\\1+$")

      Какой компилируемый язык )))
      Ответить

      • ava 3.14159265 # Ссылка на оригинал 0 ⇈

        Нода раз в 10 медленее пёрла
        [0]$ time node -e '"1".repeat(165139).match("^(11+)\\1+$")'

real	0m2.503s
user	0m2.499s
sys	0m0.004s

 [0] $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 165139

real	0m0.255s
user	0m0.255s
sys	0m0.000s
        1165139
        [0] $ time node -e '"1".repeat(1165139).match("^(11+)\\1+$")'
real	2m47.556s
user	2m47.542s
sys	0m0.008s

 [0] $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 1165139
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.
Prime

real	0m22.741s
user	0m22.728s
sys	0m0.012s
        Ответить

        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

          PHP отрабатывает на больших числах на порядки быстрее чем все остальные *

          $ time /usr/bin/php7.3 -r "echo(preg_match('/^(11+?)\1+$/', str_repeat("1",1165139), $matches));"

real	0m0.057s
user	0m0.032s
sys	0m0.023s

$ time /usr/bin/php7.3 -r "echo(preg_match('/^(11+?)\1+$/', str_repeat("1",49139), $matches));"
0
real	0m1.357s
user	0m1.331s
sys	0m0.025s

          * после 49 тысяч оно просто перестаёт выводить результат
          но всё-равно раза 2 в быстрее чем «йажа» и «йажасцрипт»
          Ответить

            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

              Какой язык?

              $ time /usr/bin/php7.3 -r "echo(preg_match('/^(11+?)\1+$/', str_repeat("1",167281), $matches));"

real	0m0.055s
user	0m0.030s
sys	0m0.025s

$ time node -e '"1".repeat(167281).match("^(11+)\\1+$")'

real	0m14.929s
user	0m14.767s
sys	0m0.109s

$ time node -e '"1".repeat(167281).match("^(11+?)\\1+$")'

real	0m1.663s
user	0m1.594s
sys	0m0.074s

$ time  perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 167281
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

real	0m0.180s
user	0m0.156s
sys	0m0.025s

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 167281

real	0m1.127s
user	0m1.122s
sys	0m0.005s

              *Все результаты для «PHP» было получены на слабой арм-машине.
              Для консистентности в этом посте я запускал всё на ней.
              Ответить

              • ava gost # Ссылка на оригинал 0 ⇈

                Любопытно. Можно ещё поэкспериментировать с разными видами чисел. 167281 — это было 409*409.
                Ответить

                • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                  Реквестирую код на питухе.

                  Кстати там из-за квадратичной питушни числа сильно выше 10 миллионов не проверишь.
                  Пёрлотест на (11 165 139) у меня на штеуде работал больше часа.
                  Ответить

                  • ava gost # Ссылка на оригинал 0 ⇈ 

                    python -c "import re;re.match(r'^(11+?)\1+$', '1' * 167281) is None"

                    У меня на машине в ~3 раза медленнее «Перла» (55 миллисекунд против 155). Но тут ещё проблема в том, что «import re» читает мудуль с диска, что плохо сказывается на производительности.

                    Без «?» тормозит совсем неадекватно.
                    Ответить

                    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                      >Но тут ещё проблема в том, что «import re» читает мудуль с диска
                      На greedy c 35 секундами это не заметно

                      Питух слился как лалка, но с ? он ноду делает.
                      Правда мы не знаем сколько в жсухе занимает прогрев интепретатора и его конпеляция.
                      $ time python -c "import re;re.match(r'^(11+?)\1+$', '1' * 167281) is None"

real	0m0.387s
user	0m0.324s
sys	0m0.036s

$ time python -c "import re;re.match(r'^(11+)\1+$', '1' * 167281) is None"

real	0m35.876s
user	0m35.834s
sys	0m0.022s


                      Машина та же что и здесь:
                      https://govnokod.ru/26800#comment559599
                      Ответить

                      • ava gost # Ссылка на оригинал 0 ⇈

                        Проверил: импорт не тормозит (прогретый, во всяком случае), «Питон» просто сливается как лалка.
                        PS C:\Users\gost> Measure-Command {python -c "import re"}


Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 0
Milliseconds      : 47
Ticks             : 476564
TotalDays         : 5,51578703703704E-07
TotalHours        : 1,32378888888889E-05
TotalMinutes      : 0,000794273333333333
TotalSeconds      : 0,0476564
TotalMilliseconds : 47,6564



PS C:\Users\gost> Measure-Command {python -c "# nop"}


Days              : 0
Hours             : 0
Minutes           : 0
Seconds           : 0
Milliseconds      : 48
Ticks             : 482257
TotalDays         : 5,58167824074074E-07
TotalHours        : 1,33960277777778E-05
TotalMinutes      : 0,000803761666666667
TotalSeconds      : 0,0482257
TotalMilliseconds : 48,2257
                        Ответить

                        • vistefan vistefan # 0 ⇈

                          Чем ваще вызваны такие разницы от языка к языку? У них настолько разные реализации регулярок?
                          Ответить

                          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                            Пёрл всегда считался стандартом де-факто для регулярок. Тут ничего удивительного.

                            Интересно и в пёрле, и в пхп, и в питухе используются сишные биндинги. В принципе нода с пхп идут нос-в-нос.

                            Только в Йажа реализация не нативная, а йажевская через java.util.Pattern.

                            Емнип в крестах регэксы как-то хуёво сделаны. Потому их я даже не стал бенчить. А буст влом ставить.
                            Ответить

                            • vistefan vistefan # 0 ⇈

                              > Причём удивительно что и в пёрле, и в пхп, и в питухе используются сишные биндинги

                              И я про то же, чо за дела?

                              Каждый забиндил к себе разные сишные реализации перлового де-факто?
                              Ответить

                          • ava gost # Ссылка на оригинал 0 ⇈

                            Ну да, каждый своё пилит. Плюс тут весьма специфическая задача с очень «тяжёлым» паттерном («квадратичный» бэктрекинг).

                            Ну а рагулярный движок «Перла» совершенствовали десятилетиями, у него это основной инструмент. Неудивительно, что он даёт пососать остальной скриптушне.
                            Ответить

                            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                              Интересно что когда строка больше 10 метров (не влазит в L3), то перл тупит даже на простеньких делителях.
                              4091*4099

                              $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 16769009
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

real	0m8.783s
user	0m8.775s
sys	0m0.008s


                              Питух тупит клювом
                              $ time python -c "import re;print(re.match(r'^(11+?)\1+$', '1' * 16769009) is None)"
False

real	1m55.101s
user	1m54.856s
sys	0m0.244s

                              Нода наконец-то разваливается

                              $ time node -e 'console.log("1".repeat(16769009).match("^(11+?)\\1+$")!=null)'
[eval]:1
console.log("1".repeat(16769009).match("^(11+?)\\1+$")!=null)
                                 ^

RangeError: Maximum call stack size exceeded
    at String.match (native)
    at [eval]:1:34
    at Object.exports.runInThisContext (vm.js:54:17)
    at Object.<anonymous> ([eval]-wrapper:6:22)
    at Module._compile (module.js:410:26)
    at node.js:578:27
    at nextTickCallbackWith0Args (node.js:419:9)
    at process._tickCallback (node.js:348:13)

real	0m0.133s
user	0m0.109s
sys	0m0.024s
                              Ответить

                              • ava gost # Ссылка на оригинал 0 ⇈

                                > даже на простеньких делителях. 4091*4099
                                Это, КМК, наоборот worst-case для непростых чисел. Интерпретатору же нужно будет последовательно заматчить все последовательности единиц длиной от 2 до 4091. Например, 16769008 матчится на порядок быстрее.

                                UPD: А полный worst-case — это, по идее, простые числа: 16769017 ты, скорее всего, не дождёшься.

                                Кстати, я за «WolframAlpha»: 
                                https://www.wolframalpha.com/input/?i=first+prime+number+greater+than+16769009
                                Ответить

                                • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                  >наоборот worst-case для непростых чисел
                                  Да. Там выше 10 миллионов уже пиздец.

                                  > Кстати там из-за квадратичной питушни числа сильно выше 10 миллионов не проверишь.
                                  > Пёрлотест на (11 165 139) у меня на штеуде работал больше часа.

                                  >А полный worst-case — это, по идее, простые числа: 16769017 ты, скорее всего, не дождёшься.
                                  Да.
                                  Ответить

                                • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                  >Это, КМК, наоборот worst-case для непростых чисел.
                                  Оказывается нет.

                                  Это неплохой кейс.

                                  Чётное 100160062 тупит гораздо больше чем 100160063=10007*10009

                                  Думаю здесь валидно объяснение борманда.

                                  >тройка сорвалась из-за subexpression recursion limit, поэтому пришлось перебирать до второго множителя, а он аж 55001.
                                  Ответить

                                  • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                    100160062 оказалось очень «удачным».
                                    Это простое 50080031 умноженное на 2.

                                    Сейчас пробую там где много мелких делителей
                                    4*5*7*11*13*5003 = 100160060

                                    $ time perf stat -e $EVENTS perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 100160060
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

 Performance counter stats for 'perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 100160060':

      43081,010456      cpu-clock (msec)          #    1,000 CPUs utilized          
    18 959 550 242      branches                  #  440,091 M/sec                    (21,62%)
       143 147 111      branch-misses             #    0,76% of all branches          (21,63%)
     1 893 880 046      cache-misses              #   57,505 % of all cache refs      (21,64%)
     3 293 399 449      cache-references          #   76,447 M/sec                    (21,65%)
   158 688 007 127      cpu-cycles                #    3,683 GHz                      (21,65%)
   129 521 338 377      instructions              #    0,82  insn per cycle           (24,35%)

      43,081747676 seconds time elapsed

real	0m43.108s
user	0m43.034s
sys	0m0.073s
                                    Ответить

                                    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                      2**27= 134217728
                                      Жадный алгоритм быстр
                                      $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 134217728

real	0m2.636s
user	0m2.596s
sys	0m0.040s


                                      Ленивый тупит
                                      $ time perf stat -e $EVENTS perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 134217728
real	0m46.975s
user	0m46.913s
sys	0m0.061s
                                      Ответить

                            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                              Пыха даже в жадном режиме не хочет матчить больше 2х миллионов. Ошибок ЧСХ нет.
                              $ time /usr/bin/php7.3 -r "echo(preg_match('/^(11+)\1+$/', str_repeat("1",2001223), $matches));"

real	0m0.065s
user	0m0.037s
sys	0m0.029s


                              От миллиона до двух она тупит, но ничего не выдает
                              $ time /usr/bin/php7.3 -r "echo(preg_match('/^(11+)\1+$/', str_repeat("1",1981223), $matches));"

real	0m8.490s
user	0m8.405s
sys	0m0.057s

                              А до миллиона работает

                              $ time /usr/bin/php7.3 -r "echo(preg_match('/^(11+)\1+$/', str_repeat("1",981225), $matches));"
1
real	1m57.572s
user	1m56.635s
sys	0m0.141s
                              Ответить

                        • ava guest # 0 ⇈

                          >Measure-Command
                          Качется, что это говёная команда: она измеряет много лишнего, не?
                          Сравни с ptime
                          Ответить

                          • ava gost # Ссылка на оригинал 0 ⇈

                            Не знаю, я просто загуглил и потёк. Вроде выдаёт адекватные результаты.
                            Ответить

                • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                  Штеуд
                  1018081=1009²

                  [0] $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 1018081
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

real	0m0.201s
user	0m0.193s
sys	0m0.008s
 [0] $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 1018081

real	0m12.590s
user	0m12.590s
sys	0m0.000s


                  1111261 = 1013 *1093
                  [0] $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 1111261
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

real	0m0.216s
user	0m0.212s
sys	0m0.004s
 [0] $ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 1111261

real	0m15.051s
user	0m15.047s
sys	0m0.004s
                  Ответить

                  • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                    Штеуд

                    На больших числах Питух сливается даже ноде.
                    $ time python -c "import re;print(re.match(r'^(11+?)\1+$', '1' * 1111261) is None)"
False

real	0m2.026s
user	0m1.993s
sys	0m0.008s

$ time node -e 'console.log("1".repeat(1111261).match("^(11+?)\\1+$")!=null)'
true

real	0m0.518s
user	0m0.502s
sys	0m0.016s
                    Ответить

            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

              Ага, PHP всё-таки выдаёт корректные результаты для больших чисел, если не использовать ?
              По скорости получается почти как жадная нода.
              И в 13 раз медленее чем pёrl

              $ time /usr/bin/php7.3 -r "echo(preg_match('/^(11+)\1+$/', str_repeat("1",167281), $matches));"
1

real	0m15.063s
user	0m15.024s
sys	0m0.035s
              Ответить

  • ava guest # 0

    стейт хранится привязанным к скаляру, лол
    #!/usr/bin/perl
use v5.10;
use strict;
use warnings FATAL => 'all';

my $CODE = 'here we go again';


while ($CODE =~ m/\G(\p{Word}+)\s+/gc) {
	say "Word found at:".(pos $CODE);
}
    Ответить

  • ava guest # 0

    Мало кто знает, но в перле всё передается по ссылке.
    #!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use v5.10;

sub capituz {
    tr/uz/UZ/ foreach @_;
}


my $name = 'petuz';
say $name; #petuz
capituz $name;
say $name; #petUZ


    Кстати, зацените божественный оператор tr, известный каждому униксоиду
    Ответить

    • vistefan vistefan # 0 ⇈

      А с точки зрения стиля тоже так принято писать, или ты просто показываешь, что так можно? Так-то говно процедурное сайдэффектное.
      Ответить

      • ava MAKAKA # Ссылка на оригинал 0 ⇈

        А что такого?

        Ты просто не привык, что "изменяют" строку. А если бы я отдал туда массив, и его поменяли, было бы лучше?
        Ответить

        • vistefan vistefan # 0 ⇈

          Я привык ко всему, я на поцкале долго писал чисто процедурно, передавая данные по ссылке если надо, и знаю цимес в мутабл данных. Но чисто стилистически, у тебя везде будут такие процедуры, и так будет написан весь скрипт/проект? Если да - заебись, если же ты начнёшь комбинировать подход, когда процедуры с сайд эффектами замешаны с чистыми функциями с возвращаемым значением, или, того хуже, функциями у которых есть и значение и сайд эффекты, стилистически получится говнокод.
          Ответить

        • vistefan vistefan # 0 ⇈

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

      • ava MAKAKA # Ссылка на оригинал 0 ⇈

        вот такой же код тебе нормаелн?
        use strict;
use warnings FATAL => 'all';

my @nums = (1 .. 200000);

sub multiply_evens_zachem_zachem {
    for (my $i = 0; $i < @_; $i++) {
        $_[$i] *= 2 unless $_[$i] % 2;
    }
}

multiply_evens_zachem_zachem @nums;
print join ',', @nums[0 .. 30];
        Ответить

  • ava 3.14159265 # Ссылка на оригинал 0

    На числах выше 8М с полного кеш хита, начинается тотальный кеш-мисс.

    IPC резко падает с 2.2 до 0.9, больше чем в 2 раза.

    10007 * 10009 = 100160063
    $ time perf stat -e $EVENTS perl -wle 'print "Prime" if (1 x shift) !~ /^(11+?)\1+$/' 100160063
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.

 Performance counter stats for 'perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 100160063':

     101989,511547      cpu-clock (msec)          #    1,000 CPUs utilized          
    45 673 821 713      branches                  #  447,829 M/sec                    (21,62%)
       313 208 108      branch-misses             #    0,69% of all branches          (21,62%)
     5 227 242 279      cache-misses              #   49,080 % of all cache refs      (21,63%)
    10 650 526 377      cache-references          #  104,428 M/sec                    (21,63%)
   375 496 611 323      cpu-cycles                #    3,682 GHz                      (21,63%)
   341 922 618 724      instructions              #    0,91  insn per cycle           (24,33%)
   355 232 658 048      ref-cycles                # 3483,031 M/sec                    (27,04%)
            25 865      page-faults               #    0,254 K/sec                  
   287 479 711 819      uops_issued.stall_cycles  # 2818,718 M/sec                    (27,04%)
   280 966 049 622      resource_stalls.any       # 2754,852 M/sec                    (27,04%)
    14 806 209 992      L1-dcache-load-misses     #   10,88% of all L1-dcache hits    (27,04%)
   136 092 303 505      L1-dcache-loads           # 1334,375 M/sec                    (27,03%)
    5 188 921 503      LLC-load-misses           #   49,15% of all LL-cache hits     (27,03%)
    10 557 576 315      LLC-loads                 #  103,516 M/sec                    (27,03%)


     101,990844967 seconds time elapsed


real	1m42.028s
user	1m41.969s
sys	0m0.046s
    Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      Вывод такой. Жадный алгоритм хорошо работает на числах где есть мелкий множитель двойка.

      100160060 = 4*5*7*11*13*5003

$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 100160060
real	0m2.005s

134217728 = 2**27
$ time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 134217728
real	0m2.636s

2*50080031 (простое)
time perl -wle 'print "Prime" if (1 x shift) !~ /^(11+)\1+$/' 100160062
real	0m2.046s


      Но очень тупит на нечетных, на простых, или на больших произведениях двух примерно равных простых. 10007 * 10009 = 100160063

      Ленивый наоборот для простых и множителей >=3 работает лучше.
      Ответить

      • ava bormand # Ссылка на оригинал 0 ⇈

        > множителей >= 3

        Множителей, больших чем N / 32k. Т.е. чем больше число, тем хуже он ищет мелкие множители. Если бы не это ограничение на 32k раскрытий \1, то он бы всегда выигрывал.
        Ответить

        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

          >Множителей, больших чем N / 32k
          Ленивый сливается на 4*5*7*11*13*5003.
          Тут же есть делители меньше 32k: 2*5003, 3*5003 итд.

          Жадный благодаря какой-то оптимизации на чётных работает крайне быстро (2 секунды для 100М).

          А как оставлю одни нечётные, то полчаса не могу дождаться пока жадный доработает.
          3*5*7*11*13*5003 = 75120045
          Ответить

          • ava gost # Ссылка на оригинал 0 ⇈

            > Жадный благодаря какой-то оптимизации на чётных работает крайне быстро
            Не потому ли, что он сразу пытается сматчить в первую группу N/2 единиц (больше матчить не имеет смысла из-за \1+)? А для 3*... ему придётся поочерёдно матчить N/2, N/2 - 1 и так далее до N/3.
            Ответить

          • ava bormand # Ссылка на оригинал 0 ⇈

            Ну вот смотри. 4*5*7*11*13*5003 это 100160060. Т.е. все множители ниже 3057 ленивая версия не сможет проверить из-за ограничения на подстановку. Но видимо будет пытаться и тратить на них время. Первый множитель, который она сможет найти и прервать цикл - это 5003 4004.

            А жадная версия тупо промотает всё от конца до середины и, о чудо, найдёт множитель 50080030. Строки больше половины скорее всего очень быстро отбиваются на проверке длины.

            На нечётных же числах, как правильно пишет гост, у жадной версии начинается реальный перебор от N/2 как минимум до N/3. Что как бы дохуя.
            Ответить

        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

          Оба сливаются на 100160079 = 3 * 33386693 (простое).

          Похоже на worst-case для составных.
          Ответить

          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

            А между тем Питух заклёвывает Пёрл на чётных 100160062 со «?»
            $ time python -c "import re;print(re.match(r'^(11+?)\1+$', '1' * 100160060) is None)"
False

real	0m7.061s
user	0m3.341s
sys	0m1.984s

$ time python -c "import re;print(re.match(r'^(11+?)\1+$', '1' * 100160062) is None)"
False

real	0m6.944s
user	0m3.257s
sys	0m2.087s


            И вообще Питух зверски быстр на куче маленьких множителей.
            $ time python -c "import re;print(re.match(r'^(11+?)\1+$', '1' * 75120045) is None)"
False

real	0m8.261s
user	0m4.975s
sys	0m1.503s

            Для Питуха ? однозначно улучает пирформанс.
            Ответить

            • ava bormand # Ссылка на оригинал 0 ⇈

              Ну потому что нет сраного лимита на 32к. А с мелких чисел начинать проверку всё-таки выгоднее.
              Ответить

              • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                >сраного лимита на 32к
                Питух рекурсию превращает в цикл? Гвидо вроде был против tail-call.

                Пёрл сливается на 100160079 = 3 * 33386693 (простое).

                А Питух шустро так крыльями, хлоп-хлоп.
                $ time python -c "import re;print(re.match(r'^(11+?)\1+$', '1' * 100160079) is None)"
False

user	0m6.645s
sys	0m1.938s

                Там время будет чуть ниже, просто на всех ядрах тесты пёрла уже больше часа ебошат.
                Ответить

                • ava gost # Ссылка на оригинал 0 ⇈

                  > Питух рекурсию превращает в цикл?
                  У питуха, скорее всего, просто в реализации рекурсии нет — или конпелятор её в tail-call и оптимизировал.

                  > Гвидо вроде был против tail-call.
                  Вряд ли ради этого мейнтейнеры «CPython» добавляют флаг «-fno-optimize-sibling-calls» :-).
                  Ответить

                • ava bormand # Ссылка на оригинал 0 ⇈

                  Потому что в питоне нет сраного лимита на 32к подстановок. Пёрл физически не может заматчить тройку для таких больших чисел, он даже ворнинг про это высирает. Поэтому он будет мотать аж до 33386693 и само собой соснёт.
                  Ответить

                  • ava gost # Ссылка на оригинал 0 ⇈

                    > Пёрл физически не может заматчить тройку
                    А как это вообще обрабатывается? «Пёрл» может возвратить некорректный результат, если упрётся в лимит?
                    Ответить

                    • ava bormand # Ссылка на оригинал 0 ⇈

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

                      Complex regular subexpression recursion limit (32766) exceeded at -e line 1.
                      Ответить

                    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                      Он походу обламывается, ставит отсутствие матча и идёт дальше.
                      Я ещё полтора часа назад запустил на перле тест на два множителя >32K
                      33013*33023 = 1090188299
                      Пока жду.
                      Ответить

                      • ava bormand # Ссылка на оригинал 0 ⇈

                        Боюсь, что ты не дождёшься. Это ж миллиард. И на каждой итерации там почти вся строка сверяется кроме, возможно, хвостика.

                        Ну ок, последние 500 миллионов наверное скипнутся по-быстрому т.к. \1 длиннее хвоста. Но это всё равно дофига.
                        Ответить

                        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                          >Это ж миллиард
                          10007 * 10009 = 100160063
                          За 100 секунд отработало.

                          А тут число в 10 раз больше. 100*10²=10000 секунд.

                          Походу тепловая смерть Вселенной часа через три будет.

                          Хреново что я их без nohup запустил. Надо почитать как их детачнуть, если вдруг сеть сбойнёт.
                          Ответить

                          • ava bormand # Ссылка на оригинал 0 ⇈

                            Дык 10007 * 10009 прервалось на 10007! А 1090188299 будет проверять всё до победного 1090188299.

                            В стотыщраз разница. 760 тыщ лет будешь ждать если предположить, что там квадратичный алгоритм.
                            Ответить

                            • ava gost # Ссылка на оригинал 0 ⇈

                              > Дык 10007 * 10009 прервалось на 10007!
                              Я тоже хочу себе компьютер, который сможет досчитать до 10007!.
                              Ответить

                                    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                      >sqrt(2 * M_PI * $n)
                                      Похоже на формулу Стирлинга.

                                      Так она же приблизительная. Плюс плавающий питух.
                                      Ответить

                                        • ava gost # Ссылка на оригинал 0 ⇈

                                          Для [2; 15000) работает правильно. Надо подключать аналитику.
                                          Ответить

                                          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                            Версию на питухе можно чуток питумизировать.

                                            math.log10(math.factorial(21))

                                            Или просто циклом for сложить все логарифмы натуральных.

                                            >Надо подключать аналитику
                                            Я думаю формула хорошая. Она может лажануть только если будет ситуация близости переноса.

                                            >>> math.log10(math.factorial(29))
30.946538820206058

                                            Только .9999.
                                            Ответить

                                            • admin admin # 0 ⇈

                                              А как работает math.factorial?
                                              Он учитывает, что можно балансированно считать делением пополам (чтобы умножать равные по длине числа), и использует ли быстрое преобразование Фурье для умножения (оно, кстати, тоже на правпитухе)?

                                              Кажется, хуйню написал. Ведь умножение длинного на короткое наверное лучше.
                                              Ответить

                                          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                            ЕМНИП, я сам на ГК в каком-то сраче писал Стирлинга.

                                            И он работал.

                                            Т.к. на маленьких не случалось переносов из-за погрешности, а на больших решала асимптотика.

                                            >Для [2; 15000) работает правильно
                                            Дальше смысла проверять особо нет, т.к. формула асимптотическая.
                                            Ответить

                                          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                            15000!

                                            >>>Стирлинг:
                                            56129.438792851

                                            >>> math.log10(math.factorial(15000))
                                            56129.4387952629

                                            15!
                                            >>>Стирлинг:
                                            12.114087220993

                                            >>> math.log10(math.factorial(15))
                                            12.1164996111234

                                            И чем дальше, тем оно точнее после запятой. Разве что будет случай когда в логарифме появится .99999999 и случится перенос.
                                            Ответить

                                          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                            Написал простенький говновалидатор, которые выдает гипотетические разногласия, где логарифм факториала около целого числа.

                                            s=0; for (var i=1;i<=12345678;++i) {
    var stirling = Math.log10(Math.sqrt(2 * Math.PI * i)) + Math.log10(i / Math.E) * i;
    s+=Math.log10(i);
    if (Math.ceil(s)!=Math.ceil(stirling)) console.log(i);
}
3121515
4187665
4423458


                                            Имеет смысл перепроверить только такие случаи.
                                            Ответить

                                          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                            Имеет смысл проверить только числа, которые выдаст эта питушня.
                                            s=0; for (var i=1;i<=1123456789;++i) {
    var stirling = Math.log10(Math.sqrt(2 * Math.PI * i)) + Math.log10(i / Math.E) * i;
//    s+=Math.log10(i); // плавающий питух с ростом числа итераций накапливает ошибку
    if (Math.ceil(stirling+1/i)!=Math.ceil(stirling)) console.log(i,stirling);
}
                                            Ответить

                                            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                              Проверил всё из списка, вплоть до 12861320! (включительно)
                                              12861320! = 10^85849199.99999996  [ math.log10(math.factorial( 12861320 )) =85849199.99999997
]
16641157! = 10^112941689.99999996
28563732! = 10^200560832.9999999
                                              Ответить

                                        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                          Не обновил страницу.

                                          Похоже что точности формулы всегда хватает для подсчёта порядка. На больших числах уже начинает помогать асимптотика.

                                          А чтобы поймать багры от плав. питуха нужны числа такого порядка, для которых прямой подсчёт закончится после того как потухнет Солнце.
                                          Ответить

                          • ava bormand # Ссылка на оригинал 0 ⇈

                            З.Ы. Блин, т.е. перл может выдать неправильный ответ. Но воспроизвести за разумное время это нельзя. Т.е. алгоритм работает правильно для любых разумных применений.
                            Ответить

                            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                              Ага, я тоже хотел подметить что Ларри всё просчитал.

                              Можно слить Пёрл как лалку, но к тому моменту всем уже будет похуй.
                              Ответить

                          • ava bormand # Ссылка на оригинал 0 ⇈

                            На самом деле можно проще тест сделать. Сгенери строку в 1090188299 единичек и заматчи её с фиксированными паттернами из 33013 и 33023 единичек питоном и пёрлом.
                            Ответить

                            • ava gost # Ссылка на оригинал 0 ⇈

                              Странно. Заматчил и не упал.
                              $ perl -wle "$barop = \"1\" x 33013; print \"MATCH\" if (1 x shift) =~ /^($barop)+$/" 1090188298

$ perl -wle "$barop = \"1\" x 33013; print \"MATCH\" if (1 x shift) =~ /^($barop)+$/" 1090188299
MATCH

                              UPD: Заматчил правильное число, результаты те же.
                              Ответить

                              • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                А. Я понял. Это же жадина-говядина.
                                Тут бектрекинга «?» нет.

                                Ленивый куда дольше считает
                                time perl -wle '$barop = "1" x 33023; print "MATCH" if (1 x shift) =~ /^($barop?)+$/' 1090188299
                                Ответить

                                  • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                    Доработало наконец. Пёрл слился в хламину.

                                    $ time perl -wle '$barop = "1" x 33023; print "MATCH" if (1 x shift) =~ /^($barop?)+$/' 1090188299
Complex regular subexpression recursion limit (32766) exceeded at -e line 1.


real	25m35.657s
user	23m12.344s
sys	0m0.912s
                                    Ответить

                                    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                                      Для сравнения 32693*33023 отрабатывает почти моментально
                                      $ time perl -wle '$barop = "1" x 33023; print "MATCH" if (1 x shift) =~ /^($barop?)+$/' 1079620939
MATCH

real	0m1.807s
user	0m0.396s
sys	0m0.495s

                                      А если подставить 32693, тогда нет.
                                      Ответить

                • ava bormand # Ссылка на оригинал 0 ⇈

                  Кстати, я придумал тебе число, на котором пёрл сольётся как лалка и выдаст неправильный ответ.

                  1416242689 = 37633 * 37633

                  Оба делителя больше 32к. Пёрл их ни так ни сяк не заматчит. И скажет, что число простое.
                  Ответить

                    • ava bormand # Ссылка на оригинал 0 ⇈

                      Боюсь, что результат будет после тепловой смерти вселенной.
                      Ответить

                      • ava bormand # Ссылка на оригинал 0 ⇈

                        Си. Потому что там со строками неудобно работать и проще нормальный алгоритм написать.
                        Ответить

                        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                          То ли лыжи не едут, то ли я спать хочу.

                          https://ideone.com/2MelzP

                          Posix рагулярки начинают сливаться и дико тупить на 41, 43, 45.

                          int main (int argc, char *argv[])
{
	/*
    if (argc < 2) {
        fprintf(stderr, "Usage: %s number\n", argv[0]);
        return(1);
    }

    int num = atoi(argv[1]);
    */
    int num=41;
    printf("%d\n",num);

    regex_t regex;
    char    buf[255];
    char    str[num];

    memset(str,'1',num);
    str[num] = 0;
    puts(str);

    regcomp(&regex, "^(11+)\\1+$", REG_EXTENDED);

    int r = regexec(&regex, str, 0, NULL, 0);

    //If a match is found, the regexec() function returns 0. 
    if (0 == r) {
        puts("Not Prime");
    }
    //If no match is found, the regexec() function returns REG_NOMATCH. 	
    else if (REG_NOMATCH == r) {
        puts("Prime");
    }
    //Otherwise, it returns a nonzero value indicating an error. 		
    else {
        regerror(r, &regex, buf, sizeof(buf));
        fprintf(stderr, "Error:%d %s\n",r , buf);
        return(1);
    }

                          Я знал что оно хуеватое.
                          Не может же оно быть НАСТОЛЬКО хуёвым.
                          Ответить

  • ava 3.14159265 # Ссылка на оригинал 0

    Йажа на небольших множителях сливает всех за секунду как лалок.

    jshell> long ns=nanoTime(); "1".repeat(100160060).matches("^(11+?)\\1+$") ; out.println( TimeUnit.NANOSECONDS.toMillis(nanoTime()-ns));
$6 ==> true
1188

jshell> long ns=nanoTime(); "1".repeat( 100160079 ).matches("^(11+?)\\1+$") ; out.println( TimeUnit.NANOSECONDS.toMillis(nanoTime()-ns));
$9 ==> true
1775

jshell> long ns=nanoTime(); "1".repeat(100160060).matches("^(11+)\\1+$") ; out.println( TimeUnit.NANOSECONDS.toMillis(nanoTime()-ns));
$12 ==> true
1019

jshell> long ns=nanoTime(); "1".repeat(3*5*7*11*13*5003).matches("^(11+?)\\1+$") ; out.println( TimeUnit.NANOSECONDS.toMillis(nanoTime()-ns));
$18 ==> true
1415


jshell> long ns=nanoTime(); "1".repeat(3*5*7*11*13*5003).matches("^(11+)\\1+$") ; out.println( TimeUnit.NANOSECONDS.toMillis(nanoTime()-ns));
35984
    Ответить

  • ava guest # 0

    Отныни говнокод объявлен клубом фанатов tcl
    #!/usr/bin/tclsh
set f [open "/etc/passwd"]
foreach line [split [read $f] "\n"] {
	set user [lindex [split $line ":"] 0]
	if {$user ne ""} then {
		puts [exec id $user]
	}	
}
close $f
    Ответить

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

      Минусы — упоротые скобочки, завоз зловонного ООП.

      Плюсы — понятный синтаксис, простота, минимум ёбаных значков.

      Лучше бы баш издох в какой-то момент и мы писали на этом.

      Подозреваю что на самом деле он Tsar Command Language. Но это не точно.
      Ответить

      • ava guest # 0 ⇈

        Синтаксис настолько простой, что парсер для него кажется что за пол дня пишется.
        ООП опционален.

        И да: он точно лучше других шелов, а еще он вроде как легко ембедится.
        Какие скобочки тебе не нравятся? кводратные?
        Ответить

        • ava 3.14159265 # Ссылка на оригинал 0 ⇈

          Они их перепутали. Квадратные там где надо круглые (для условий).

          А для индексации массивов, наоборот нужны квадратные.
          Ответить

  • ava 3.14159265 # Ссылка на оригинал 0

    Уже полтора дня ебошит. Результата нет.
    TIME+                            Command
  41h03:45 perl -wle print "Prime" if (1 x shift) !~ /^(11+)\1+$/ 75120045
  41h03:40 perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 100160079
  41h03:46 perl -wle print "Prime" if (1 x shift) !~ /^(11+)\1+$/ 100160063
  41h03:38 perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 1090188299

    Блядский пёрл.
    Ответить

      • ava 3.14159265 # Ссылка на оригинал 0 ⇈

        >perl -wle print "Prime" if (1 x shift) !~ /^(11+)\1+$/ 75120045

        Эта доработала, но т.к. команда time печатает вывод после отсылки процессу сигнала STOP, то точное время сказать не могу.

        Но явно больше 40+ часов.

        В то время как «Ruby» делает это же за 2 секунды. А «Йажа» за одну.
        $ time ruby -e 'puts !(("1" * 75120045).match /^(11+?)\1+$/);'
false

real	0m2.736s
user	0m2.128s
sys	0m0.608s


        Edit: сорян. Я Обманул. Пёрл ведь жадный.
        Жадная Йажа за 36 секунд раскладывает 3*5*7*11*13*5003
        Ответить

          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

            Врост это 100_160_079 = 3 * 33386693
            Жадина-говядина явно будет считать его дольше чем 75_120_045.

            А ленивое до сих пор его матчит.

            Интересно что жадная Йажа работает на удивление быстро. В отличие от остальной скриптухи.
            Ответить

            • ava gost # Ссылка на оригинал 0 ⇈

              > Интересно что жадная Йажа работает на удивление быстро. В отличие от остальной скриптухи.
              Значит, надо найти вореант, при котором ЙАЖА соснёт.
              Ответить

              • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                >надо найти вореант, при котором ЙАЖА соснёт.

                Ещё позавчера нашёл. Но не замерял.
                Это в особенности простые числа.
                А также квадраты простых или произведения примерно одинаковых простых.
                Ответить

              • ava 3.14159265 # Ссылка на оригинал 0 ⇈

                Кстати ruby — питушня.
                Сначала он мне понравился. Но я заметил, что в отличие от питуха и пёрла почему-то жрёт дохуя памяти.
                VIRT   RES     TIME+               Command
 3316M 2945M  16:57.20  ruby -e puts !(("1" * 75120045).match /^(11+)\1+$/);
 121M  104M   48h16:08  perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 100160079
 116M  100M   48h15:45  perl -wle print "Prime" if (1 x shift) !~ /^(11+)\1+$/ 100160063
 1065M 1049M  48h15:52  perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 1090188299

                30х отличие не объяснить даже уникодными строками.
                Ответить

      • ava 3.14159265 # Ссылка на оригинал 0 ⇈ 

        10. Security Considerations

JSON Schema validation defines a vocabulary for JSON Schema core and concerns all the security considerations listed there.

JSON Schema validation allows the use of Regular Expressions, which have numerous different (often incompatible) implementations. 
Some implementations allow the embedding of arbitrary code, which is outside the scope of JSON Schema and MUST NOT be permitted.
 Regular expressions can often also be crafted to be extremely expensive to compute (with so-called "catastrophic backtracking"), resulting in a denial-of-service attack.


        Я кстати стопнул эти процессы и забыл про них. А они так и висят.
        309h perl -wle print "Prime" if (1 x shift) !~ /^(11+?)\1+$/ 100160079
 319h perl -wle print "Prime" if (1 x shift) !~ /^(11+)\1+$/ 100160063
        Ответить

  • ava guest # 0

    I must thank you for the efforts you've pput in writing this website.I
    really hope to see the same high-grade content from you in the future as
    well. In truth, your creative writing abillities has inspired
    me too get my own, personal blog now 😉
    https://writingmypaper.info
    best essay writing service reviews
    <a href="https://writingmypaper.info">best essay writing service reviews</a>
    https://writingmypaper.info
    Ответить

    • ava nemyx # Ссылка на оригинал 0 ⇈

      Почему боты такие тупые? Увидел, что здесь HTML-тэги не работают, но продолжает срать в этот говнокод этими же тэгами.
      Ответить

  • ava guest # 0

    Howdy! I know this is kinda off topic but I'd figured
    I'd ask. Would you be interested in exchanging links or maybe guest writing a blog post or vice-versa?
    My site covers a lot of the same topics as yours and I believe we could greatly benefit
    from each other. If you're interested feel free to shoot me an email.
    I look forward to hearing from you! Great blog by the way!

    https://buyessayprices.com/
    essay help service
    <a href="https://buyessayprices.com/">essay help service</a>
    https://buyessayprices.com/
    Ответить

  • ava gost # Ссылка на оригинал 0

    Иньо, почини это говно сверху.

    UPD: И снизу.
    Ответить

  • ava guest # 0

    Unquestionably believe that which you said. Your favorite justification appeared to be on the internet the easiest
    thkng to be aware of. I say to you, I definitely
    get annoyed while people think about worries that they plainly doo not know about.
    You managed to hitt the nail upon the top aas well as defined out the
    whole thing without having side-effects , people cann take a
    signal. Will likely be back to get more. Thanks
    https://buyessayonlinecheap.info/
    help with an essay
    <a href="https://buyessayonlinecheap.info/">help with an essay</a>
    https://buyessayonlinecheap.info
    Ответить

  • ava guest # 0

    Hi! I'm at work browsing your blog from my new iphone 4! Just wanted to say I love reading your blog and look forward to all your posts!
    Keep up the fantastic work!
    https://essaywritingusauk.com/
    what is the best essay writing service
    <a href="https://essaywritingusauk.com/">buy essay uk services uk</a>buy essay uk services uk
    buy essay uk services uk
    buy essay uk services uk
    https://essaywritingusauk.com/
    buy essay uk services uk
    https://essaywritingusauk.com/
    Ответить

      • ava guest # 0 ⇈

        Straight from the сёмина помойка.

        Кстати, последний 32х битный ипхон вроде, или путаю.?
        Ответить

      • ava Fike # Ссылка на оригинал 0 ⇈

        это ж ты прикинь, сколько они шаблоны в своем ботнете не обновляли?
        Ответить

            • ava guest # 0 ⇈

              анекдот про лялялшки и нового русского
              Ответить

                • ava guest # 0 ⇈

                  айфон вообще гей придумал (дизайн всмысле), я не знаю, как им нормальные пацаны пользуются
                  Ответить

            • ava 6arPoBblu_nemyx # Ссылка на оригинал 0 ⇈

              Нет. Чтобы визуально отличался от 11. Иначе нет смысла покупать 12 - никто не поймёт, что у тебя он.
              Ответить

              • ava Rabindranath_Tagore # Ссылка на оригинал 0 ⇈

                И «11 Pro» от 11, как я понял, отличаются только дырками. Значит, теперь номер модели будут маркировать количеством дырок?
                Ответить

  • ava guest # 0

    I have to thank you for tthe efforts you have put
    in penning this website. I'm hoping to view the samee
    high-grade content fom you in the future as well. In truth,
    your creative writing abklities has inspired me to get
    my own site now 😉
    https://australianessaywritingservice.info/good-college-admission-essays.html
    paperwriter edumony
    <a href="https://australianessaywritingservice.info/good-college-admission-essays.html">paperwriter edumony</a>
    https://australianessaywritingservice.info/what-is-a-psychological-case-study.html
    Ответить

  • ava guest # 0

    Hello! This post couldn't bee written any better!
    Reading throughh this post reminds me of my previous room mate!
    He always kept talking about this. I will forward this artifle to him.
    Pretty sure he will have a good read. Many thanks for sharing!

    https://buyessaywritingservice.com
    scholarship essay writing service
    <a href="https://buyessaywritingservice.com">scholarship essay writing service</a>
    https://buyessaywritingservice.com
    Ответить

    • ava Desktop # Ссылка на оригинал 0 ⇈

      очпуенный сайт, навёрстанный хуёвыми картинками

      в чём прикол: скрывать контент от поисковиков и одновременно спамить про своё говно? даркнет какой-то
      Ответить

  • ava guest # 0

    hi!,I love your writing so a lot! share we communifate more about
    your ost on AOL? I need an expert on this house to unravel
    my problem. May bee that's you! Looking forward to peer
    you.
    https://orderessayusukau.com
    english essay writing
    <a href="https://orderessayusukau.com">english essay writing</a>
    https://orderessayusukau.com/
    Ответить

  • ava guest # 0

    What i do not realize iis if truth be told how
    you are now not actually much more neatly-appreciated than you may be
    right now. You're very intelligent. You alreay know therefore considerably with regards to tis matter, made me in my opiinion believe it frtom so many varied angles.
    Its like women and men don't seem to be involved except it's ssomething
    to do with Lady gaga! Your individual stuffs great.At alll times handle it
    up!
    https://writepapersforme.com
    a college essay
    <a href="https://writepapersforme.com">a college essay</a>
    https://writepapersforme.com
    Ответить

          • ava gost # Ссылка на оригинал 0 ⇈ 

            // quick and dirty filter agains guest spam
// it can reject normal links, but who cares...
if (   comment.user_id == 25580
    && comment.post_id == 26800  // comment out if needed
    && comment.text.length > 200
    && comment.text.match('https?://')
    && !comment.text.match('[а-яА-Я]')) {
    return true;
}
return false;

            Навёл, проверь.
            Ответить

            • ava gost # Ссылка на оригинал 0 ⇈

              А вообще, inho, если кто-то у тебя от гуеста постит ссылку с длинным текстом на английском (см. реальный пример детектирования выше) — попроси его ответить на вопрос «сколько будет трижды семь».

              Или вообще отключи гуестов в этом посте.
              Ответить

                • ava guest # 0 ⇈

                  хуёвая капчта же

                  поставь нормальную, гугловую например
                  Ответить

              • ava guest # 0 ⇈

                >Или вообще отключи гуестов в этом посте.
                АНУС СЕБЕ ОТКЛЮЧИ СОБАКАЯ ЗЛАЯ
                Ответить

      • ava Desktop # Ссылка на оригинал 0 ⇈

        я не могу понять, это такой прибыльный бизнес: писать эссе за кого-то?

        или это имеются в виду типа рефераты для школоты?
        Ответить

        • ava guest # 0 ⇈

          Писать рефераты по информатике для школоты за два евро за реферат
          Ответить

  • ava guest # 0

    Hello very cool website!! Guy .. Excellent .. Superb .. I'll bookmark your website and take the feeds also?
    I'm glad to search out a lot of helpful info here within the put up, we want develop
    extra techniques on this regard, thank you forr sharing.

    . . . . .
    https://dannytvxh6g1dn.medium.com/essayshark-815aed4a9a73
    english essay writing
    <a href="https://dannytvxh6g1dn.medium.com/essayshark-815aed4a9a73">english essay writing</a>
    https://filberto1od7nip.medium.com/essay-on-capitalism-498cdc412f61
    Ответить

  • ava guest # 0

    Heya i'm for thee primary time here. I came across this board and I in finding It truly
    helpful & it helped mee ouut a lot. I am hoping to provide something back and help others like you helped me.

    https://servicethesis.com
    write me an essay
    <a href="https://servicethesis.com">write me an essay</a>
    https://servicethesis.com
    Ответить

  • ava guest # 0

    I think this is among the most important inro for me. And i am glad
    reading yopur article. But wanna remark on some general things,
    The website style is ideal, the articles iss reallly nice
    : D. Good job, cheers
    http://musicinducedeuphoria.blogspot.com/2009_08_16_archive.html
    buying paper online
    <a href="http://musicinducedeuphoria.blogspot.com/2009_08_16_archive.html">buying paper online</a>
    http://www.elviscostello.info/wiki/index.php/Concert_2011-10-01_New_York
    Ответить

  • ava guest # 0

    My developer is trying to persuade me to move
    too .net from PHP. I hav always disliked the idea because of
    the expenses. But he's tryiong none the less.
    I've been using WordPress on sevewral websites for about a year and am concerned about switching to another platform.
    I have heard great thinggs about blogengine.net. Is there a way I can transfer all my wordpress posats into it?
    Any help would be greatly appreciated!
    https://world.edu/
    chjeap reliable essay writing service
    <a href="https://world.edu/">cheap reliable essay writing service</a>
    http://assets.opencharities.org/charities/1166856
    Ответить

      • ava guest # 0 ⇈

        Просят перевести на «PHP»?
        P.S. Не отвечай уёбку.
        Ответить

      • ava guest # 0 ⇈

        php Отличный язык для написания мусорных ботов, которые срут тупой рекламой
        а больше он ни для чего не нужен
        Ответить

        • ava rotoeb # Ссылка на оригинал 0 ⇈

          Откуда ты знаешь, что этот бот написан не на Яве?

          P.S.: Блядь, ответил уёбищу...
          Ответить

          • ava MAKAKA # Ссылка на оригинал 0 ⇈

            Явисты деньги зарабатывают, им хуйней заниматься некошгда
            Ответить

  • ava guest # 0

    Excellent weblog here! Also your site rather a lot upp very fast!
    What web host are you the usage of? Can I am getting your affiiate hyperlink in your host?
    I desire my web site loaded up as quickly as youhrs lol
    https://medium.com/@hazlettxcvhljuy/describe-a-caring-person-essay-f12c0ec22ff4
    scholarship essay writing service
    scholarship essay writing service
    https://tabquiet.medium.com/why-i-want-to-be-a-police-officer-essay-e33819ac2dc https://writstancer.medium.com/4th-amendment-essay-b688e0094e06
    Ответить

  • ava guest # 0

    Hello, i think that i ssaw you visited my web
    site so i came to “return tthe favor”.I'm trying to find things to enhance my site!I suppose its ok to
    use a few of your ideas!!
    https://toneto.net/news/26-03-2020/maksim-ivanchuk-otzyvy-khirurga-ob-avtorskoj-mjetodikje-modjelirovanija-tjela
    максим иванчук пластический хирург отзывы
    максим иванчук пластический хирург отзывы https://ru-ru.facebook.com/plastic.surgery5
    Ответить

  • ava guest # 0

    My spoyse and I absolutely love youhr blog and find nearly all of your post's to be just what I'm looking for.
    Do you offer guest writers to write contnt available for you?

    I wouldn't mind prooducing a post or elaborwting on most
    of the subjects you write with regard to here. Again, awesome blog!


    https://termpaperwriterservice.com/
    write a essay online
    <a href="https://termpaperwriterservice.com/">write a essay online</a>
    https://termpaperwriterservice.com
    Ответить

  • ava guest # 0

    Hi there, his weekend is good in support of me, since this point in timee
    i am reading this great educational post here at
    my residence.
    https://clients1.google.bj/url?q=https://zoon.com.ua/kiev/medical/klinika_plasticheskoj_hirurgii_ivanchuk_na_ulitse_vasiliya_stusa_v_vishnyovom/reviews/
    отзывы об Иванчуке Максиме Сергеевиче
    отзывы об Иванчуке Максиме
    Сергеевиче https://clients1.google.kz/url?q=https://www.otzyvru.com/plasticheskiy-hirurg-maksim-ivanchuk
    Ответить

    • ava guest # 0 ⇈

      Категории чатлан

      Быдло — средний класс, не примыкающий к интеллектуальной элите и дорвавшийся до интернета. Его цель отсутствует — так же, как и в жизни.

      Гламурные девушки и мальчики стратегически ищут друг друга, тусуются и спариваются.

      Уродливые и тупые надеются поибаццо с гламурными мальчиками/девочками, но им никто не даёт. Время от времени можно услышать от них «ах так, никто не хочет общаться? Тогда я ухожу». Но, как правило, они возращаются и тоскливо ждут, кто ж с ними всё-таки будет спариваться.

      Уродливые и умные отличаются эрудицией, неумением общаться и иногда юмором. Целью их также является коитус, но и им это не удаётся, ибо гламурным кисам до их мозга дела мало.

      Шуты — это просто весёлые люди, которые имеют внутренние комплексы, отчего постоянно шутят.

      Шлюхи зарабатывают себе на жизнь, разводя лохов.
      Ответить

      • ava guest # 0 ⇈

        Характерные признаки:

        Любимое его занятие — гнобить пользователей других мессенджеров, в частности Телеграма. Жаббер-быдло считает непременным долгом упомянуть, что любой мессенджер, который привязан к номеру телефона, является анальным зондом.

        Может часами разговаривать о XMPP, все публичные XMPP чаты состоят на 50% обсуждения о XMPP

        Иногда таки использует Telegram и VK не признается в этом

        В 80% случаев использует Линукс. В 20% случаев это не просто линукс, а особенно извращенные дистрибутивы Gento,Arch или BSD

        В 50% случаев имеет явные признаки пароидального синдрома и аниме аватарку

        Пробовал Tor, I2P и десятки других анонимных интернетов

        Сидит на гламурном сервере 404.city и всем хвастается, что лимит на оправку файлов больше чем в Телеграме, но никогда не оправлял файлов больше по-размеру, чем гифки с трапами

        Трап, гомосек, фуррии, мамкин хакер, шизик, жирный сисадмин или хиккамори

        Считает себя илитой интернета

        Сидит на бордах
        Ответить

        • ava bormand # Ссылка на оригинал 0 ⇈

          > не просто линукс, а особенно извращенные дистрибутивы Gento,Arch или BSD
          Ответить

                • ava bormand # Ссылка на оригинал 0 ⇈

                  А как они всякие утилиты для управления сетью запинывали, там же всё к ядру гвоздями прибито? Или тупо выбросили их и взяли bdsm'ные?
                  Ответить

                  • ava Saehrimnir # Ссылка на оригинал 0 ⇈

                    Не знаю, я этого кентавра вблизи не видел, только название слышал.

                    Пишут, что во-первых, там ядро не оригинальное, а пропатченное (добавили каких-то сисколов, чтобы легче было портировать линуксовый софт), а во-вторых, какие-то пакеты от FreeBSD оставили, просто сконвертировали в .deb.
                    Ответить

                    • ava bormand # Ссылка на оригинал 0 ⇈

                      Ну и в любом случае это уже не гну/линукс так как собственно линукса там нету. Это GNU/BSD.
                      Ответить

                      • ava guest # 0 ⇈

                        Дак дебиан себя изначально позиционировал как GNU ОС с:
                        * менеджером пакетов (у них пол книги про него)
                        * развесистой системой сборки этих пакетов
                        * умным полиси, которое гарантирует стабильность

                        Про линукс или не линукс там ничего не было.
                        Все это отлично портируется и на бзду, тем более, что в 1996 (или когда он там появился) еще было не очевидно, кто победит.

                        Другой вопрос, что смысла в этом чуть меньше, чем ноль: фря и так все это умеет, и ядро там от юзерленда не отпиливается особо, в отличие от линь

                        Это как NetBSDшники свой pkgsrc портировали на Linux, и он там никому не нужен.
                        Ответить

        • ava bormand # Ссылка на оригинал 0 ⇈

          Напоминаю, что любой мессенджер, который привязан к номеру телефона, является анальным зондом.
          Ответить

        • ava defecate-plusplus # Ссылка на оригинал 0 ⇈

          > что лимит на оправку файлов больше чем в Телеграме
          кстати, какие они?
          я ~ гиговые засылал
          даже в мыслях не было, что там есть "лимит"
          Ответить

          • ava j123123 # Ссылка на оригинал 0 ⇈

            Я за netcat - там никаких лимитов по отправке файлов нет.
            Ответить

            • ava bormand # Ссылка на оригинал 0 ⇈

              Если у тебя порт проброшен - можно и через "nginx" расшарить. Там тоже никаких лимитов.
              Ответить

              • ava j123123 # Ссылка на оригинал 0 ⇈

                Кстати, а какой-нибудь аналог netcat есть, чтоб им можно было через STUN через два NAT пробиться (и чтоб без TURN)?
                Ответить

              • ava guest # 0 ⇈

                в nginx етсь ограничение на длину запроса в дефолтной конфигурации большинства дистрибутивов, но его можно отключить в конфиге
                Ответить

                • ava bormand # Ссылка на оригинал 0 ⇈

                  Хм, т.е. я не могу по-умолчанию скачать файл на пару терабайт? Или это ограничение всё-таки на аплоад?
                  Ответить

                  • ava guest # 0 ⇈

                    на аплоад, за размер запроса, а не ответа
                    Ответить

  • ava guest # 0

    Hey would you mind lettijg me know which hosating company you're using?
    I've loaded your blog in 3 different webb browsers and
    I must say this blog loads a lot quicker then most. Can you recommend a good
    web hosting provider at a reasonable price? Thanks, I appreciate it!

    https://www.thetransportpolitic.com/2011/05/04/alignment-questions-for-detroits-rail-line-almost-ready-for-construction/
    write papers for me
    <a href="https://www.thetransportpolitic.com/2011/05/04/alignment-questions-for-detroits-rail-line-almost-ready-for-construction/">write papers for me</a>
    http://www.roguehaa.com/revisioning-the-michigan-central-depot/
    Ответить

  • ava guest # 0

    Superb website yoou have here but I was curious about if
    you knew of any forums that cover the same topics talked about in this article?

    I'd really like too be a part of community where I can get responses from other experienced individuals that
    share the same interest. If you have any suggestions, please let
    me know. Thank you!
    https://www.patreon.com/posts/44571302
    english essay writing service
    english essay writing service https://essay-checker9482.hpage.com/buy-term-paper-online.html
    Ответить

    • ava bormand # Ссылка на оригинал 0 ⇈

      Блядь, вот как? Там же регистрация по талонам, вроде не должны спамботы пролезать? Кто-то из своих?
      Ответить

      • ava guest # 0 ⇈

        Я вчера открыл. Видимо ослоёб уже пронюхал, либо это реальные спам боты и нужно смотреть как они капчу проходят.
        Ответить

          • ava guest # 0 ⇈

            А смысл? Ослоёб не мог воспользоваться проксёй?
            197.232.21.22
            Я могу сделать белый список стран, чтобы у проксей был меньше шанс.
            Ответить

            • ava bormand # Ссылка на оригинал 0 ⇈

              Я думаю это всё-таки реальные боты. Зачем ослоёбу спамить какой-то хуйнёй на английском? Подзаработать решил?

              З.Ы. Забань уже комменты в которых овер 90% латиницы и есть ссылка. Всё проще, чем белые списки стран городить. Или вообще запрети гостям постить ссылки, пусть словами пересказывают.
              Ответить

              • ava MAKAKA # Ссылка на оригинал 0 ⇈

                бот ищет всякую обоссанную помойку ворпдресс и шлет туда говно

                если ты делаешь сайт на обоссаной помойке вордпресс -- жди беды, увы
                Ответить

                • ava bormand # Ссылка на оригинал 0 ⇈

                  Там вроде более "интеллектуальные" алгоритмы, которые ищут любые формы и срут в них. Мне на прошлой работе и в самодельную форму срали пока капчу не поставил. Никакого вордпресса там даже рядом не было.
                  Ответить

            • ava gost # Ссылка на оригинал 0 ⇈

              > А смысл? Ослоёб не мог воспользоваться проксёй?
              Просто это уже паранойя какая-то. Ладно там гаш мет вторчермет, но в обычном явном автоматизированном форумном спаме обвинять ослоёбов — это уже перебор. На любой заброшенный сайт на «Юкозе» зайди — там такие ослоёбы 24/7 спамят.
              Ответить

              • ava guest # 0 ⇈

                Просто я думал капча от проксей должна 100% спасать. А проходить её - дорого.
                Ответить

                • ava gost # Ссылка на оригинал 0 ⇈

                  Ну тут два вореанта — либо баг в реализации, и боты спамят, игнорируя капчу (как в своё время было со спамом через пинги, когда через эксплоит в «WordPress» боты насрали охулиард комментов), либо реально на антигейте решения покупают. Во втором случае помогла бы смена названий полей формы отправки и вообще её модификация, но «WordPress»…
                  Ответить

                  • ava guest # 0 ⇈

                    У меня и так отправка комментов нестандартная. Вряд ли они через какое-то API спамят, т.к. у меня был закрыт только фронт, и они не спамили.
                    Ответить

      • ava gost # Ссылка на оригинал 0 ⇈

        Не успел Иньо убрать регистрацию по талонам — а спамботы уже начали срать. Какой багор )))

        Добрый день, bormand.
        Ответить

    • ava bormand # Ссылка на оригинал 0 ⇈

      Ты опять выходишь на связь?!

      Инью приди, порядок наведи.
      Ответить

      • ava defecatinho # Ссылка на оригинал 0 ⇈

        Давай не будем возобновлять этот срач. Каждый останется при своём.
        Ответить

        • ava bormand # Ссылка на оригинал 0 ⇈

          Запрети уже анонам постить сообщения где есть ссылка и сплошной инглиш. Работы на пару минут, блин.
          Ответить

          • ava defecatinho # Ссылка на оригинал 0 ⇈

            Я уже отвечал на этот вопрос. Я связываю это с приходом уёбка.
            Ответить

          • ava defecatinho # Ссылка на оригинал 0 ⇈

            Не нравится - делай фильтр на гостостоке. Сам же топишь против вахтерства.
            Ответить

            • ava bormand # Ссылка на оригинал 0 ⇈

              Одно дело, когда уёбок пишет под своим ником. И другое -- под твоим, подставляя тебя и твоих юзеров под нож страйкера.

              Впрочем, это действительно ваши личные проблемы. Спасибо за совет зафильтровать это говно на клиенте.
              Ответить

  • ava guest # 0

    Пегас 21 всегда имеет доступное зеркало.
    Большинство геймеров понимают, насколько важно иметь непрерывный доступ
    к игровым автоматам. Сегодня хочется играть не
    только дома за компьютером, но и на прогулке или в дороге.
    Понимая это, программисты казино Пегас 21
    создали доступное полнофункциональное
    мобильное приложение. Вы можете скачать его на
    свой смартфон с официального сайта.

    пегас 21 казино зеркало
    https://pegas21-pw1fr.icu https://pegas21-fgyvt.icu
    Ответить

  • ava guest # 0

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


    В результате взлома в открытом доступе появились паспортные данные клиентов и администраторов сайта СНГ Legalizer, контакты пользователей и их переписки.

    Информация опубликована в одном из Telegram-каналов, там разместили ссылку, которая вела на созданный ресурс с базой данных, пишет газета «Коммерсантъ». Как отмечает издание, о личности хакера известно, что он говорит на русском, специализируется на информационной безопасности на одной из теневых площадок интернета и предлагает свои услуги по разработке программного обеспечения.

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

    ------------

    Друзья, а вы когда покупаете соль на форуме, тоже указываете номер пасспорта?
    Ответить

    • ava JloJle4Ka # Ссылка на оригинал 0 ⇈

      Достаточно всего один раз спалить свой слепок браузера или айпишник.
      Ответить

    • ava bormand # Ссылка на оригинал 0 ⇈

      > Такие выводы сделаны на основании сведений о его электронном почтовом адресе

      Хуяссе.
      Ответить

      • ava MAKAKA # Ссылка на оригинал 0 ⇈

        А что такого?

        Если емейл ``hacker_kupit_soft@mail.ru`` то вполне можно понять, что

        >что он говорит на русском, специализируется на информационной безопасности на одной из теневых площадок интернета и предлагает свои услуги по разработке программного обеспечения.
        Ответить

  • ava guest # 0

    Кто никогда не любил Perl -- у того нет сердца.
    Кто пилит на нем стартап в 2021 -- у того нет мозга.
    Ответить

  • ava guest # 0

    Купить права на трамвай без забот и хлопот можно через лучший сервис
    оформления документов on-prava !
    Забудьте про самостоятельные походы во всевозможные инстанции, купить права на трамвай через
    он-права.
    http://msk.tforums.org/viewtopic.php?f=50&t=26643
    559317, Esteban, http://faizov.kz/index.php/component/kunena/2------/5379--.html
    Ответить

  • ava guest # 0

    We get asked a common question: Why should we try Bitcoin Up bitcoin up
    registration when there are many other market platforms?
    Well, the success rate of our members stands as a testimony to our
    trading platform. At Bitcoin Up, we are continually improving our platform, and we are trying to be better with every next day.
    Here are some of our advantages:
    http://www.gldhbxg.cn/do/guestbook.php
    Bitcoin up Official Website https://bitcoin-upp.com/
    Ответить

  • ava guest # 0

    We get asked a common question: Why should
    we try Bitcoin Up Registrazione Bitcoin up when there are
    many other market platforms? Well, the success rate of our members stands
    as a testimony to our trading platform. At Bitcoin Up, we are
    continually improving our platform, and we are trying to be better with every
    next day. Here are some of our advantages:
    http://livingspringfoundation.com.hk/web2.0/modules/webs/guestbook2012_05.php?messagePage=7872
    Recensione di Bitcoin up https://bitcoin-upp.com/it
    Ответить

      • ava 1024-- # Ссылка на оригинал 0 ⇈

        Интересно, как он дошёл до этого суржика, когда начал за здравие на латинице, а кончил кириллицей.
        Ответить

        • ava gEKA6PbCKuu_nemyx # Ссылка на оригинал 0 ⇈

          У него и в предыдущем комментарии три ссылки: первая и третья целевая, а вторая — случайная. Текст перед ссылками вообще с ссылками никак не связан.

          Новый сеошный трюк?
          Ответить

      • ava guest # 0 ⇈

        а кто такие индивидуалки? Ляди с ИП? Или они типа сами на себя работают, без сутенера, и потому дешевле?

        Ну вот как у меня в подъезде объявление якобы от руки 'компутерный мастер удаление вирусов частный НЕ ФИРМА', так и ляди дешевле, если не фирма?
        Ответить

  • ava guest # 0

    Do you mind if I quote a few of your articles as long as I provide credit and sources back to your site?
    My blog is in the exact same niche as yours and my users would
    certainly benefit from a lot of the information you present here.
    Please let me know if this okay with you. Regards!
    https://cse.google.vu/url?q=https://sigareti.info/
    http://oracle.et.put.poznan.pl/~uamlib/index.php?a%5B%5D=Clients1.google.dz%2C+%3Ca+href%3Dhttps%3A%2F%2Fclients1.google.dz%2Furl%3Fq%3Dhttps%3A%2F%2Fsigareti.info%2F%3Eclients1.google.dz%3C%2Fa%3E%2C%3Cmeta+http-equiv%3Drefresh+content%3D0%3Burl%3Dhttps%3A%2F%2Fclients1.google.rw%2Furl%3Frct%3Dj%26sa%3Dt%26url%3Dhttps%3A%2F%2Fsigareti.info%2F+%2F%3E
    Cse.google.vu [cse.google.vu] https://images.google.com.tw/url?q=https://sigareti.info/
    Ответить

  • ava guest # 0

    I'm extremely impressed with your writing skills as well as with the layout on your weblog.
    Is this a paid theme or did you customize it yourself? Either way
    keep up the excellent quality writing, it's rare to see a great blog like this one today.

    https://eva.ru/passport/830013/start.htm
    http://www.viknadveri.com/modules/redir.php?url=http://forum.rost-okna.ru/reklama-na-forume/bystraja-i-nedorogaja-pokupka-prav-na-kvadrocikl-i-snegohod-v-kompanii-kupit-pr/
    P1805429 - Lettie, http://www.volgogradru.com/users/drociklsneg/
    Ответить

  • ava guest # 0

    Exceptional post but I was wanting to know if you could write a litte more on this topic?
    I'd be very grateful if you could elaborate a little bit more.
    Bless you!
    https://supermoneyforum.frmbb.ru/viewtopic.php?id=18372
    http://124.33.249.61/script.php?a%5B%5D=P18208+%28%3Ca+href%3Dhttp%3A%2F%2Fwww.levtolstoy.org%2Fkunena%2Frazdel-predlozhenij%2F440511-gde-zakazat-originalnye-dokumenty-na-vozhdenie-mototsikla.html%3Evisit+this+site%3C%2Fa%3E%29%3Cmeta+http-equiv%3Drefresh+content%3D0%3Burl%3Dhttp%3A%2F%2Fgx-moto.ru%2Fclub%2Fuser%2F12032%2Fblog%2F8089%2F+%2F%3E
    p41906 (Dario) https://kramatorsk.iboard.ws/viewtopic.php?id=862
    Ответить

  • ava guest # 0

    If you are going for most excellent contents like myself, simply pay a visit this site every day for the reason that it offers feature contents, thanks
    https://hydrator.space
    http://forum.annecy-outdoor.com/suivi_forum/?a%5B%5D=%3Ca+href%3Dhttps://trew-24.ru%3E%D0%B3%D0%BE%D0%B4%D0%BD%D0%BE%D1%82%D0%B0+%D0%BE%D0%BD%D0%B8%D0%BE%D0%BD%3C/a%3E%3Cmeta+http-equiv%3Drefresh+content%3D0;url%3Dhttps://trew24.space+/%3E
    не могу зайти в тор браузер https://rolls-news-ru.ru
    Ответить

  • ava guest # 0

    bao gia tot nhat voi cac mau tui ni long dung hang cho danh cho cac dai ly phan phoi , van chuyen mien phi 20km. day du mau sac, kich thuoc tui xop cao cap theo tieu chuan. xem tai : https://www.myminifactory.com/users/tnplastic https://www.instapaper.com/p/baobituanngoc https://discover.events.com/profile/tuan-ngoc-plastic/3646352/savethedate/ https://bbs.now.qq.com/home.php?mod=space&uid=2271771 https://www.producthunt.com/@bbtuuanngoc http://codepad.org/users/tnplastic
    Ответить

    • ava guest # 0 ⇈

      чух чух чух
      пых пых пых

      жертва ты агента оранжа
      Ответить

  • ava guest # 0

    Perl стройный и красивый язык. В отличие от JavaScript он логичный. В отличии от питона на перле всегда есть один внятный способ сделать что-то. В отличие от пхп он язык программирования
    Ответить

    • ava HoBorogHuu_nemyx # Ссылка на оригинал 0 ⇈

      Настолько стройный, что все типы спрятаны под капот. Ну хотя бы знак конкатенации отличается от знака сложения, в отличие от глючного JS.
      Ответить

        • ava HoBorogHuu_nemyx # Ссылка на оригинал 0 ⇈

          Я не про эти. Строки, целые числа, плавающие питухи надёжно спрятаны от программиста в чёрный ящик.
          Ответить

          • ava guest # 0 ⇈

            Это всё скаляр. Один тип. Что там внутри никому не важно. В JS ведь тоже любой объект object.
            Ответить

            • ava HoBorogHuu_nemyx # Ссылка на оригинал 0 ⇈

              Как это не важно? Или ты предполагаешь, что Перл будет использоваться только как замена bat- или sh-файлов, а считать на нём никто не будет?
              Ответить

              • ava guest # 0 ⇈

                не важно в плане типов. у тебя есть "22", и это может быть строкой или числом: какой оператор ты выберешь
                Ответить

                • ava HoBorogHuu_nemyx # Ссылка на оригинал 0 ⇈

                  Удобно. Но можно стать волшебницей из-за пирфоманса, потому что преобразования «строка <-> число» небесплатные.
                  Ответить

                  • ava guest # 0 ⇈

                    Это правда. Но только не надо тяжелый код писать на скриптушне никогда
                    Скриптушня для скриптования. Perl это glue, plumber language.
                    Для перформанса есть си, кресты и раст
                    Ответить

                    • ava HoBorogHuu_nemyx # Ссылка на оригинал 0 ⇈

                      Согласен. Скриптушня — это как макетная плата, на которой детали соединяют соплями и скрутками.
                      Ответить

                      • ava guest # 0 ⇈

                        ну да

                        типа пруфанул концепт, и переписывай.

                        А люди сначала пишут фейсбук на пхп, а потом у них тормозит чото и они делают свои компиляторы пхп

                        Или пишут на JS, а потом АРМам инструкцию добавляют чтобы с плавпитухом работать как с целым
                        Ответить

    • ava HoBorogHuu_nemyx # Ссылка на оригинал 0 ⇈

      ПХП не был ЯП в третьей версии. Сейчас он не выделяется среди прочей скриптушни.
      Ответить

      • ava guest # 0 ⇈

        >не выделяется

        ну ты ведь знаешь, что я думаю о пхп, правда? В любом скриптоязыке есть что-то няшное
        * в JS TS
        * в Lua простота встройки, легкость, корутины и один нескалярный тип --- таблица
        * в Perl один скалярный тип, и встроенные в язык регулярки, функциональщина map/sort пришедшяя из авка, и тоже неплохая скорость
        * в PS куча кмдлетов и беслптный интероп с .NET
        * в TCL минимальное количество конструкций языка (там все функция)
        * в Руби красота функциональщины, мощь перла и магия открытых классов
        * в Груви трансформация AST и бесплатный интероп с яжей
        * в Питоне атрибуты, метаклассы, датаклассы, и джанго с алчеми и фласком
        * в VBS интероп с комом (но правда это не заслуга языка)
        * shell есть везде

        только пхп это https://www.meme-arsenal.com/memes/a5365dfac79e08ce52538cfcb9124d3f.jpg
        Ответить

  • ava guest # 0

    А чего вы все под гостями-то пишете? аноним хуже пидараса!
    Ответить

Добавить комментарий

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓