0

我有一个大型 Perl 应用程序，我需要让它更快；基于它花费大部分运行时间与数据库通信，我想知道我可以运行多少编写良好的 SQL 语句并达到性能目标。为此，我编写了一个非常简单的处理程序，它执行 SELECT 和 INSERT，当我对 300 个并发请求（总共 10,000 个）进行基准测试时，结果很差（平均 1900 毫秒）。

客户端给我们的性能目标是基于他们使用的另一个用 PHP 编写的应用程序，所以我编写了一个快速的 PHP 脚本，它在功能上与我的简单 mod_perl 测试处理程序相同，平均时间为 400 毫秒！

PHP代码是：

$cs = "//oracle.ourdomain.com:1521/XE";
$oc = oci_pconnect("hr","password",$cs);
if(!$oc) { print oci_error(); }
$stid = oci_parse($oc, 'SELECT id FROM zz_system_options WHERE id = 1');
oci_execute($stid);
$stmt = oci_parse($oc, "INSERT INTO zz_system_options (id,option_name) VALUES (zz_system_optionsids.nextval,'load testing')");
oci_execute($stmt);
echo "hello world";

Perl 代码是：

use strict;
use Apache2::RequestRec ();
use Apache2::RequestIO  ();
use Apache2::Const -compile => qw(:common);
use DBI;
our $dbh;
sub handler
{
    my $r = shift;

    # Connect to DB
    $dbh = DBI->connect( "DBI:Oracle:host=oracle.ourdoamin.com;port=1521;sid=XE", "hr", "password" ) unless $dbh;  
    my $dbi_query_object = $dbh->prepare("SELECT id FROM zz_system_options");
    $dbi_query_object->execute();
    $dbi_query_object =
      $dbh->prepare("INSERT INTO zz_system_options (id,option_name) VALUES (zz_system_optionsids.nextval,?)");
    $dbi_query_object->execute("load testing");
    # Print out some info about this...
    $r->content_type('text/plain');
    $r->print("Errors: $err\n");
    return Apache2::Const::OK;
}

mod_perl 在 apache 配置中有一个用 PerlRequire 调用的 startup.pl 脚本，它加载所有“使用”的模块。如果一切正常，而且我没有理由认为它不是，那么每个请求都应该只运行“子处理程序”中的行——这意味着 Perl 和 PHP 应该做几乎相同的事情。

服务器详情：- 硬件节点是 Quad Core Xeon L5630 @ 2.13GHz with 24Gb RAM，Apache 虚拟机的操作系统是 Gentoo，Oracle 的操作系统是 Centos 5。

版本：操作系统均在最近两周内更新，Apache 版本 2.2.22，mod_perl 版本 2.0.4，DBI 版本 1.622，DBD::Oracle 版本 1.50，Oracle 即时客户端版本 10.2.0.3，Oracle 数据库 10g 快捷版版本 10.2.0.1 .0，PHP 版本 5.3

Apache MPM 配置为 ServerLimit 2000、MaxClients 2000 和 MaxRequestsPerChild 300

我检查的事情：在测试期间，唯一的负载来自测试应用程序/oracle，两个虚拟机都没有达到其任何 bean 计数器限制，例如内存，Oracle 始终显示每个 Apache 子节点 1 个会话，每次插入都已完成跑。

所以，我的问题是；我可以让 mod_perl 版本更快吗？如果可以，怎么做？

4

1 回答 1

0

如果您更改了 PHP 代码并且时间没有改变，那么显然您没有测量代码时间，是吗？

重要的问题是 - 为什么你反复连接 Perl 脚本而不是 PHP 脚本？

最后，这个测试可能不会告诉您任何有用的信息，除非您的所有查询都是简单的单表单行选择和插入。

于 2012-08-27T09:39:47.487 回答