如何管理Perl/Mason网站上的MongoDB连接

Question

我正试图用Perl和Mason一起写一个网站。我用以下内容设置了一个服务器：- Apache和mod_perl一起使用Mason - CGI::Session管理会话-数据库的MongoDB。

我担心的是，每次我连接到我的MongoDB数据库时，连接都会保持活动状态，直到重新启动httpd服务。因此，如果达到最大连接，我就不能再打开连接了。

有没有人有办法：

• 要么关闭连接(这可能不是个好主意)？
• 或者拥有一个了解体系结构的全局数据库连接池？

Answer 1

只要您的MongoDB实例存在，MongoClient驱动程序就会使连接保持活动状态。在像mod_perl这样的环境中，Perl解释器是一个持久的过程，全局变量将一直存在直到它们被销毁。

如果不希望连接持久，请创建一个MongoClient对象，其作用域将在HTTP请求周期结束时结束。当对象被垃圾收集时，连接将被关闭。

如果您用更多关于如何创建客户端对象的详细信息更新您的问题，我可以提供一个更详细的答案。

Answer 2

我最近一直在和这个做斗争。我想出了一个非常简单的解决方案，适用于我自己。这可能不是最好的，但似乎做得很完美。

我们正在使用mod作为apache2 2/mod_ perl下运行的API框架，我们发现新连接比perl MongoDB驱动程序清除它们的速度要快，因为我们的网页正在调用API来获取新数据。

所以我放了一个简单的..。

use strict;
use warnings;
use MongoDB;

our $conn;

if(!defined($conn)){
  $log->info("Creating new DB connection");
  $conn =  MongoDB::MongoClient->new;
}
else{
  $log->info("DB connection already exists");
}

sub fetchData {
    # Do Mongo get/find stuff in here

    my $dbh = $mongoConn->get_database($db);
    my $collection = $dbh->get_collection($col);
    my $cursor = $collection->find($q)->fields($fieldsObj);
    my @result = $cursor->all;
    return @result;
}

显然，我忽略了错误捕获，其他的也没有必要，但希望这能帮助像我这样的人寻找解决方案。