Or maybe use the _Singleton Pattern_ https://www.perl.com/article/52/2013/12/11/Implementing-the-singleton-patter... <https://www.perl.com/article/52/2013/12/11/Implementing-the-singleton-pattern-in-Perl/> -- Jorge Pereira jpereira@freeradius.org
On 18 May 2021, at 11:21, Alan DeKok <aland@deployingradius.com> wrote:
On May 18, 2021, at 7:52 AM, Юрий Иванов <format_hub@outlook.com> 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 => '127.0.0.1:6379', reconnect => 2); ...
Is there way to make some sort of "shared" variable in perl module?
This is part of Perl: https://perldoc.perl.org/threads::shared
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.
- List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html