0

我正在尝试创建一个简单的程序来获取网页的内容以完成我的任务。

现在我创建一个非常简单的 HTML 页面，让用户输入一个 URL。

<html>
<head><title>URL page</title>
</head>

<body>
  <form action="cgi-bin/b1.cgi" method="GET">
        Enter the URL you want to see <input type="text" name="passing" size=40>
        <input type="submit" value="submit">
        </form>
</body>

</html>

所以我只想将 url 传递给我目前拥有的 CGI 程序

#!/usr/bin/perl

print "Content-type: text/html\n\n";

use LWP::Simple;
use CGI;
use HTML::HeadParser;

#my $pass = $cgi->param('passing');

$URL = get ("$passing");

$head = HTML::HeadParser->new;

$head->parse("$URL");

print "This is the Title of the page" . $head->header('Title') . "\n\n";

print $head->header('X-Meta-Description') . "\n\n";

print $head->header('X-Meta-Keywords') . "\n\n";

print $head->header('Content-Type') . "\n\n";

print $head->header('Content-Language') . "\n\n";

exit;

所以从上面的代码中你可以看到我是否可以获得从GET方法传递到它所说的行的值，URL = get();然后我可以获得内容。

我尝试了一些类似的方法，my $pass = $cgi->param('passing');但它给了我一个错误param

任何建议将不胜感激。

4

0 回答 0