Задать вопрос

Константин Власов

Ответы пользователя по тегу Perl

  • Как обработать результат system в perl скрипте?

    @CaptainFlint
    В качестве возвращаемого значения system выдаёт код ошибки, сдвинутый на 8 бит влево. Если ipset в описанной ситуации возвращает какой-то специфический код, можно его вытащить и обработать. Если нет — тогда только парсить выходную строку, заменив system на бэктики, как предложил выше PooFF.
    Ответ написан
    Комментировать
    Комментировать

  • Ссылки в perl

    @CaptainFlint
    После третьей строчки $c является строкой 'a'. $$c является раскрытием переменной с именем, равным содержимому $c — то есть переменной $a, которая к моменту печати уже содержит значение 'bb'. Соответственно, первой строкой печатается 'bb'. Второй строкой печатается просто содержимое $c, то есть 'a'.
    Ответ написан
    1 комментарий
    1 комментарий

  • Вопрос к PERL программистам

    @CaptainFlint
    Нет, неправильно. Браузер посылает серверу не просто строку, а HTTP-запрос, состоящий из нескольких строк. Пока все их не прочитаешь, браузер входящие данные принимать не начнёт, а в приведённом коде считывается только первая строка запроса.

    Кстати, избавиться от зомбей можно проще:
    $SIG{CHLD} = 'IGNORE';

    И ещё: если после демонизации происходит ошибка, то выдача сообщения может выглядеть весьма необычно (от терминала-то отвязались). Правильнее пользоваться системным логом или вести свой лог-файл.
    Ответ написан
    Комментировать
    Комментировать