sqlserver数据导入mysql三: 把生成的表分成几份(拆分成几份运行)

概述#!/usr/bin/perluse Encode;use Encode::CN;use DBI;use Switch;use strict;use Net::HandlerSocket;use threads;use Time::HiRes 'time';print "请输入数字确认要把所有表分成几份"; my $var=0;$var=<STDIN>; chop ($

#!/usr/bin/perluse Encode;use Encode::CN;use DBI;use Switch;use strict;use Net::HandlerSocket;use threads;use Time::HiRes 'time';print "请输入数字确认要把所有表分成几份"; my $var=0;$var=<STDIN>; chop ($var);  print "请输入总表名"; my $read=0;$read=<STDIN>; chop ($read);    my $readtxtname=$read; my @a; open(file,"$readtxtname");     while (<file>) {    chomp;     if(defined($_ ))  { push @a,$_;   } }close(file);my $many=int(@a/$var);my $count=@a;print $many."\n";print $count."\n";   my $i=1;while($i<=$var){ my $outtxtname="alltablename_exportname_"."$i"."\.txt"; my $index=$many*($i-1); if($i==$var) { while($index<=@a-1){  open(file,">>$outtxtname");  syswrite(file,"@a[$index]\n");    syswrite(file,"@a[$index+1]\n"); close(file); $index=$index+2; }  } else {  while($index<=$many*$i-1){  open(file,"@a[$index+1]\n"); close(file); $index=$index+2;} } $i++;}print "ok";

总结

以上是内存溢出为你收集整理的sqlserver数据导入mysql三: 把生成的表分成几份(拆分成几份运行)全部内容，希望文章能够帮你解决sqlserver数据导入mysql三: 把生成的表分成几份(拆分成几份运行)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。