摘要：
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 阅读全文
摘要：
周末在家没事干，突然想写算3d号码的计算器。但是没写完，因为有事情要忙。。先记录下，下午出去回来继续改。#!/usr/bin/perluse DBI;# 生成随机数字0-999$num=int(rand(999));# 查找已经出过奖的数字# 这个是已出过的中奖号码$old=read_db("select * from old_papar");# 这个是自己买的，且没中过的号码#$user=read_db("select * from new_papar");# 创建两个个哈希表%old_number=();%user_number=();print $ 阅读全文