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 $s

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->{@H_502_80@'@H_502_80@connect_db@H_502_80@'}=DBI->connect(@H_502_80@"@H_502_80@DBI:MysqL:database=@_[0];host=@_[1]@H_502_80@",@H_502_80@"@H_502_80@@_[2]@H_502_80@",@H_502_80@"@H_502_80@@_[3]@H_502_80@") or dIE @H_502_80@"@H_502_80@No:$!\n@H_502_80@"; } return $self->{@H_502_80@'@H_502_80@connect_db@H_502_80@'}; } sub select_db{ my $self=shift; if(@_){ my $select=@_[0]->prepare(@_[1]); $select->execute(); $self{select_db}=$select; } return $self{select_db}; @_[0]->disconnect; } sub update_db{ my $self=shift; if(@_){ eval{ $self->{update_db}=@_[0]->do(@_[1]); } or dIE @H_502_80@"@H_502_80@No\n@H_502_80@"; } } sub insert_db{ my $self=shift; if(@_){ eval{ $self->{insert_db}=@_[0]->do(@_[1]); } or dIE @H_502_80@"@H_502_80@No\n@H_502_80@"; } } sub delete_db{ my $self=shift; if(@_){ eval{ $self->{delete_db}=@_[0]->do(@_[1]); } or dIE @H_502_80@"@H_502_80@No\n@H_502_80@"; } } 1;

总结

以上是内存溢出为你收集整理的Perl 基于OOP的数据库链接(增删改查)全部内容，希望文章能够帮你解决Perl 基于OOP的数据库链接(增删改查)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。