通过Perl 编程访问DB2数据库

            $perl test_do_exs.pl

            Returns : 2

            $db2 “select * from PT_ADDR_BOOK"

            NAME                               PHONE

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

            Gregory Whales                 9142712020

            Robert Moses                   2127652345

            2 record(s) selected.

            

            $stmt = “SQL Statement without placeholder“;

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

            $sth->execute();

            

            #!/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 = "INSERT INTO PT_addr_book values ('JOHN SMITH','9145556677')“;

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

            $sth->execute();

            print "We inserted row into addr_book\n";

            $sth->finish();

            

            $stmt = “SQL Statement with parameter marker“;

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

            $sth->bind_param(1,$parm,\% attr);

            $sth->execute();

            

            #!/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";

            $name ="STEVE BROWN";

            $phone = "7184358769";

            $stmt = "INSERT INTO PT_addr_book values (?,?)";

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

            $sth->bind_param(1,$name);

            $sth->bind_param(2,$phone);

            $sth->execute();

            print "We inserted row into addr_book\n";

            $sth->finish();