Perl 基于OOP的数据库链接
经过zhong8解释，终于理解了。小试牛刀，写了个简化的数据库链接。package TDmodule;
use DBI;
sub new{
$self={};
$self->{username}=undef;
$self->{password}=undef;
$self->{host}=undef;
$self->{database}=undef;
$self->{connect_db}=[];
$self->{select_db}=undef;
bless $self;
return $self;
}
sub username{
my $self=shift;
if(@_){
$self->{username}=shift;
}
return $self->{username};
}
sub password{
my $self=shift;
if(@_){
$self->{password}=shift;
}
return $self->{password};
}
sub host{
my $self=shift;
if(@_){
$self->{host}=shift;
}
return $self->{host};
}
sub database{
my $self=shift;
if(@_){
$self->{database}=shift;
}
return $self->{database};
}
sub select_db{
my $self=shift;
if(@_){
$in=DBI->connect("DBI:mysql:database=$self->{database};host=$self->{host}","$self->{username}","$self->{password}") or die "No:$!\n";
my $select=$in->prepare(@_);
$select->execute();
#$self{select_db}=$select->fetchrow_hashref();
$self{select_db}=$select;
}
return $self{select_db};
}
1;
页:
[1]