darviarush Oct 17 2021 at 19:54

Об использовании пустого регулярного выражения в Perl ( m// )

4 min

3.7K

Perl*

+24

Comments 18

onix74 Oct 17 2021 at 22:05

Испытываю слабость к perl. Необъяснимую. Есть в нём что-то... Правда, давно не доводилось им пользоваться и упоминаний о нем все меньше. Начал было думать, что он умер. Но две Ваши последние статьи вселили надежду. :-) Спасибо!

darviarush Oct 17 2021 at 22:27

Perl не умер, его постоянно совершенствуют, выпускаются новые версии. Поддерживается инфраструктура. Проводятся конференции. Выпускаются журналы. В России есть вакансии perl-разработчиков, на нём написаны сайты крупных компаний и, как я упоминал в комментариях к одной из своих статей - появляются и стартапы.

Изучение же perl - осознанный выбор программиста, в то время, как изучение python или php - часто по рекомендации друга, что вот, мол - "там больше платят" или "его легче освоить".

onix74 Oct 17 2021 at 22:37

Было время, когда он у нас был единственным вариантом "биллинга" интернет-трафика. Сами писали анализ логов squid и принятие решения по результатам. Эх! Классное время было! :-) Но, к сожалению, в данный момент как-то не находится ниши для перла. А жаль! С удовольствием бы его использовал.

checkpoint Oct 17 2021 at 22:28

Это все сильно походит на баго-фичу. Т.е. на самом деле это бага, вызванная кривостью имплементации, но она была задокумнетирована и теперь является ценной фичей, вошедшей в оборот. И по этой самой причине исправлять её никто не собирается.

darviarush Oct 17 2021 at 22:36

Да, было бы неплохо, чтобы perl обращал внимание на переменную внутри регулярки /$re/. Тем не менее теперь, когда я узнал о такой особенности, я её буду всегда учитывать и багов с ней недопущу.

Deosis Oct 18 2021 at 07:41

А как подобное работает с многопоточностью? Последняя использованная регулярка одна на приложение или поток?

Если первое, то это кошмар, надеяться, что в другом потоке не будет вызвана регулярка.

darviarush Oct 20 2021 at 20:18

Долго ли проверить? )

perl -e 'use threads ("yield",
             "stack_size" => 64*4096,
             "exit" => "threads_only",
             "stringify"); 
  @x = map { 
    my $x=$_; 
    threads->create(sub { 
       /$x/; sleep 3-$x; print "$x) ", $x=~//? 1:0, "\n"; 
    }) 
  } 1..2; 
  $_->join for @x'
2) 1
1) 1

Последняя использованная регулярка одна на поток.

insecto Oct 18 2021 at 05:10

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

+11

zzzzzzzzzzzz Oct 18 2021 at 18:28

Это такая детская жуть.

Если хотите ощутить настоящие эмоции, советую попробовать писать CMD-шники для Windows. Вот это по-настоящему демоническая штука. Но при этом хитрая: сначала кажется, что там всё просто. А вот чем больше узнаёте, тем больше поглощает вас эта бездна...

Например, я на днях хотел написать скриптик и внезапно понял, что больше не знаю, как в CMD правильно сравнивать строки.

darviarush Feb 21 2022 at 23:42

Так в документации написано, что или без пробелов между операндами и равно, или брать операнды в кавычки, как в баше:

String syntax
   IF [/I] [NOT] item1==item2 command
   IF [/I] [NOT] "item1" == "item2" command

   IF [/I] item1 compare-op item2 command

   IF [/I] item1 compare-op item2 (command) ELSE (command)
   
      compare-op  can be one of
                EQU : Equal
                NEQ : Not equal

                LSS : Less than <
                LEQ : Less than or Equal <=

                GTR : Greater than >
                GEQ : Greater than or equal >=
                
IF will only parse numbers when one of (EQU, NEQ, LSS, LEQ, GTR, GEQ) is used.
The == comparison operator always results in a string comparison.

Ссылка: https://ss64.com/nt/if.html

zzzzzzzzzzzz Mar 30 2022 at 18:28

Это не всегда работает, если в сравнении участвуют переменные или параметры.

Самый простой пример. Делаю CMD с содержимым

if "%*" == "123" echo EQUAL

Вызываю с одной двойной кавычкой в качестве параметра. Получаю "Ошибка в синтаксисе команды."

blind_oracle Oct 18 2021 at 08:50

Последний раз писал на Перле лет 10 назад и часто через месяц не мог прочитать что сам написал :) Особенно если налягать на контекстную переменную.

С тех пор его не трогал и волосы стали мягкими и шелковистыми :)

UFO just landed and posted this here

darviarush Feb 21 2022 at 23:28

Хорошая разминка для ума, правда? )

soondook Feb 21 2022 at 23:27

Perl - лютая жуть... Выпилили его отовсюду!

darviarush Feb 21 2022 at 23:27

Ещё нет, я пока на нём работаю )

nuclight Apr 21 2022 at 13:36

Судя по картинке, используется GUI на Tk или Tkx? :)

darviarush Apr 23 2022 at 10:59

На Tk. Tkx добавлет стили, а так же несколько различаются опции виджетов; нет виджета listbox, зато есть Treeview. C другой стороны мне не понравился префикс перед конструкторами виджетов. Так что на картинке listbox. )

Show the best of all time