在开发Web应用程序时，有时需要从外部源获取HTML内容并将其显示在ASP页面上。本文将介绍如何使用PerlScript，这是ActivePerl的一部分，来实现这一功能，而无需依赖任何ActiveX组件。
PerlScript是一种在ASP页面中嵌入Perl代码的方法。它允许开发者利用Perl的强大功能来处理Web请求。ActivePerl是一个流行的Perl发行版，它包含了PerlScript支持，使得在ASP中使用Perl变得简单。
为了实现从外部URL获取内容的功能，编写了两个Perl函数：GetUrlContent和GetUrlBody。这两个函数都返回一个字符串，表示指定URL的内容。GetUrlContent函数返回整个页面的内容，而GetUrlBody函数只返回位于<body>标签内的内容。
GetUrlContent函数的用法非常简单，只需要传入想要获取的URL即可。例如：
PERL
...
Response.Write GetUrlContent(
"http://www.example.com/"
)
...
GetUrlBody函数的用法与GetUrlContent类似，但只返回页面的主体部分：
PERL
...
Response.Write GetUrlBody(
"http://www.example.com/"
)
...
要使用这些函数，首先需要安装ActiveState的ActivePerl。此外，还需要从cpan.org下载并安装libwww-perl库。这个库提供了Perl访问Web资源所需的工具。
以下是安装ActivePerl和libwww-perl的步骤：
PERL
require LWP::UserAgent;
sub GetUrlContent {
my ($url) = @_;
my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);
return $response->content if $response->is_success;
return "Error: " . $response->status_line;
}
sub GetUrlBody {
my ($url) = @_;
my $content = GetUrlContent($url);
my ($body) = $content =~ /]*>(.*?)<\/body>/is;
return $body;
}
1;