0

課題のために Web ページのコンテンツを取得する簡単なプログラムを作成しようとしています。

現在、ユーザーが URL を入力できる非常に単純な HTML ページを作成しています。

<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プログラムにURLを渡したいだけです

#!/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