В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Modern::Perl

372 membersпожаловаться на группу
2019 December 25

AS

Alexey Stavrov in Modern::Perl
Anton Petrusevich
кто говорит, что компиляция во внутренний байткод — не компиляция, что вы думаете про jvm?
Не знаю, что подразумевается под этим вопросом.

Думаю, что там иногда бывает JIT. Это то, что планировалось услышать/прочитать в ответ?
источник
07:11пожаловаться#1

AR

Alexander Ru in Modern::Perl
Добрейшего всем!
Подскажите пожалуйста, есть  кусок кода
use utf8;
use feature 'unicode_strings';
use strict;
use warnings;

...
$tariff = текст прочитаный из файла с наименованиями тарифов
if ( grep( /^$tariff$/i, @tariffs ) == 0 ) {
 push @tariffs, $tariff;
}
беда в том, что он добавляет уже существуюущее в массиве @tariffs название тарифа. Подскажите куда копать?
источник
10:33пожаловаться#2

K

Kolunchik in Modern::Perl
а файл как вычитан, с чомпом? точно совпадает?
источник
10:35пожаловаться#3

AR

Alexander Ru in Modern::Perl
if ( open($fh, $txt_data_file) ) {
       while (my $row = <$fh>) {
           chomp $row;
           ($avt,..........) = split(/;/, $row);
источник
10:36пожаловаться#4

AR

Alexander Ru in Modern::Perl
данные в файле в утф8
источник
10:36пожаловаться#5

AR

Alexander Ru in Modern::Perl
Переделал на такой "поиск"
foreach $tt (@tariffs) {
 $tfound=1 if (uc($tt) eq uc($tariff));
 last if ($tfound);
};
Все работает исключительно. Но, сами понимаете, это не наш метод!
источник
10:38пожаловаться#6

AR

Alexander Ru in Modern::Perl
причем настолько непонятно, некоторые имена тарифов(которые уже существуют) не добавляет, некоторые добавляет(это с грепом)
источник
10:39пожаловаться#7

K

Kolunchik in Modern::Perl
там небось всякое в названиях, надо экранировать в регулярке
источник
10:40пожаловаться#8

AR

Alexander Ru in Modern::Perl
да че там всякого? смотрю в отладке, на вид название один в один, а греп его "нехочет"
источник
10:42пожаловаться#9

K

Kolunchik in Modern::Perl
например тирешки и кавычки
источник
10:43пожаловаться#10

AR

Alexander Ru in Modern::Perl
не, этого нет, это безжалостно удаляется
источник
10:44пожаловаться#11

K

Kolunchik in Modern::Perl
то есть /^\Q$tariff\E$/i не помогает?
источник
10:50пожаловаться#12

P

Pavel in Modern::Perl
Всем привет! А кто-нибудь делал SSR на vue.js + Mojolicious на бэке?
источник
10:52пожаловаться#13

P

Pavel in Modern::Perl
вот гуглю - нашел фронтендера из appfollow, который пишет в резюме:
- Склеил React и legacy (Mojolicious) разделы личного кабинета SPA-роутингом.
:(
источник
10:53пожаловаться#14

IB

Ivan Bessarabov in Modern::Perl
Alexander Ru
Переделал на такой "поиск"
foreach $tt (@tariffs) {
 $tfound=1 if (uc($tt) eq uc($tariff));
 last if ($tfound);
};
Все работает исключительно. Но, сами понимаете, это не наш метод!
ксати в сравнкнии через uc/lc есть свои тонкости. Вроде как правильнее для сравнения использовать fc — https://www.effectiveperlprogramming.com/2012/02/fold-cases-properly/
Effectiveperlprogramming
Fold cases properly
You might think that you know how to compare strings regardless of case, and you’re probably wrong. After you read this Item, you’ll be able to [...]
источник
10:54пожаловаться#15

AR

Alexander Ru in Modern::Perl
Kolunchik
то есть /^\Q$tariff\E$/i не помогает?
ОУ! СПАСИБО ТЕБЕ МИЛ Человек! - помогло!
источник
10:54пожаловаться#16

P

Pavel in Modern::Perl
или даже просто кто-то делал серверный рендеринг на бэке с Perl  (mojo, dancer, catalyst, любое другое)
источник
10:59пожаловаться#17

AR

Alexander Ru in Modern::Perl
Ivan Bessarabov
ксати в сравнкнии через uc/lc есть свои тонкости. Вроде как правильнее для сравнения использовать fc — https://www.effectiveperlprogramming.com/2012/02/fold-cases-properly/
Effectiveperlprogramming
Fold cases properly
You might think that you know how to compare strings regardless of case, and you’re probably wrong. After you read this Item, you’ll be able to [...]
Спасибо за подсказку. Те строки были что-то вроде "отчаяния" на "тему почему не работает??"
источник
11:02пожаловаться#18

AP

Anton Petrusevich in Modern::Perl
Alexander Ru
данные в файле в утф8
А где Utf8 лейер в параметрах open?
источник
11:02пожаловаться#19

AP

Anton Petrusevich in Modern::Perl
С телефона не могу сказать что за фича unicode_strings
источник
11:03пожаловаться#20