Perl 基于OOP的数据库链接(增删改查)
package TDmodule;use DBI;
sub new{
$self={};
$self->{select_db}=undef;
$self->{delete_db}=undef;
$self->{insert_db}=undef;
$self->{update_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};
@_->disconnect;
}
sub update_db{
my $self=shift;
if(@_){
eval{
$self->{update_db}=@_->do(@_);
} or die "No\n";
}
}
sub insert_db{
my $self=shift;
if(@_){
eval{
$self->{insert_db}=@_->do(@_);
} or die "No\n";
}
}
sub delete_db{
my $self=shift;
if(@_){
eval{
$self->{delete_db}=@_->do(@_);
} or die "No\n";
}
}
1;
页:
[1]