|
示例代码(一)
示例代码(二)
- #!/bin/env perl
- use strict;
- use Getopt::Std;
- use DBI;
- my %options;
- getopts('u:p:d:h:help',\%options); //冒号代表其后需要跟一个参数
- if (scalar(keys %options) < 4) {
- printf "USAGE\n";
- printf "\t%s -u username -p password -d database -h hostname/ip\n","$0";
- exit 0;
- }
- my $username = $options{u} if defined $options{u};
- my $password = $options{p} if defined $options{p};
- my $database = $options{d} if defined $options{d};
- my $hostname = $options{h} if defined $options{h};
- my $dsn = "DBI:mysql:database=$database;host=$hostname;port=3306";
- my $dbh = DBI->connect($dsn,"$username","$password",{PrintError=>0,RaiseError=>1})
- or die "Can't connect to mysql" . DBI->errstr;
- my $table = qq/
- CREATE TABLE IF NOT EXISTS test (
- order_id int(5) not null auto_increment,
- name varchar(10) not null default '',
- email varchar(20) not null default '',
- PRIMARY KEY (order_id));
- /;
- my $sth = $dbh->prepare($table);
- $sth->execute();
- my $data = qq/
- INSERT INTO test VALUES
- (null,'henry','henry\@abc.com'),
- (null,'tom','tom\@abc.com'),
- (null,'teddy','teddy\@abc.com');
- /;
- $sth = $dbh->do($data);
- my $query = qq/SELECT * FROM test/;
- $sth = $dbh->prepare($query);
- $sth->execute();
- while (my @array = $sth->fetchrow_array()) {
- print join "\t",@array,"\n";
- }
|
|
|