fig15_24.pl

PERL语言资料 可以用于PERL程序设计

#!/usr/bin/perl
# Fig. 15.24: fig15_24.pl
# Creating a table.

use warnings;
use strict;
use DBI;
use DBD::mysql;

my $dbh = DBI->connect( "DBI:mysql:USERDB", "root", "", 
                        { RaiseError => 1 } );
                                    
my $string = "CREATE TABLE Users ( 
                 FirstName VARCHAR( 30 ),
                 LastName  VARCHAR( 30 ),
                 Email     VARCHAR( 30 ),
                 Phone     VARCHAR( 30 ),
                 Continent ENUM( 'North America',
                                 'South America',
                                 'Europe',
                                 'Asia',
                                 'Africa',
                                 'Australia',
                                 'Antarctica' ),
                 OpSys     ENUM( 'Windows NT', 
                                 'Windows 98',
                                 'Macintosh',
                                 'Linux',
                                 'Other' ),
                 Hours     INT,
                 Rating    INT )";

$dbh->do( $string );

$dbh->do( "INSERT INTO Users ( 
              FirstName, LastName, Email, Phone, 
              Continent, OpSys, Hours, Rating )
           VALUES ( 'John', 'Doe', 'john\@doe.net', 
                    '[phone]', 'North America', 
                    'Windows 98', 3, 4 )" );

my $sth = $dbh->prepare( "SELECT * FROM Users" );
$sth->execute();

while ( my @row = $sth->fetchrow_array() ) {
   print( "@row\n" );
}

warn( $DBI::errstr ) if ( $DBI::err );
$dbh->disconnect();
$sth->finish();



###########################################################################
#  (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.                     #
###########################################################################