fig15_18.pl

来自「PERL语言资料 可以用于PERL程序设计」· PL 代码 · 共 50 行

#!/usr/bin/perl
# Fig. 15.18: fig15_18.pl
# Program to query a database and display the contents in a table  

use warnings;
use strict;
use DBI;
use DBD::ODBC;

my $dbh = DBI->connect( "DBI:ODBC:employeeDB", "", "" ) or
   die( "Could not make connection to database: $DBI::errstr" );

my $sth = $dbh->prepare( q{ SELECT * FROM employee } ) or 
   die( "Cannot prepare statement: ", $dbh->errstr(), "\n" );
     
my $rc = $sth->execute() or
   die( "Cannot execute statement: ", $sth->errstr(), "\n" );

my @array;

while ( @array = $sth->fetchrow_array() ) {
   write();
}

# Check to see if fetch terminated early
warn( $DBI::errstr ) if $DBI::err;

$sth->finish();
$dbh->disconnect();

format STDOUT =  
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<<<<
$array[ 0 ], $array[ 1 ], $array[ 2 ], $array[ 3 ], $array[ 4 ]
.


###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################