Perl 基于OOP的数据库链接（优化）
优化了下程序，让它更加简单。。package TDmodule;
use DBI;
sub new{
$self={};
$self->{select_db}=undef;
bless $self;
return $self;
}
sub connect_db{
my $self=shift;
if(@_){
$self->{'connect_db'}=DBI->connect("DBI:mysql:database=@_;host=@_","@_","@_") or die "No:$!\n";
}
return $self->{'connect_db'};
}
sub select_db{
my $self=shift;
if(@_){
my $select=@_->prepare(@_);
$select->execute();
$self{select_db}=$select;
}
return $self{select_db};
}
1;
页:
[1]