catding提到:
目前寫好了一個會抓取資料並print出來的簡單perl
可以如何讓他能以ajax的方式定時刷新?
以我開發這麼多年的 Web AP 來看,這兩句話有著很神奇的矛盾。
我本身沒學過perl不過有找到一個範例,
看對你有沒有用,看起來跟PHP一樣,使用JQuery框架去用.
頁面提出請求與參數,然後後端語言處理傳回,頁面再把資料顯示.
html
<pre class="c" name="code">
<title>Testing ajax</title>
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<script>
$(document).ready(function() {
$("#test").click(function(){
var ID = 100;
$.ajax({
type: 'POST',
url: '/cgi-bin/ajax/stackCGI/ajax.pl',
data: { 'data_id': ID },
success: function(res) {
alert("your ID is: " + res.result);
},
error: function() {alert("did not work");}
});
})
})
</script>
<button id="test" >Testing</button>
ajax.pl
<pre class="c" name="code">
#!/usr/bin/perl
use strict;
use warnings;
use JSON; #if not already installed, just run "cpan JSON"
use CGI;
my $cgi = CGI->new;
print $cgi->header('application/json;charset=UTF-8');
my $id = $cgi->param('data_id');
#convert data to JSON
my $op = JSON -> new -> utf8 -> pretty(1);
my $json = $op -> encode({
result => $id
});
print $json;