SELECT 操作-PERL实现

sunlichao

下面的 Perl 程序显示了如何从前面创建的 COMPANY 表中获取并显示记录：

1. #!/usr/bin/perl
   
2. 
   
3. use DBI;
   
4. use strict;
   
5. 
   
6. my $driver   = "SQLite";
   
7. my $database = "test.db";
   
8. my $dsn = "DBI:$driver:dbname=$database";
   
9. my $userid = "";
   
10. my $password = "";
    
11. my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })
    
12.                       or die $DBI::errstr;
    
13. print "Opened database successfully\n";
    
14. 
    
15. my $stmt = qq(SELECT id, name, address, salary  from COMPANY;);
    
16. my $sth = $dbh->prepare( $stmt );
    
17. my $rv = $sth->execute() or die $DBI::errstr;
    
18. if($rv < 0){
    
19.    print $DBI::errstr;
    
20. }
    
21. while(my @row = $sth->fetchrow_array()) {
    
22.       print "ID = ". $row[0] . "\n";
    
23.       print "NAME = ". $row[1] ."\n";
    
24.       print "ADDRESS = ". $row[2] ."\n";
    
25.       print "SALARY =  ". $row[3] ."\n\n";
    
26. }
    
27. print "Operation done successfully\n";
    
28. $dbh->disconnect();

复制代码

上述程序执行时，它会产生以下结果：

1. Opened database successfully
   
2. ID = 1
   
3. NAME = Paul
   
4. ADDRESS = California
   
5. SALARY =  20000
   
6. 
   
7. ID = 2
   
8. NAME = Allen
   
9. ADDRESS = Texas
   
10. SALARY =  15000
    
11. 
    
12. ID = 3
    
13. NAME = Teddy
    
14. ADDRESS = Norway
    
15. SALARY =  20000
    
16. 
    
17. ID = 4
    
18. NAME = Mark
    
19. ADDRESS = Rich-Mond
    
20. SALARY =  65000
    
21. 
    
22. Operation done successfully

复制代码