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(); 

循环中为使用游标读取每行数据。