Size: a a a

2020 September 02

SZ

Sergey Zhmylove in Modern::Perl
use module;
sub args {}
sub mysub {}
#сюда
print param("a")+param("b")


Если а или б заданы неправильно, тогда нужно показать соответствующее сообщение и usage. А вот если они не заданы вообще, то надо просто показать usage, без обращения в param.
Т.е. типа "#сюда" надо заменить на exit usage unless @ARGV;
источник

SZ

Sergey Zhmylove in Modern::Perl
В перле можно сделать всё, просто вопрос трудозатрат. И вот пока что у меня в голове только сильно извращенные способы это сделать
источник

AP

Andrei Protasovitski in Modern::Perl
Если не заданы, то не заданы. Это уже скрипт решает, что с ними делать.
источник

SZ

Sergey Zhmylove in Modern::Perl
Andrei Protasovitski
Если не заданы, то не заданы. Это уже скрипт решает, что с ними делать.
Ну вот я и говорю, что хочется, чтобы exit usage unless @ARGV; вставлялась автоматически от use module, а то ведь приходится эту логику описывать явно.
источник

SZ

Sergey Zhmylove in Modern::Perl
Правда, конечно, argv это тоже особенный массив, можно его и в модуле проверить, без инъекции кода. Но в общем случае тоже ведь хочется уметь инжектить код без коллбэков
источник

AP

Andrei Protasovitski in Modern::Perl
Можно, конечно, сделать так, чтобы какие-то параметры сделать обязательными. exit отлично выходит из скрипта и из INIT в модуле. :)
источник

AP

Andrei Protasovitski in Modern::Perl
Sergey Zhmylove
Правда, конечно, argv это тоже особенный массив, можно его и в модуле проверить, без инъекции кода. Но в общем случае тоже ведь хочется уметь инжектить код без коллбэков
Я @ARGV сам не проверяю, это всё за меня Getopt::Long делает.
источник

SZ

Sergey Zhmylove in Modern::Perl
Sergey Zhmylove
Правда, конечно, argv это тоже особенный массив, можно его и в модуле проверить, без инъекции кода. Но в общем случае тоже ведь хочется уметь инжектить код без коллбэков
This :p
источник

AU

Alexey Ugnichev in Modern::Perl
Anton Petrusevich
Не совсем. Хотя, для локальной фс ок
Там в условиях задачи проверять, не запустились ли мы уже случайно, так что скорее всего для локальной и надо. В более сложных случаях, подозреваю, уже и очереди могут пригодиться.
источник

AP

Anton Petrusevich in Modern::Perl
Alexey Ugnichev
Там в условиях задачи проверять, не запустились ли мы уже случайно, так что скорее всего для локальной и надо. В более сложных случаях, подозреваю, уже и очереди могут пригодиться.
Вот в том то и дело, что у меня прога лежала на нфс и могла разными серверами запускаться, а пользоваться надо было общими, да ещё и изменяемыми, файлами
источник

SZ

Sergey Zhmylove in Modern::Perl
Anton Petrusevich
Вот в том то и дело, что у меня прога лежала на нфс и могла разными серверами запускаться, а пользоваться надо было общими, да ещё и изменяемыми, файлами
Ocfs2 ваше решение:р
источник

AP

Anton Petrusevich in Modern::Perl
Sergey Zhmylove
Ocfs2 ваше решение:р
с чего ты так решил? и вообще, серверами занимался другой отдел админов, я был просто программером, никакой возможности указать что им делать у меня не было...
источник

SZ

Sergey Zhmylove in Modern::Perl
Anton Petrusevich
с чего ты так решил? и вообще, серверами занимался другой отдел админов, я был просто программером, никакой возможности указать что им делать у меня не было...
Я имею ввиду, что ocfs2 бы подошёл получше)
Жаль, когда программистов не спрашивают, что им нужен
источник
2020 September 03

NK

Nick Knutov Dobrohos... in Modern::Perl
Кто-нибудь работал с клавиатурами напрямую? Есть какой-нибудь аналог Linux::USBKeyboard, чтобы, например, на евентах и не ел проц впустую с кодом вида while (1) { my ($code, $shiftbits) = $kb->keycode;  ... }
источник

SZ

Sergey Zhmylove in Modern::Perl
Nick Knutov Dobrohost.ru
Кто-нибудь работал с клавиатурами напрямую? Есть какой-нибудь аналог Linux::USBKeyboard, чтобы, например, на евентах и не ел проц впустую с кодом вида while (1) { my ($code, $shiftbits) = $kb->keycode;  ... }
Что ты хочешь?
источник

SZ

Sergey Zhmylove in Modern::Perl
Curses?
источник

NK

Nick Knutov Dobrohos... in Modern::Perl
Контекст - raspberry с номеронабирателем
источник

NK

Nick Knutov Dobrohos... in Modern::Perl
мне надо отслеживать нажатие кнопок и что-то по ним делать
источник

SZ

Sergey Zhmylove in Modern::Perl
Nick Knutov Dobrohost.ru
мне надо отслеживать нажатие кнопок и что-то по ним делать
Что происходит при нажатии?
источник

SZ

Sergey Zhmylove in Modern::Perl
Прерывание?
источник