Question

我正在尝试创建一个简单的程序，以便为我的作业获取网页内容。

现在我创建一个非常简单的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>

所以我只想将网址传递给我到目前为止的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');这样的approch，但它给了我一个关于param的错误

任何建议都会受到如此多的赞赏。

将值从HTML页面表单传递到CGI程序

0 个答案: