无需任何组件即可从您的 (ASP-) 脚本中检索 HTML 页面
用于将任意 URL 检索为字符串的微小 Perl 库。
引言
今天，我需要在 ASP 应用程序中检索一个不在我网站本地的 HTML 文档并显示其内容。我之前写过另一个 ActiveX 组件，但这次我想要在没有组件的情况下实现。
因此，我使用了随 ActivePerl 附带的 PerlScript，编写了两个小的 Perl 函数，并在正常的 (VBScript-) ASP 中使用它们。
仅两个函数
这两个函数分别称为 GetUrlContent(url) 和 GetUrlBody(url)。两个函数都将任意 URL 的内容作为 string 返回。第一个函数返回整个内容，而第二个函数仅返回 <body> 标签内的内容。
函数的用法非常简单，只需使用要检索的 URL 调用它们即可。例如：
...
Response.Write GetUrlContent("https://codeproject.org.cn/")
...
或
...
Response.Write GetUrlBody("https://codeproject.org.cn/")
...
安装
除了 ActiveState 的最新版本 ActivePerl 之外，还需要从 cpan.org 下载并安装 libwww-perl。