Выполнение NYTprof в классическом ASP со встроенным скриптом Perl
<%@ 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>
Мне нужно профилировать скрипт asp, который запускает скрипт perl. Любые идеи, как я мог бы выполнить NYTprof в классическом ASP с Perl-скриптом?
Выше приведен пример кода (не полный)
Любая помощь будет оценена.
Благодарю.
1 ответ
Следующее должно работать:
<%
use Devel::NYTProf;
EVENTLOG::LogOpen();
%>
Также есть Win32:: ASP:: Profile; может быть альтернативой...