【发布时间】:2011-11-15 03:10:02
【问题描述】:
我想在我的输入字段的模糊函数中调用一个 Perl 脚本。但我真的不知道如何做到这一点,我找不到任何与谷歌合作的东西。我的html页面代码是
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org /TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Guthaben anzeigen</title>
<link rel="stylesheet" href="css/style.css" type="text/css" />
<script src="jquery-1.6.3.js" type="text/javascript"></script>
<script type="text/javascript">
$(document).ready(function(){
$("#pin").blur(function(){
alert($.ajax({
type: "POST",
url: "/cgi-bin/guthabentransfer.pl",
data: "cardnumber=1234567890",
success: function(msg){
alert(msg);
}
});
);
});
});
</script>
</head>
<body>
<!-- <div class="haupt"> -->
<form action="/aktivieren.pl" method="post">
<table border="0">
<tr>
<td align="left">Kaartnummer:</td>
<td align="left"> <input class="textfeld" name="kartennummer" type="text" maxlength="19"></td>
<td align="left"><input id="pin" class="pin" name="pinnr" type="text" maxlength="4" value="PIN"></td>
</tr>
<tr>
<td align="left">Balance:</td>
<td align="left"> <input id="balance" class="textfeld" name="kartennummer" type="text" maxlength="19"></td>
</tr>
</table>
</div>
</form>
</div>
</body>
</html>
这是我的 Perl 脚本,我认为打印结果最简单:/。
#!/usr/bin/perl
require "cgi-lib.pl";
use funktionen;
use Getopt::Long;
&GetOptions("cardnumber:s" =>\$cardnumber);
$cardnumber=$query->param('cardnumber');
if ($cardnumber != "") {
print &funktionen::checkbalance($cardnumber);
}
【问题讨论】:
-
如果你想回答自己的问题,那就回答吧,不要用答案代替问题。