在嵌入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

回答

相關問題