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(@_[0]); $select->execute(); #$self{select_db}=$select->fetchrow_hashref(); $self{select_db}=$select; } return $self{select_db}; } 1;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步