linux ftp perl上传脚本
作者 佚名技术
来源 Linux系统
浏览
发布时间 2012-04-24
| ** use DBI; my $driver="DBI:mysql"; my $log_everyday="select id,onlineMax,onlineAvg,activeIdNum,payIdNum,payIdNumAll,payNum,newAccount,goldUse,addTime from gameLog.log_everyday;"; my $tbl_sch_charactor="select id,guid,name,gender,tg,`to`,classId,exp,expSkill,exPoint from database.tbl_sch_charactor order by id;";
my $tbl_sch_account="select id,last,lastIp from database.tbl_sch_account;"; my $dbh=DBI->connect("$driver:database=$database;host=$host;user=$user;password=$password") ; $dbh->do("set names utf8;") or die "Can''t set names". dbh->errstr; my $sth=$dbh->prepare($log_everyday) or die "Can''t connect: ". sth->err; $sth->execute() or die sth->err; print "*"x20,"n","提取log_everyday表里的数据,n","*"x20,"n"; my($id,$onlineMax,$onlineAvg,$activeIdNum,$payIdNum,$payIdNumAll,$payNum,$newAccount,$goldUse,$addTime); $sth->bind_columns($id,$onlineMax,$onlineAvg,$activeIdNum,$payIdNum,$payIdNumAll,$payNum,$newAccount,$goldUse,$addTime); open (HEAD,">$file")|| die "Can''t open $accountfile:$!n"; printf HEAD "%st%-st%-st%-st%-st%-st%-st%-st%-st%-sn","id","onlineMax","onlineAvg","activeIdNum","payIdNum","payIdNumAll","payNum","newAccount","goldUse","addTime"; while($sth->fetch()){ open (HEAD,">>$file")|| die "Can''t open newfile:$!n"; printf HEAD "%st%-st%-st%-st%-st%-st%-st%-st%-st%-sn",$id,$onlineMax,$onlineAvg,$activeIdNum,$payIdNum,$payIdNumAll,$payNum,$newAccount,$goldUse,$addTime; } my $sth_account=$dbh->prepare($tbl_sch_account) or die "Can''t connect: ". $sth_account->err; $sth_account->execute() or die $sth_account->err; print "提取表tbl_sch_account数据...n"; my($id,$last,$lastIP); $sth_account->bind_columns($id,$last,$lastIP); open (HEAD,">$accountfile")|| die "Can''t open $accountfile:$!n"; printf HEAD "%st%-st%-sn","id","last","lastIP"; while($sth_account->fetch()){ open (HEAD,">>$accountfile")|| die "Can''t open newfile:$!n"; printf HEAD "%st%-st%-sn",$id,$last,$lastIP; } #tbl_sch_charactor print "提取tbl_sch_charactor表数据n";
my $tbl_charactor=$dbh->prepare($tbl_sch_charactor) or die "Can''t connect: ". $tbl_charactor->errstr ; $tbl_charactor->execute() or die $tbl_charactor->errstr; my($id,$guid,$name,$gender,$tg,$to,$classId,$exp,$expSkill,$exPoint); $tbl_charactor->bind_columns($id,$guid,$name,$gender,$tg,$to,$classId,$exp,$expSkill,$exPoint); open (SELECTOUT,">$charactorfile")|| die "Can''t open newfile:$!n"; printf SELECTOUT "%-st%-st%-st%-st%-st%-st%-st%-st%-st%-sn","id","guid","name","gender","tg","to","classId","exp","expSkill","exPoint"; while($tbl_charactor->fetch()){ open (SELECTOUT,">>$charactorfile")|| die "Can''t open newfile:$!n"; printf SELECTOUT "%-st%-st%-st%-st%-st%-st%-st%-st%-st%-sn",$id,$guid,$name,$gender,$tg,$to,$classId,$exp,$expSkill,$exPoint; } ##################### ##FTP上传 #本小段参考：http://www.diybl.com/course/4_webprogram/cgi/perljs/200862/120244.html ################################################## |
||
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 开源数据库“五虎将”下一篇: 初学Linux的心得
关于linux ftp perl上传脚本的所有评论
