0

html から perl スクリプトを実行しようとしていますが、実行中にエラーが発生します。これが私のhtmlと2行のperlコードです。エラーコードは、「Internal Server Error」やその他の行が表示されているだけで、あまり説明的ではありません。また、perlスクリプトで受信ユーザー名を表示する方法も知りたいです。

pwd
/var/www/cgi-bin

ls -l
total 4
-rwxr-xr-x 1 root root 49 Aug 26 16:49 username.pl

HTML コード:

<html>
<head>
</head>
<body>
<h1> Hello </h1>
<form action="/cgi-bin/username.pl" method="POST">
     <input type="text" name="username">
     <input type="submit">
</form>
</body>
</html>

パールコード:

#!/usr/bin/perl
print "Received user name is\n";
4

2 に答える 2

2

Perl スクリプトが適切な CGI ヘッダーを生成していません。をお読みくださいperldoc CGI。または、簡単な回答が必要です。

#!/usr/bin/perl
use strict;
use CGI;

my $q = CGI->new();
my $username = $q->param("username");
print $q->header(-type => "text/plain");
print "Received username is $username\n";
于 2013-08-26T21:06:10.507 に答える
1

1>.my は、リストされた変数が囲んでいるブロック file に対してローカルであることを宣言します。

2>.html ページにテキスト ボックス名 user がある場合

つまり、次のようなものです:-

<td><b><font color="green" size="3">USER</font><input type="text" name="user" value="">

それからこれを試してください

my $user=$query->param("user");

cgi スクリプトで、変数 $user で入力を取得します。

于 2013-08-27T07:57:13.463 に答える