Perl對數據庫的查詢操作

Perl操作數據庫與其他的語言操作數據庫沒有什麼區別。
首先，要連接數據庫。
然後，執行SQL語句。
最後，關閉連接。
下面為程序：

test.pl

1. #! /usr/bin/perl 
2.  
3. # test DBI and DBD::mysql 
4.  
5. use DBI; 
6.  
7. $dsn = "DBI:mysql:database=carnumber;host=localhost;port=3306"; 
8.  
9. my $dbh = DBI->connect($dsn, "root", "qazxsw", {'RaiseError' => 1}); 
10.  
11.  
12. my $strSQL = "select train_number, seriary_number, car_number,". 
13.     " car_marque, past_time from trainOrder where train_number < 100"; 
14.  
15. my $sth = $dbh->prepare($strSQL); 
16. $sth->execute(); 
17.  
18. print "TN\tSN\tNumber\tMarque\tPastTime\n"; 
19. while (my $ref = $sth->fetchrow_hashref()) { 
20.     print "$ref->{'train_number'}\t". 
21.         "$ref->{'seriary_number'}\t". 
22.         "$ref->{'car_number'}\t". 
23.         "$ref->{'car_marque'}\t". 
24.         "$ref->{'past_time'}\n"; 
25. } 
26.  
27. $sth->finish(); 
28.  
29. $dbh->disconnect(); 

循環中為使用游標讀取每行數據。