Re: Константа rand() mod perl

[Anton Yuzhaninov]

On 01/22/17 00:39, ozz wrote:
> Можно ли и как данную инструкцию вызвать один раз при запуске/перезапуске
> рабочего процесса?
> perl_set $c 'sub { return int(rand(99));}';

Можно (но в каждом рабочем процессе будет свое значение).

Создаем модуль, напимер test.pm

etc/nginx/perl_lib/test.pm

package test;

use warnings;
use strict;
use v5.10;

sub get_number {
        state $number = int rand(99);
        return $number;
}

1;

В nginx.conf пишем:

perl_modules perl_lib;
perl_require test.pm;

perl_set $number test::get_number;