通过Perl 编程访问DB2数据库

$perl test_call_sp.pl
Stored Procedure returned location: New York

 create table POT.MAPS
( map_id           INT,
  map_name     VARCHAR(13),
  area                 INT ,
  photo_format CHAR(3),
  picture            BLOB) ;

#!/usr/bin/perl -w
use DBI;
use DBD::DB2::Constants;

%conattr = (   AutoCommit             => 1,                                    
			# Turn Autocommit On
                       db2_info_applname  => 'Maps Module', );           
                        # Identify this appl

$dbh = DBI->connect("dbi:DB2:sample","", "",\%conattr) or die "$DBI::errstr";
$dbh->do("SET CURRENT SCHEMA POT");

$sql = "INSERT INTO MAPS(map_id, map_name, area, photo_format, picture)
                                                                                                         
          VALUES(?,?,?,?,?)";

$sth = $dbh->prepare($sql);
$picture_file = "pearson.jpg";           # File containing our picture
$sth->bind_param(1, 100);                # map_id
$sth->bind_param(2, "Pearson airport");  # map_name
$sth->bind_param(3, 416);                # area
$sth->bind_param(4, "JPG");              # photo_format
$sth->bind_param(5, $picture_file, {db2_file => 1});

$rows_affected = $sth->execute();
printf("%d rows affected", $rows_affected);
$sth->finish();
$dbh->disconnect;

 #!/usr/bin/perl
use DBI;
use DBD::DB2::Constants;
%conattr =
(
   AutoCommit             => 1,                                
		   # Turn Autocommit On
   db2_info_applname  => 'Maps Module',          
			   # Identify this appl
   LongReadLen           => 80000                         
		   # Don't retrieve LOBs
);
# Connect to our database
$dbh = DBI->connect("dbi:DB2:sample","", "",\%conattr) or
                   die "$DBI::errstr";

# Set the current schema to 'POT'
$dbh->do("SET CURRENT SCHEMA POT");
$sql = "SELECT picture FROM maps WHERE map_name ='Pearson airport'";

# Prepare the statement
$sth = $dbh->prepare($sql);
# Open output file
$out_file = "mypic.jpg";
open(OUTPUT, ">$out_file") or die "Cannot open $out_file because $!";
binmode OUTPUT;
$sth->execute;
@row = $sth->fetchrow;
print OUTPUT $row[0];
@row = "";
close(OUTPUT);
print “Picture in the file $out_file\n"; 
$sth->finish();
$dbh->disconnect;