首先得確保安裝了資料庫介面模塊和相應資料庫的驅動模塊，如果是用MySql資料庫（開源免費新手入門學習都喜歡），則需要確定DBI和DBD::mysql這兩個模塊是否安裝；
然後在perl腳本中寫：
!#usr/bin/perl -w
use strict;
use DBI; #使用DBI模塊，DBD::mysql是驅動不必在腳本中使用，安裝了就行
my $dbname = ""; #引號里填上資料庫名
my $ip = ""; #引號里填上要訪問的資料庫的ip地址，資料庫是本機就寫127.0.0.1
my $port = ""; #引號里填上要訪問的資料庫的埠號，mysql默認埠號是3306
my $host = "dbi:mysql:" . $dbname . ":" . $ip . ":" . $port ;
my $user = "root"; #訪問資料庫使用的用戶名
my $password = "xXxX"; #該用戶名所使用的密碼
my $dbh = DBI -> connect($host,$user,$password) or die "$@"; #與資料庫建立連接
$dbh -> do("set names \'gbk\';"); #設置輸出中文不亂碼
while(1) #條件永遠為真，除非人為終止，否則不會停止
{ #可以使用control+c停止腳本執行
my $sql = ""; #引號里填上sql語句
$sth = $dbh -> prepare($sql); #送入資料庫做准備
$sth -> execute(); #執行這條sql語句
sleep(300); #設置300秒暫停執行，300秒後繼續執行while
}
$dbh -> disconnect(); #斷開與資料庫的連接
這里使用的是最新的perl和最新的mysql最新，不是復制粘貼別人代碼，前幾天還在用，保證思路沒有問題。
