我正在尝试创建一个简单的程序来获取网页的内容以完成我的任务。
现在我创建一个非常简单的 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
任何建议将不胜感激。