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;