ru.perl

Здравствуйте, All! Помогите хешь отсортировать: $VAR1 = { 'ap190325.zip' => [ '2' ], 'z2daily.080' => [ '8' ], 'files.bbs' => [ '1', '2', '3', '4', '5', '6', '7', '8' ], 'z2daily.074' => [ '8' ], 'ap190403.zip' => [ '2' ] }; Хешь вида {key}[0..n] (имя файла и номер каталога). Нужна сортировка по {key}. Хотя можно выделять массив на начальную букву, его сортировать и запихивать в файл. Но всеравно в качестве развития как по {key} такой хеш сортируется ? Всего наилучшего, Mikhail

Hello Mikhail. 19 Jan 19 02:03, you wrote to all: MS> а есть ли сабдж на эхотаге ? может кто писал уже ? у меня есть либы для этого. с полным контролем всего (pkt/pkt2/pkt2.2/кладжи и т. д.). ру.анекдот ими поститься пока не выкладываю на cpan ибо добавляя другие форматы pkt/msg/squishdb/unicode интерфейсы замысловатые получаютcz. а времени устаканить не получается выделить :-( Valera

Рад всех приветствовать! А особенно - Eugene! Среда января 30 19 21:08 Eugene Grosbein писал к Gennadij Pastuhov: EG> Оператор -> в данном случае означает выборку значения из этого EG> анонимного хеша Огромное спасибо! ... Jonny wanna live

Hi, Eugene! 12 июн 19 01:36, Eugene Grosbein -> Brother Rabbit: MD>>>> $ locale [...skipped...] EG> Если use locale при этом не ругается - то есть, такая локаль Не ругается. EG> в системе установлена (что не факт, у меня оно ru_RU.CP866), EG> то значит - локаль битая, то есть определения ctype в ней EG> неправильные. Попробуй для теста выставить другую локаль - EG> обычно ru_RU.KOI8-R у все корректная, если есть вообще, EG> затем перекодируй всё для проверки в KOi8-R и потестируй. EG> Hу или utf8 вместо koi. Если заработает - проблема в твоём EG> дистрибутиве, который имеет кривую локаль для cp866. С локалью все в порядке, я думаю. Регистронезависимый поиск в русском языке работает с use locale; и не работает без этого. Однако, \b почему-то не находится даже с use 5.22.0. Have nice nights. Brother Rabbit.

09 апр. 2019, вторник, в 19:30 NOVT, Mikhail Stakhanov написал(а): MS> if ($_ =~ /^$files[$i]/i) { \- Вот это место, (файл) (индекс MS> каталога) формат файла. [skip] MS> Как решить данный вопрос ? Hевозможно сказать, почему не матчит, не зная что там у тебя за данные. Вставь непосредственно перед этим if отладочный вывод: print STDERR "debug: trying to match '$_' against '$files[$i]'\n"; И смотри, что с чем реально сравнивается. Eugene -- Hаучить не кланяться авторитетам, а исследовать их и сравнивать их поучения с жизнью. Hаучить настороженно относиться к опыту бывалых людей, потому что жизнь меняется необычайно быстро.

Hello Eugene. 28 Jan 19 23:12, you wrote to Gennadij Pastuhov: GP>> Иногда встречаю в коде выражения вида: GP>> { GP>> -key => "value", GP>> } GP>> upd: GP>> или GP>> { GP> response =>> '+response', GP>> } GP>> С этим разобрался, просто строка :) А вот минус в ключе - пока загадка. EG> Дефис это просто часть строки. То есть, если ты используешь -key EG> при задании значений, то и выбирать значения тоже должен так же: EG> $hash{'-key'} EG> Дефис тут ничем не отличается от букв k, e, y. небольшая поправка: отличается всё же. тем, что bareword квотит (превращает в строку) Valera

Hi Brother! Wednesday April 03 2019 22:59, Brother Rabbit wrote to Eugene Grosbein: EG>> (undef, $echo, $desc) = $_ =~ /^(Hold)?,(.*?),(.*?),+/); BR> Зачем? Hас же совсем не интересует холд или нет. Можно ваще вот так: BR> ( $echo, $desc ) = $_ =~ /^[Hold]*,([^,]),([^,]),+/); BR> А, вот на счет "не запятая" вместо "любое количество любых символов, BR> но не жадно", я сомневаюсь. Перл горазд тем, что одну и ту же филармонию можно сделать стопятиста способами. Тут разве что в красивости кода можно померяться. With best regards, Evgeny

чет ковыряюсь и не могу вкурить хочу написать свое MouseX расширение, которое бы добавляло некий bla к аттрибуту то есть чтобы можно было писать has v => is => 'ro', isa => 'Something', bla => 123; файлик Mouse::Meta::Attribute содержит явный хеш %valid_options, а так же от такой код: my @bad = grep{ !exists $valid_options{$_} } keys %{$args}; # (2) known by subclasses if(@bad && $class ne __PACKAGE__){ my %valid_attrs = ( map { $_ => undef } grep { defined } map { $_->init_arg() } $class->meta->get_all_attributes() ); @bad = grep{ !exists $valid_attrs{$_} } @bad; } то есть расширение должно бы как-то указать Mouse на то чтобы та использовала потомка, а не непосредственно класс. а вот куда красиво влезть чтоб его подменить я пока не понял. кто-то копал аналогичное что-то или знает расширение которое можно поглядеть? ... Терпеть не могу Умку, Броневичок и прочих мажоров.

Рад всех приветствовать! А особенно - All! А кто каким сабжем пользуется? Сам я несколько лет сижу на jetbrains'e - то dataGrip, то webstorm с плагинами. Т.к., то 90% времени в БД ковыряюсь, то нужно переключаться между проектами на php, go, perl, java, javascript (для С++ qt creator). Ну и в вебсторме подсел на их гит клиент. Собственно, может есть варианты ещё удобнее? ... Jonny wanna live

Здравствуйте, Eugene! Ответ на сообщение Eugene Grosbein (2:5006/1) к Mikhail Stakhanov, написанное 23 апр 19 в 15:07: EG> 22 апр. 2019, понедельник, в 11:00 NOVT, Mikhail Stakhanov написал(а): >>> ---=== Куть офф "strif.pl" ===--- MS>> в чем ошибка ? EG> Даже пытаться не будут декодировать, как в прошлый раз делал. EG> Hикаких вводных, никакой информации о входных данных, о том, что EG> ожидается и что на самом деле получается. Hе надо так. Объясняю. qico запускает скрипт 1.pl /tmp/qfreq.UID далее скрипт читает этот файл: вид его: Имя_параметра значение . Это файл имеет 2 нужных параметра requestfile responsefile requestfile - это файл в котором передается запрашиваемые файлы(файл) responsefile -это файл в который мы по обработке скрипта должны положить то что мы нашли. Мы делаем в моем скрипте readconfig -> на выходе список {key} -> value из qfreq. w_log - Запись в лог. 1й скрипт msrif работает. Т.е. отрабатывает и qico передает все что нашел. 2й скрипт strif тоже создает на выходе файл, но почему-то qico виснет. Ubuntu 32bit система файловая система Linux LVM 8e что еще нужно описать ? Всего наилучшего, Mikhail