通过Perl 编程访问DB2数据库

            $stmt = “SQL SELECT Statement to be executed“;

            $sth = $dbh->prepare($stmt);

            $sth->execute();

            $result = $sth->bind_col(col, \variable [, \%attr ]);

            while ($sth->fetch){

            process result of the fetch;

            }

            

            #!/usr/local/bin/perl -w

            use DBI;

            use DBD::DB2::Constants;

            $dbh = DBI->connect("dbi:DB2:sample","","") or

            die “Can't connect to sample database: $DBI::errstr";

            $stmt = "SELECT max(salary) from EMPLOYEE";

            $sth = $dbh->prepare($stmt);

            $sth->execute();

            #associate variable with output columns...

            $sth->bind_col(1,\$max_sal);

            while ($sth->fetch) {

            print "The biggest salary is: $max_sal\n";

            }

            

            $perl test_return_value.pl

            The biggest salary is: 52750.00

            

            $stmt = "SELECT name, phone from PT_ADDR_BOOK";

            $sth = $dbh->prepare($stmt);

            $sth->execute();

            #associate variables with output columns...

            $sth->bind_col(1,\$name);

            $sth->bind_col(2,\$phone);

            print "NAME                          PHONE      \n";

            print "-------------------------     -----------\n";

            while ($sth->fetch) {

            print $name ;

            print $phone; print "\n";              }

            print "DONE \n";

            $sth->finish();

            

            C:\Dev_POT\PERL\Labs>perl multi.pl

            NAME                          PHONE

            -------------------------     -----------

            JOHN SMITH               9145556677

            STEVE BROWN          7184358769

            DONE