Shared data between in perl module

Alan DeKok aland at
Tue May 18 16:21:30 CEST 2021

On May 18, 2021, at 7:52 AM, Юрий Иванов <format_hub at> wrote:
> I plan to implement accounting logic with the help of perl module.
> Looks simple, but every time I should open new database connection which is not very effective in case of high load systems.
> sub accounting {
>    $redis = Redis->new(server => '', reconnect => 2);
>    ...
> Is there way to make some sort of "shared" variable in perl module?

  This is part of Perl:

> P.S. Maybe there is even some way to create some buffer array variable inside perl module which persists between perl modules so I can drop redis?

  Use the threads::shared package, and put the buffer array into a shared variable.

  Alan DeKok.

More information about the Freeradius-Users mailing list