- 论坛徽章:
- 1
|
#!/usr/bin/perl
# load module
use DBI;
use strict;
use warnings;
my $dbh = DBI->connect("DBI:mysql:database=20w;host=192.168.1.216",
"root", '123456', {'RaiseError' => 1});
$dbh->do("SET NAMES UTF8");
my $end_rows = 1;
while ($end_rows < 200000){
my $sth = $dbh->prepare("CREATE TABLE t_province_ip_$end_rows (
province_id INTEGER(11) NOT NULL AUTO_INCREMENT,
ip_start VARCHAR(255) COLLATE utf8_general_ci DEFAULT NULL,
ip_end VARCHAR(255) COLLATE utf8_general_ci DEFAULT NULL,
province_name VARCHAR(255) COLLATE utf8_general_ci DEFAULT NULL,
province_name_other VARCHAR(255) COLLATE utf8_general_ci DEFAULT NULL,
;PRIMARY KEY (province_id)
;)ENGINE=INNODB
AUTO_INCREMENT=1 CHARACTER SET 'utf8' COLLATE 'utf8_general_ci';");
$sth->execute();
$dbh->do("insert into t_province_ip_$end_rows
(ip_start,ip_end,province_name,province_name_other)
select ip_start,ip_end,province_name,province_name_other from t_province_ip_new limit 10000");
$end_rows++;
} |
用珊瑚的IP库前1W条建了20W个表,在建中,估计要半个小时左右吧。 |
|