在嵌入 perl 脚本的经典 asp 中执行 NYTprof答案

【问题标题】：Executing NYTprof in classic asp embedded with perl script在嵌入 perl 脚本的经典 asp 中执行 NYTprof
【发布时间】：2014-03-25 10:26:21
【问题描述】：

<%@ Language="PERLSCRIPT" %>
<!---------------------------------------------------------------------------
#include VIRTUAL="/include/perl/widgetinclude.asp"
---------------------------------------------------------------------------->
<!---------------------------------------------------------------------------
#include VIRTUAL="/include/perl/path.asp"
---------------------------------------------------------------------------->
<!---------------------------------------------------------------------------
#include VIRTUAL="/include/perl/widgetpackages.asp"
---------------------------------------------------------------------------->
<!---------------------------------------------------------------------------
#include VIRTUAL="/include/perl/web.asp"
---------------------------------------------------------------------------->
<!---------------------------------------------------------------------------
#include VIRTUAL="/include/perl/eventlog.asp"
---------------------------------------------------------------------------->
<%

EVENTLOG::LogOpen();

%>
<!---------------------------------------------------------------------------
#include VIRTUAL="/oasiscs/include/perl/security.asp"
---------------------------------------------------------------------------->
<%
$Response->Redirect("/oasiscs/security.asp") unless    (SECURITY::SecurityCheck("oasiscs"));
%>
<!---------------------------------------------------------------------------
#include VIRTUAL="/include/perl/form.asp"
---------------------------------------------------------------------------->
<%
#----------------------------------------------------------------------------
#  Include service-specific custom packages.
#----------------------------------------------------------------------------
require "admin.pl"                     || die "Couldn't load admin.pl";
require "couponcodes.pl"               || die "Couldn't load couponcodes.pl"; 
require "customers.pl"                 || die "Couldn't load customers.pl";
require "newpcs.pl"                    || die "Couldn't load newpcs.pl";
require "orders.pl"                    || die "Couldn't load orders.pl";
require "pharmacy.pl"                  || die "Couldn't load pharmacy.pl";
require "stores.pl"                    || die "Couldn't load stores.pl";
require "website.pl"                   || die "Couldn't load website.pl";
%>
<HTML>
</HTML>

我需要分析一个运行 perl 脚本的 asp 脚本。有什么想法可以用 perl 脚本在经典 asp 中执行 NYTprof 吗？

以上是示例代码（不完整）

任何帮助将不胜感激。

谢谢。

【问题讨论】：

标签： perl asp-classic devel-nytprof

【解决方案1】：

以下应该有效：

<%

use Devel::NYTProf;

EVENTLOG::LogOpen();

%>

还有Win32::ASP::Profile;可能是另一种选择...

【讨论】：

谢谢，我会尝试您的建议并尽快回复您。
测试 Perl 脚本写入($a); %> 在我的本地 IIS 中尝试过，结果：技术信息（供支持人员使用）错误类型：$Response->writeblock(0);使用 Devel::NYTProf；事件日志::LogOpen();我的 $a=0; $响应->写入($a); $Response->writeblock(1); (0x80004005) 内部错误 /oasis_test/test_profile.asp
您的 Perl（在服务器上运行）是否看到该模块？（您的模块是否安装在 Perl/site/lib 中？）您可能想尝试require 模块（发生在运行时而不是编译时）。它有效吗？尝试在 eval 中执行此操作，然后在 eval 之后死（$@）。在 IIS 上调试很难；我通常只是在适当的地方 die() 以获得输出。