$.postとPerlのデータ受け渡しについて
現在、 $.postを使ってPerlにリクエストを送り、帰ってきた値を表示するという事をしたいのですが、Internal Serverエラーとなりますが、どこにエラーがあるのかがわからない状態です。
実行権限などは与えています。
以下に書いたプログラムを貼りますので、間違いがありましたら是非教えていただきたいです。
HTML index.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Test Page</title>
<script type="text/javascript" src="../lib/jquery/jquery-1.3.2.js"></script>
<script type="text/javascript" src="./JS/test.js"></script>
</head>
<body>
<form id="form01">
<input type="text" name="title" id="title01" value="post"><br>
<input type="button" value="post" onClick="getValue()">
</form>
<div id="res_title"></div>
</body>
</html>
JavaScript test.js
function getValue(){
//フォームのデータ取得
var pos_title = $('#title01').attr('value');
//var comment = $('#comment').attr('value');
//フォームデータのPOST送信＋コールバック
$.post("./cgi-bin/post.pl", {"title" : pos_title}, disp);
}
function disp(data){
$('div#res_title').html(data);
}
Perl post.pl
#!/usr/bin/perl -w
use strict;
use warnings;
my $formdata;
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$formdata = $ENV{'QUERY_STRING'};
}
else {
read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'});
}
return $formdata;
お礼
回答ありがとうございます。 自分でなんとかします。