Телеграмм чат группы modernperl страница 7670

Коммутативность переоценена

13:30пожаловаться #1

Ivan Bessarabov

Может быть фот этот фрагмент perldoc perlfunc даст ответ на вопрос
https://perldoc.perl.org/perlfunc.html

> Any function in the list below may be used either with or without parentheses around its arguments. (The syntax descriptions omit the parentheses.) If you use parentheses, the simple but occasionally surprising rule is this: It looks like a function, therefore it is a function, and precedence doesn't matter. Otherwise it's a list operator or unary operator, and precedence does matter. Whitespace between the function and left parenthesis doesn't count, so sometimes you need to be careful:

Даже ещё хуже, оно посчитало, что *$val — это глоб, который является аргументом rand()

13:33пожаловаться #2

И да, perl -w было достаточно. Я почему-то так привык полагаться на use common::sense, что думал, что уж про такую-то фигню мне точно сообщат

13:34пожаловаться #3

Ivan Bessarabov in Modern::Perl

perl -e 'my @x = (1); my $i = int(rand * @x);'  
Warning: Use of "rand" without parentheses is ambiguous at -e line 1.
syntax error at -e line 1, near "x)"
Execution of -e aborted due to compilation errors.

я что-то подтупливаю - в чём именно компилятор усмотрел неоднозначность?

13:35пожаловаться #4

Ivan Bessarabov in Modern::Perl

Не так давно было очень похожее

13:35пожаловаться #5

Ivan Bessarabov

perl -e 'my @x = (1); my $i = int(rand * @x);'  
Warning: Use of "rand" without parentheses is ambiguous at -e line 1.
syntax error at -e line 1, near "x)"
Execution of -e aborted due to compilation errors.

я что-то подтупливаю - в чём именно компилятор усмотрел неоднозначность?

Сделай perl -Mdiagnostics -e 'my @x = (1); my $i = int(rand * @x);', оно подробно расскажет
В целом это то самое, что ты кидал выше — rand без скобок работает как унарный оператор, и оно не понимает, что ему делать с унарным оператором, за которым идёт бинарный оператор

13:42пожаловаться #6

Миграция web-приложения (perl 5.18->5.26). База PgSQL в кодировке UTF-8.
В базу попадают такие данные 3-Ð¿Ñ\u0080Ð¸Ð¼ÐµÑ\u0080, из базы через json {"name":"\u0424\u043e\u0440} и в браузере перекодируются в нормальный текст.
Template->new( добавил ENCODING => 'utf8'). Что еще посмотреть?

13:43пожаловаться #7

Насколько я понимаю, проблема была в unicode_strings feature, которую подключает use 5.26.0: https://perldoc.perl.org/5.30.0/feature.html#The-'unicode_strings'-feature

use feature 'unicode_strings' tells the compiler to use Unicode rules in all string operations executed within its scope (unless they are also within the scope of either use locale or use bytes ). The same applies to all regular expressions compiled within the scope, even if executed outside it. It does not change the internal representation of strings, but only how they are interpreted.

13:45пожаловаться #8

Someone Unknown 🇭🇷

use feature 'unicode_strings' tells the compiler to use Unicode rules in all string operations executed within its scope (unless they are also within the scope of either use locale or use bytes ). The same applies to all regular expressions compiled within the scope, even if executed outside it. It does not change the internal representation of strings, but only how they are interpreted.

@mdvor707 оно?

13:45пожаловаться #9

Не влияет на результат.

14:01пожаловаться #10

на дабл енкодинг похоже

14:05пожаловаться #11

Старые данные в базе нормально читаются, но после смены версии perl данные записываются измененными.

14:06пожаловаться #12

в какой то момент времени лишняя кодировка в ютф8 происходит

14:15пожаловаться #13

Mihail Dvornikov

Не влияет на результат.

А выключать пробовал? no feature 'unicode_strings' ?

14:21пожаловаться #14

Оба варианта пробовал и use feature ":5.18.2".

14:28пожаловаться #15

В таблице два вида записей: 1. читаемые, 2. в виде крякозябр (добавлены в новой версии Perl).
В Firefox передается вся таблица и различий между ними не видно :)

14:41пожаловаться #16

Andrei Protasovitski in Modern::Perl

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

15:02пожаловаться #17

$ perl -MEncode -E '$a="поимел"; $a8 = encode("UTF-8", $a); $a88 = encode("UTF-8", $a8); $b88 = decode("UTF-8", $a88); $b8 = decode("UTF-8", $b88); say $b88; say $b8'
Ð¿Ð¾Ð¸Ð¼ÐµÐ»
поимел

15:09пожаловаться #18

Ð¿ — похожая часть

15:10пожаловаться #19

на самом деле, это какой-то современный перл, в более раннем у меня двойной декодинг ломался на некоторых симолах, как тут:

$ perl -MEncode -E '$a="Ð¿Ñ\u0080Ð¸Ð¼ÐµÑ\u0080"; say decode("UTF-8", $a)'
п�0080име�0080