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

<%@ 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脚本。任何想法如何我可以在经典的ASP与Perl脚本执行NYTprof？在嵌入perl脚本的经典asp中执行NYTprof

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

任何帮助，将不胜感激。

谢谢。

来源

2014-03-25 user3459146

下面应该工作：

<% 

use Devel::NYTProf; 

EVENTLOG::LogOpen(); 

%>

此外，还有Win32::ASP::Profile;可能是一种替代方案...

来源

2014-03-25 12:49:37 sferencik

谢谢，我会尽量通过您的建议尽快回复您。 – user3459146

<％@ LANGUAGE = “PERLSCRIPT” ％> 测试的Perl脚本 <％使用杰韦利:: NYTProf; EVENTLOG :: LogOpen（）; my $ a = 0; $ Response-> Write（$ a）; ％> 在我的本地IIS中尝试了它，并得到：技术信息（用于支持人员）错误类型： $ Response-> writeblock（0）;使用Devel :: NYTProf; EVENTLOG :: LogOpen（）;我的$ a = 0; $响应 - >写（$ A）; $响应 - > writeblock（1）; （0x80004005）内部错误 /oasis_test/test_profile.asp – user3459146

您的Perl（在服务器上运行）是否看到模块？（您的模块是否安装在Perl/site/lib中？）您可能想要尝试“需要”模块（发生在运行时而不是编译时）。它工作吗？尝试在eval中执行并在eval之后死亡（$ @）。在IIS上调试很困难;我通常只是在适当的地方死掉（）以获得输出。 – sferencik

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

回答

相关问题