Утилитарные задачи веб прогр. от простого к сложному, ddp, (Perl) 24-Ноя-22, 01:35  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

не нужно начинать програмить в 40, если не готов быть джуном лет 5 И точно не н, pavel_simple. (?), 08:24 , 24-Ноя-22 (1) кхм, а с чего это вы взяли что джун это нулевые знания вообще, джун должен зна, Аноним (3), 02:21 , 27-Ноя-22 (3) Тебе бы к доктору Сслылки на твои фантазии будут на job ru Тысячами, раз ты так , Валерий (??), 02:44 , 28-Ноя-22 (4) Д Артаньян Это ты , pavel_simple. (?), 09:39 , 28-Ноя-22 (6) Перл отлично учится по книжкам с ламой и Higher Order Perl Больше ничего не нуж, Аноним (2), 15:48 , 24-Ноя-22 (2) +2 Higher Order Perl не замечал, спасибо за ответы, ddp (?), 08:23 , 30-Ноя-22 (10) gt оверквотинг удален может, тогда лучше настоящий язык для ФП выучить для пер, Аноним (-), 22:57 , 30-Ноя-22 (13) +1 Что значит лучше Языки учат не чтобы найти единственный и до пенсии на нем писа, Аноним (16), 13:23 , 01-Дек-22 (16) А почему, собственно, перл Он не то, чтобы сильно популярен в настоящее время , username (??), 09:39 , 28-Ноя-22 (5) Перл стоит учить, потому что это один из языков, которые делают программиста сил, Аноним (16), 11:12 , 29-Ноя-22 (8) Опять же, много что пишут в этих ваших интернетрах про ЯП, но в моем случае, эта, ddp (?), 08:20 , 30-Ноя-22 (9) Именно по этому вам лучше не рассчитывать на технологии, которые будут приводить, Azudim (??), 16:43 , 30-Ноя-22 (12) Перловики делятся на два в общем типа Это нестандартные пхпшники либо умелые си, Аноним (16), 09:59 , 01-Дек-22 (14) Хочешь освоить технологию - сперва продай её Без шуток Свой первый проект на P, Azudim (??), 14:11 , 30-Ноя-22 (11) А вот наглядный пример, почему легаси ERP CRM на перле такое гуано Вы не освоил, Аноним (16), 12:04 , 01-Дек-22 (15) Обо мне вы кажется знаете даже больше, чем о ERP на Perl --Алло, вы программы , Azudim (??), 13:28 , 01-Дек-22 (17) Так уже давно все должно быть автоматизировано В экселе на коленке люди со врем, Аноним (16), 17:44 , 01-Дек-22 (18) Кто то разве сказал про изучение неважно что Возьмем отчет об инфраструктуре, Azudim (??), 22:12 , 01-Дек-22 (19)

Почему НЕ всегда срабатывает поиск подстроки?, Владимир, (Perl) 11-Авг-20, 10:05  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

gt оверквотинг удален покажите исходные файлы со строками и результат, ss (??), 11:29 , 11-Авг-20 (1) gt оверквотинг удален LI A href https www youtube com watch v 2Rf01iJGS2g, Владимир (??), 13:35 , 11-Авг-20 (4) gt оверквотинг удален возможно это ссылки содержащие в себе вопросительный зна, ss (??), 12:40 , 11-Авг-20 (2) gt оверквотинг удален Да, в теле этих ссылок содержится вопросительный знак И , Владимир (??), 13:43 , 11-Авг-20 (5) а перл нормально к таким подстановкам относится В смысле спецсимволы дополнител, Аноним (3), 12:40 , 11-Авг-20 (3) Скорее всего в этом и проблема, но как эту ситуацию обработать я не знаю Не вижу, Владимир (??), 13:51 , 11-Авг-20 (6) наверно так CODE m Q p CODE ну да, простое сравнение строк не идет ни в какой, Аноним (3), 14:00 , 11-Авг-20 (7) Сработало Спасибо большое , Владимир (??), 14:13 , 11-Авг-20 (8)

Возможно ли на regexp perl удалить определенное число байтов?, zhukovia, (Perl) 05-Фев-20, 13:29  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

Забыл добавить подобная последовательность x00 x00 может быть не один раз вну, zhukovia (ok), 13:41 , 05-Фев-20 (1) На перле это делается как два пальца об асфальт, остается только понять что тако, Pahanivo (ok), 14:10 , 05-Фев-20 (2) +1 Согласен что нужно четко описывать, но проблема в том что эти 1-2 символа никак , zhukovia (ok), 07:23 , 06-Фев-20 (6) Это сферическое черезжопу в вакууме Внизу есть решение нарезки по 70 , Pahanivo (ok), 12:27 , 06-Фев-20 (10) Что-то такое, если я вас верно понял clean do use bytes str s 68 x0, Аноним (3), 00:14 , 06-Фев-20 (3) Так оно не проверит на xE3 x33 Нужно тщательнее clean do use bytes str , ACCA (ok), 01:11 , 06-Фев-20 (4) Если в данных не бывает 0 0, удаляемый кусок всегда 70 байт и оканчивается двум, Аноним (3), 03:31 , 06-Фев-20 (5) x00 - что это значит Есть ххх заглядывание вперед xxx заглядывание , Pahanivo (ok), 12:20 , 06-Фев-20 (8) Думал сначала написать x00 , а потом исправил и знак равно забыл убрать Ре, Аноним (3), 00:47 , 07-Фев-20 (11) Дак афтур и толком задачу не сформулировал - в оригинальной формулировке ее вооб, Pahanivo (ok), 14:02 , 07-Фев-20 (14) Примерно же понятно Есть какой-то бинарный протокол, по которому чанки данных и, Аноним (3), 14:37 , 07-Фев-20 (15) x00 как я понимаю эта конструкция будет искать x00 2 после которых нет , zhukovia (ok), 07:29 , 06-Фев-20 (7) видимо тут x00 , и видимо оно будет учитывать что в мусоре x00 не только в , Pahanivo (ok), 12:26 , 06-Фев-20 (9) Да, - опечатка, должно быть Конструкция смотрит 2 нулевых байта, после кот, Аноним (3), 00:50 , 07-Фев-20 (12) Значит я правильно понял , Pahanivo (ok), 14:01 , 07-Фев-20 (13) Этому определению строки строго соответствует регексп code 0,2 xE3 x33 , U.N.Owen (?), 14:05 , 08-Фев-20 (16) –1 Ага Разжуй две ситуации, в которых твой regex не сработал 1 Перед xE3 x33 , ACCA (ok), 21:06 , 10-Фев-20 (17) И 0, 2 , если что, включает в себя 1 Регексп работает и ожидает 70 символов , U.N.Owen (?), 19:45 , 28-Мрт-20 (18)

Странное поведение хеша в perl ???, tian, (Perl) 25-Сен-19, 09:16  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

В очередной раз поизучал маны, кажется наступил на очевидные грабли Все-таки я, tian (ok), 09:37 , 25-Сен-19 (1) Вот для копирования набросал такую функцию, может кому поможет sub copy_hash , tian (ok), 10:25 , 25-Сен-19 (2) Вложенная структура в данном случае это хеш ссылок на анонимные хеши Ключи перв, Pahanivo (ok), 09:00 , 26-Сен-19 (3) Не нужно изобретать велосипед use Clone , ACCA (ok), 06:30 , 27-Сен-19 (4)

awk не выполняется в perl скрипте, rammon, (Perl) 15-Дек-18, 13:41  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

my var uptime 124 awk print 10 print var иhttps metacpan org po, VladimirV (ok), 14:07 , 15-Дек-18 (1) +1 usr bin awk вместо awk, ну и экранировать, erera22 (ok), 17:08 , 21-Дек-18 (2) Это извращение вызывать awk из перла , NuINu (??), 09:41 , 24-Янв-19 (3) my t1 split , uptime 10 print t1 n , NuINu (??), 09:58 , 24-Янв-19 (4)

Прочитать файл в переменную, зазиповать и выдать в браузер, Афоня, (Perl) 12-Дек-18, 09:32  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

gt оверквотинг удален Бессмысленный скрипт Веб сервер умеет отдавать статичны, ыы (?), 12:05 , 12-Дек-18 (1) Статичный для примера, в реальности лог дёргается по сетевому пути и подсовывани, Афоня (?), 12:24 , 12-Дек-18 (3) Ага, указаны В конце файла ZIP - самый неудобный формат для больших потоков И, ACCA (ok), 09:07 , 13-Дек-18 (6) у вас там какое-то корпоративное табу на монтирование сетевых ресурсов , Pahanivo (ok), 22:42 , 13-Дек-18 (8) Вам для начала надо ознакомится с матчастью А по наитию вы так и продолжите , ыы (?), 08:41 , 16-Дек-18 (10) gt оверквотинг удален 1 Не использавать binmode для текстовых файлов 2 Читат, Pahanivo (ok), 12:10 , 12-Дек-18 (2) А ещё включить gzip на лету в том же апаче Вообще ничего писать не нужно , ACCA (ok), 09:09 , 13-Дек-18 (7) Афтар на своей волне походу - через опу но по своему , Pahanivo (ok), 22:43 , 13-Дек-18 (9) http yaforyou ru q perl 20create 20zip 20archive 20on 20the 20flyпо первой же, михалыч (ok), 12:49 , 12-Дек-18 (4) Спасибо , Афоня (?), 16:54 , 12-Дек-18 (5)

Преобразование уникода, abut, (Perl) 18-Фев-17, 18:47  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

code usr bin perluse Encode text u041b u044e u0431 u0435 u0440 u0435 u044, михалыч (ok), 05:06 , 19-Фев-17 (1) сорри, я наверно как то сформулировал не так Нужно получить в той же кодировке , abut (ok), 10:56 , 19-Фев-17 (2) Чтобы вывести текст надо вывести измененное содержимое переменной text print t, PavelR (??), 11:01 , 19-Фев-17 (3) И это опять не подойдёт Заказчику echo u041b u044e u0431 u0435 u0440 u0435 u04, Andrey Mitrofanov (?), 11:52 , 19-Фев-17 (4) Да, чего-то не подходит , PavelR (ok), 11:53 , 19-Фев-17 (5) --агхр sed s u , 0x g s , 124 recode u2 x2 , Andrey Mitrofanov (?), 11:54 , 19-Фев-17 (6) +1 да хотелось бы именно на перл и без вызова внешних программ На питоне в 2 строчк, abut (ok), 12:10 , 19-Фев-17 (8) –1 Спасибо, пришлось все же воспользоваться Вашим решением, единственно что для rec, abut (ok), 15:22 , 22-Фев-17 (11) 124 -D Ещё долго седые опенетовцы рассказывли детям предания, как Митрофанов, Andrey Mitrofanov (?), 16:35 , 22-Фев-17 (12) да конечно посыпаю голову пеплом , михалыч (ok), 11:57 , 19-Фев-17 (7) виноват, исправляюсь code usr bin perluse Text Iconv text u041b u044, михалыч (ok), 20:52 , 19-Фев-17 (9) не могу проверить, на хостинге модуль Text Iconv отсутствует, но похоже что это, abut (ok), 15:19 , 22-Фев-17 (10) сам iconv есть тогда code usr bin perl text u041b u044e u0431 u0435 u044, михалыч (ok), 20:16 , 22-Фев-17 (13) ------------8 --------------------------------------sh line 1 warning here-do, abut (ok), 20:45 , 22-Фев-17 (14) Не нужно вызывать sed recode из Perl, это извращение в три процесса на строку my, ACCA (ok), 22:02 , 01-Мрт-17 (15) +1 класс это здо 769 рово спасибо за пример использования chr и hexтем самым пол, михалыч (ok), 09:58 , 06-Мрт-17 (16) s u pack U , hex 1 eg , Аноним (17), 21:37 , 11-Июл-18 (17)

Perl и символ $, Перспективный, (Perl) 12-Сен-17, 18:57  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

Правильно очевидно - не использовать двойные кавычки там где вы не хотите чтобы , ыы (?), 23:45 , 12-Сен-17 (1) Спасибо так работает, но я получаю данные без экранирования, и меня конечно инте, Перспективный (?), 05:41 , 13-Сен-17 (2) потому что однострочник с неэкранированным спецсимволом одинарная кавычка , ЫЫ (?), 10:52 , 13-Сен-17 (3) для линукса под виндой не сработает, экранироваь надо по другому perl -e p , ЫЫ (?), 10:59 , 13-Сен-17 (4) Можно проще code perl -E my p q aa bb cc p s S XXX g say p cod, XAnder (ok), 12:25 , 13-Сен-17 (5) Ну Мне кажется вообще странным желание решать задачу через однострочник, подст, ЫЫ (?), 13:55 , 13-Сен-17 (6)

Класс символов /\C/ в рег. выражениях устарел. как заменить ?, VladimirV, (Perl) 13-Фев-17, 17:57  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

Насколько я понимаю, здесь всего лишь проверяется, что get возвращает непустую с, XAnder (ok), 12:48 , 14-Фев-17 (1) C соответствует одному байту С char тогда можно заменить на точку или ил, VladimirV (ok), 17:50 , 14-Фев-17 (2) Если непременно нужно регулярное выражение, то попробуйте точку Только помните,, XAnder (ok), 09:12 , 15-Фев-17 (3)

запуск процесса и получение его PID, hamel1on, (Perl) 20-Янв-17, 11:36  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

2 1 , возможно 2 1 , Andrey Mitrofanov (?), 13:40 , 20-Янв-17 (1) варианты procnum redir --lport 0 --caddr srcip --cport port dev null 2 , hamel1on (ok), 14:46 , 20-Янв-17 (2) Не покатит, видимо внешние - это запуск еще одного ниже тек perl-а шела, Andrey Mitrofanov (?), 15:34 , 20-Янв-17 (3) Мыслим Ж вне коробки-шела-оболочки http perldoc perl org functions fork html, Andrey Mitrofanov (?), 15:39 , 20-Янв-17 (4)

помогите с простенькой задачкой, visitor, (Perl) 14-Янв-17, 19:24  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

Это в каком классе сейчас такие примитивные задачки сейчас задают , Led (ok), 21:27 , 14-Янв-17 (1) gt оверквотинг удален Иногда скорость не имеет решающего значения Есть задачи, Square1 (?), 22:35 , 14-Янв-17 (2) Ну что же, сам напросился - получай code usr bin perlopen DOMAIN, path t, михалыч (ok), 08:45 , 15-Янв-17 (3) А тебя ещё чуть выше предупредили про медленный греп В перле нет чего побыс, Andrey Mitrofanov (?), 11:22 , 15-Янв-17 (4) Правильно Решение на awk не будем показывать , universite (ok), 19:03 , 15-Янв-17 (5) user awk BEGIN mail som example com dom substr mail,index mail, 1 pri, Andrey Mitrofanov (?), 09:31 , 16-Янв-17 (7) да что за предъявы сижу никого не трогаю, починяю примусна перле заказывали пол, михалыч (ok), 20:56 , 15-Янв-17 (6) Да, я так, погулять вышел Греп тормоз, да Я пробовал поанализировать в сторо, Andrey Mitrofanov (?), 09:40 , 16-Янв-17 (8)

DBI постоянное соединение, krpsh, (Perl) 05-Июн-16, 17:09  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

Может, стоит просто делать проверку доступности удаленного хоста с базой перед т, test (??), 19:30 , 05-Июн-16 (1) Это все понятно, код который я привел - тестовый Т е я поднимаю канал, запускаю, krpsh (?), 21:59 , 05-Июн-16 (2) gt оверквотинг удален Замостите полную версию скрипта С проверкой ping , Аноним (-), 09:10 , 06-Июн-16 (3) usr bin perlpackage Testov_test use strict use warnings use utf8 use open qw , krpsh (?), 09:40 , 06-Июн-16 (5) 1 как вы собираетесь обрабатывать падение канала - какие действия будете предпр, PavelR (??), 09:32 , 06-Июн-16 (4) Да согласен, бесконечная транзакция забыл при написании в посте сменить AutoCo, krpsh (?), 10:04 , 06-Июн-16 (6) наверное не while 1 а while connect_db потом, если все таки while 1 , Square1 (?), 12:15 , 06-Июн-16 (7) если Вы говорите про полный скрипт из пятого сообщения то 1 там в цикле while , krpsh (?), 12:52 , 06-Июн-16 (8) В общем, поизучав сложившуюся ситуацию пришел в выводу, что использовать таймаут, krpsh (?), 09:37 , 07-Июн-16 (9)

Perl и парсинг JSON + Dumper, Andrey, (Perl) 27-Мрт-16, 12:01  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

студэнт, ты задолбалhttp www opennet ru openforum vsluhforumID9 10082 htmв нес, Pahanivo (ok), 12:56 , 27-Мрт-16 (1) +1 В хэши и и списки хэшей print join , , item- Child qw name pet , n , ACCA (ok), 07:31 , 28-Мрт-16 (2) Не хэши, а ссылки на хэши hash refs hash_ref href http , Ch, erera22 (ok), 20:37 , 30-Мрт-16 (3)

Преобразовать структурированный файл в хеш, Andrey, (Perl) 09-Мрт-16, 15:14  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

В чём конкретно трудности На первый взгляд задача несложная , XAnder (ok), 17:04 , 09-Мрт-16 (1) +1 1 Ээээ не совсем понятно - получить КОД инициализации хеша, или таки загнать да, Pahanivo (ok), 19:40 , 09-Мрт-16 (2) Судя по всему, ТС имел в виду массив хешей Там на самом деле массив записей или , XAnder (ok), 21:27 , 09-Мрт-16 (3) Ты прикалываешь что ли Под таблицу использовать хеш Какие тут структуры Какая , Pahanivo (ok), 09:52 , 10-Мрт-16 (5) Согласен Я же только про выразительность писал, лёгкость восприятия человеком , XAnder (ok), 12:57 , 10-Мрт-16 (6) Ну, я бы как-то вот так сказал code usr bin perluse warnings use strict use, ACCA (ok), 01:24 , 10-Мрт-16 (4)

Непонятки с либами perl, tsolodov1, (Perl) 04-Мрт-16, 09:38  [⋘ | ☳ | ⋙ | ⚟ ] [линейный вид] [смотреть все] [раскрыть новое]

УМВРМодуль Tie StdHash определён внутри Tie Hash См , например http sources, XAnder (ok), 13:10 , 04-Мрт-16 (1) gt оверквотинг удален Я в курсе что он там Система CentOs 6 5 Tie Hash сто, tsolodov1 (?), 13:59 , 04-Мрт-16 (3) less local lib64 perl5 Thread Tie Hash pmpackage Thread Tie Hash Make sure w, tsolodov1 (?), 14:02 , 04-Мрт-16 (5) Походу нашел подохрительно файлы одинаковые r md5sum local lib64 perl5 Tie H, tsolodov1 (?), 14:04 , 04-Мрт-16 (6) Странность вот в чемexport PERL5LIB usr share perl5 , до со слэшем в цонцеТо , tsolodov1 (?), 14:54 , 04-Мрт-16 (7) cpaninstall Tie StdHash, Pahanivo (ok), 13:42 , 04-Мрт-16 (2) См выше , tsolodov1 (?), 13:59 , 04-Мрт-16 (4)