通过Perl 编程访问DB2数据库

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

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

            $sth->execute();

            print "NAME                          PHONE      \n";

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

            while (($name, $phone) = $sth->fetchrow())

            { print "$name  $phone\n"; }

            

            create procedure sp_get_loc (in deptin int, out loc varchar(13))

            begin

            select location into loc from org where deptnumb = deptin;

            end  @

            

            $db2 "call sp_get_loc(10,?)"

            Value of output parameters

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

            Parameter Name  : LOC

            Parameter Value : New York

            Return Status = 0

            

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

            # Prepare our call statement

            $sth = $dbh->prepare( "CALL SP_GET_LOC(?,?)" );

            # Bind input parameter for department number

            $sth->bind_param(1, 10);

            # Bind output parameter - location

            $sth->bind_param_inout (2, \$location, 13,     db2_param_type=>SQL_PARAM_OUTPUT});

            # Call the stored procedure

            $sth->execute();

            printf("Stored procedure returned location: %s\n", $location);

            $sth->finish();

            $dbh->disconnect;

            

            $perl test_call_sp.pl

            Stored Procedure returned location: New York