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

Posted

技术标签:

【中文标题】在嵌入 perl 脚本的经典 asp 中执行 NYTprof【英文标题】：Executing NYTprof in classic asp embedded with perl script 【发布时间】：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 吗？

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

任何帮助将不胜感激。

谢谢。

【问题讨论】：

【参考方案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() 以获得输出。

以上是关于在嵌入 perl 脚本的经典 asp 中执行 NYTprof的主要内容，如果未能解决你的问题，请参考以下文章

阳宇宸：WEB系统开发语言优劣比较

PHP是什麽（我想要详细一点的答案）

Perl编程经典scripts（编程实例脚本）

在cmd 中执行perl脚本报错 Unrecognized character

在源代码中嵌入较长文本的技巧，如在 Perl 等语言中？ [复制]

使我的文件以 Perl 或 HTML 可读