墨迹哥'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->{'connect_db'}=DBI->connect("DBI:mysql:database 阅读全文

摘要： 优化了下程序，让它更加简单。。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=@_[0];host=@_[1]","@_[2]","@_[3]") or die &quo 阅读全文

摘要： 经过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; i 阅读全文

摘要： 写得好纠结，目前不知道哪里有问题，还在研究。。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(@_){ $sel 阅读全文

摘要： 发现有个蛋疼的事情，还是没了解透。记录下已经研究出来的。package Person;use strict;sub new{ my $self = {}; $self->{name} =undef; $self->{age}=undef; bless($self); return $self;}sub name{ my $self=shift; if(@_){$self->{name}=shift}; return $self->{name};}sub age{ my $self=shift; if(@_){$self->{age}=shift}; return 阅读全文