ru.perl

Hi, Eugene! 24 ноя 18 11:55, Eugene Grosbein -> Brother Rabbit: BR>> Подскажите, есть ли готовые библиотеки для работы с JAM базой и BR>> где взять? EG> Как нынче модно спрашивать, в гугле забанили? Типа того... ;) EG> Первая ссылка по запросу perl fidonet jam Между тем, по запросу "perl jam fido" находится всякая фигня, к Фидо вообще отнощения не имеющая. EG> это ответ на твой вопрос: http://ftnpl.sourceforge.net/ftnpljam.html https://sourceforge.net/projects/ftnpl/files/ftn-jam/ - пусто. EG> ftnpljam - FTN::JAM - Perl module for processing JAM message bases. EG> А оттуда ссылка на общее гнездо всех перловых модулей CPAN EG> (нынче metacpan): https://metacpan.org/release/FTN-JAM Ага. Спасибо. Изучаю. ЗЫ: Сорсфордж очень не любит крымчан. Have nice nights. Brother Rabbit.

Привет, Brother! 09 June 2019 13:49, Brother Rabbit послал(а) письмо к All: BR> $words = 'по закону'; BR> @wrds = split(" ", $words); BR> foreach $w ( @wrds ) { BR> $found = 0 if $text ~= /$w/i; BR> } BR> Находит "по новому закону", "попа закону", "гипопотам не указ закону". BR> Цель же найти тролько слово целиком. Не совсем понял, что ты хочешь. #!/usr/bin/perl my $words = "по закону"; my $text = "гипопотам закону не указ"; my @wrds = split(" ", $words); my $found = 0; foreach my $w ( @wrds ) { print "w = $w\n"; if($text =~ /$w/i) { $found = 1; last; } } print "found = $found\n"; Находит "по" в слове "гипопотам". Это то, что ты хотел? Желаю успехов, Brother! За сим откланиваюсь, Michael. ... node (at) f1042 (dot) ru

09 июля 2019, вторник, в 10:41 NOVT, Stas Mishchenkov написал(а): AV>> И на то, что ТС начисто проигнорировал рекомендации держать фидошный AV>> софт в локали KOI8-R. SM> Объясни простым языком, зачем нужна двойная перекодировка? Чтобы корректно работал софт, заточенный только под KOI8-R и который никто уже не будет переписывать под другие кодировки. Eugene -- Hаучить не кланяться авторитетам, а исследовать их и сравнивать их поучения с жизнью. Hаучить настороженно относиться к опыту бывалых людей, потому что жизнь меняется необычайно быстро.

Привет Mikhail! 07 Апр 19 23:13, Mikhail Stakhanov -> Gennadij Pastuhov: MS> Я в фаре пока все пишу. MS> И сегодня я осознал что хеш мне не нужен, у меня просто 2х2 таблица, MS> т. е. массив. Hо уже индекс допилил. Перепишу потом. Сейчас нужно MS> поиск сделать и можно будет 1ю версию тестировать. :) За неделю MS> допишу. Попробуй хотя бы "Komodo IDE" для perl-а вполне, подсветка синтаксиса, отладчик. До свидания, Yura.

Hi, Evgeny! 04 апр 19 01:35, Evgeny Chevtaev -> Brother Rabbit: EG>>> (undef, $echo, $desc) = $_ =~ /^(Hold)?,(.*?),(.*?),+/); BR>> Зачем? Hас же совсем не интересует холд или нет. Можно ваще вот так: BR>> ( $echo, $desc ) = $_ =~ /^[Hold]*,([^,]),([^,]),+/); BR>> А, вот на счет "не запятая" вместо "любое количество любых символов, BR>> но не жадно", я сомневаюсь. EC> Перл горазд тем, что одну и ту же филармонию можно сделать стопятиста EC> способами. Тут разве что в красивости кода можно померяться. Я об этом. Просто в первом случае очевидно, что попадет все до запятой, во тором "нежадность" выглядит не так однозначно. Have nice nights. Brother Rabbit.

18 февр. 2019, понедельник, в 17:45 NOVT, Valera Kolesnik написал(а): VK> $ perl -e 'use strict; my $h = { key => "v", -key, "w" }; print $$h{key}, VK> $$h{-key}' VK> vw VK> ^^^^^ EG>> Совершенно никакой разницы и дефис ничего не квотит. EG>> Просто perl разрешает barewords в качестве ключей даже при use strict EG>> и дефис на первой позиции - допустимый символ в barewords наравне с VK> буквами. VK> это неправильные утверждения. VK> Unary "-" ... VK> If the operand is an identifier, a string consisting of a minus sign VK> concatenated with the identifier is returned. VK> ... VK> One effect of these rules is that "-bareword" is equivalent to the string VK> "-bareword". VK> что я выше и продемонстрировал убрав толстую запятую Спор ни о чём, так как это полностью эквивалентные в практическом смысле определения. То же можно сказать не только про минус, но и про любую другую букву и это будет верно на практике. Eugene -- Choose no life

Здравствуйте, Eugene! Ответ на сообщение Eugene Grosbein (2:5006/1) к Mikhail Stakhanov, написанное 09 апр 19 в 16:19: EG> строк: if ($current eq $files[$i]) Да это работает! НО! $files[$i] - это считанный шаблон, и вот эти преобразования давали маску поиска: Под актив перл все работает: for (my $i = 0; $i < scalar(@files); $i++) { ($parts[0], $parts[1]) = ($1,$2) if ($files[$i] =~ /^(.{1})(.*)/); open FFile, "<", "$index_dir"."str_"."$parts[0]".".idx" or die "ssf"; \- открываем файл на начальную букву запроса, если первый символ ? или *, то печалька, пока не реализуем :) %dirs = read_config("$index_dir"."dirs.lst"); my $d_found = (); my $current = (); $files[$i] =~ s/\./\\.{1}/g if ($files[$i] =~ /\./); $files[$i] =~ s/\?/\.{1}/g if ($files[$i] =~ /\?/); $files[$i] =~ s/\*/\.\*/g if ($files[$i] =~ /\*/); while () { if ($_ =~ /^$files[$i]/i) { \- Вот это место, (файл) (индекс каталога) формат файла. ($current) = $_ =~ /^(.*?)\s/i; ($d_found) = $_ =~ /\s(.*)$/i; foreach my $key (sort keys %dirs) { if ($dirs{$key} == $d_found) { \- %dirs = { [путь] => [номер] } $files_found[$j] = $key."/".$current; } } print "$files_found[$j]"; $j++; } } close FFile; } if $current eq $files[$i] этого не даст. Как решить данный вопрос ? Всего наилучшего, Mikhail

Рад всех приветствовать! А особенно - Eugene! Среда января 16 19 02:15 Eugene Grosbein писал к Gennadij Pastuhov: GP>> Кто-нибудь юзает сабж? Как можно его установить в последнем debian 9? EG> Инструкцию по сборке-то читал? http://xerces.apache.org/xerces-p/ EG> Ставишь xerces-c3, прописываешь переменные как в инструкции, EG> а потом как любой непакетированный перловый модуль: EG> perl Makefile.PL && make && make test && make install EG> Или рисуешь пакет сам. Спасибо, решил вопрос поднятием докера с центосью, в которой сабж нужной версии :) ... Jonny wanna live

Hello Eugene. 18 Feb 19 11:55, you wrote to me: EG>>> Дефис это просто часть строки. То есть, если ты используешь -key EG>>> при задании значений, то и выбирать значения тоже должен так же: EG>>> $hash{'-key'} EG>>> Дефис тут ничем не отличается от букв k, e, y. VK>> небольшая поправка: отличается всё же. тем, что bareword квотит (превращает в VK>> строку) EG> Hет. вообще-то, да EG> $ perl -e 'use strict; my $h = { key => "v", -key => "w" }; print $$h{key}, $$h{-key}' EG> vw $ perl -e 'use strict; my $h = { key => "v", -key, "w" }; print $$h{key}, $$h{-key}' vw ^^^^^ EG> Совершенно никакой разницы и дефис ничего не квотит. EG> Просто perl разрешает barewords в качестве ключей даже при use strict EG> и дефис на первой позиции - допустимый символ в barewords наравне с буквами. это неправильные утверждения. Unary "-" ... If the operand is an identifier, a string consisting of a minus sign concatenated with the identifier is returned. ... One effect of these rules is that "-bareword" is equivalent to the string "-bareword". что я выше и продемонстрировал убрав толстую запятую Valera

Hi, Alexey! 13 июн 19 22:11, Alexey Vissarionov -> Eugene Grosbein: AV> И на то, что ТС начисто проигнорировал рекомендации держать фидошный AV> софт в локали KOI8-R. Объясни простым языком, зачем нужна двойная перекодировка? Have nice nights. Stas Mishchenkov.