Question

我正在尝试用梅森在Perl上写一个网站。我用以下设置服务器： - 带有梅森的mod_perl的Apache - CGI ::会话管理会话 - MongoDB for database。

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

有没有人有办法：

要么关闭连接（这可能不是一个好主意）？
是否拥有知道架构的全局数据库连接池？

Answer 1

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

如果您不希望连接是持久的，请创建一个MongoClient对象，其范围将在HTTP请求周期完成时结束。当对象被垃圾收集时，将关闭连接。

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

Answer 2

我最近一直在与此作斗争。我想出了一个非常简单的解决方案，对我有用。它可能不是最好的，但似乎完美地完成了这项工作。

我们使用Mojolicious作为在apache2 / 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;
}

显然我已经省略了错误捕获，而其他方面没有必要，但希望这会帮助像我这样的人寻找解决方案。

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

2 个答案: