Welcome 微信登录
编程资源 图片资源库 蚂蚁家优选 PDF转换器

首页 / 操作系统 / Linux / 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 SN Number Marque PastTime "; 
  19. while （my $ref = $sth->fetchrow_hashref（）） { 
  20.     print "$ref->{"train_number"} ". 
  21.         "$ref->{"seriary_number"} ". 
  22.         "$ref->{"car_number"} ". 
  23.         "$ref->{"car_marque"} ". 
  24.         "$ref->{"past_time"} "; 
  25. } 
  26.  
  27. $sth->finish（）; 
  28.  
  29. $dbh->disconnect（）; 
循环中为使用游标读取每行数据。
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图