Perl對數據庫的查詢操作

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

test.pl

1. #! /usr/bin/perl
3. # test DBI and DBD::mysql
5. use DBI;
7. $dsn = "DBI:mysql:database=carnumber;host=localhost;port=3306";
9. my $dbh = DBI->connect($dsn, "root", "qazxsw", {'RaiseError' => 1});
12. my $strSQL = "select train_number, seriary_number, car_number,".
13. " car_marque, past_time from trainOrder where train_number < 100";
15. my $sth = $dbh->prepare($strSQL);
16. $sth->execute();
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. }
27. $sth->finish();
29. $dbh->disconnect();

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