Perl
¥¤¥ó¥Ý¡¼¥ÈÊýË¡ †
- ¥Ç¡¼¥¿¥Ù¡¼¥¹¡¢¥æ¡¼¥¶Ì¾¡¢¥Ñ¥¹¥ï¡¼¥É¤ÎÀßÄê
- mysql -u root -p
- create database ¥Ç¡¼¥¿¥Ù¡¼¥¹Ì¾;
- grant all on ¥Ç¡¼¥¿¥Ù¡¼¥¹Ì¾.* to ¥æ¡¼¥¶Ì¾@localhost identified by '¥Ñ¥¹¥ï¡¼¥É';
- flush privileges;
- ºîÀ®¤·¤¿¥Õ¥¡¥¤¥ë¤ò¥¤¥ó¥Ý¡¼¥È
- mysql xxxdb < xxxdb.sql -u DB¥æ¡¼¥¶Ì¾ -p
¥¤¥ó¥Ý¡¼¥ÈÍÑsql¥Õ¥¡¥¤¥ë¤ÎºîÀ®ÊýË¡ †
GSK¤ÎÃÏ̾¼½ñ¤òMySQL¤Ë³ÊǼ¤¹¤ë †
$file = $fileout = "chimei-utf8.csv";
$fileout =~ s/csv$//;
$fileout .= "sql";
open(IN,"$file");
open(OUT,">$fileout");
print OUT <<EOF;
CREATE TABLE `PlaceName` (
`id0` TEXT NOT NULL ,
`id1` TEXT NOT NULL ,
`id2` TEXT NOT NULL ,
`id3` TEXT NOT NULL ,
`id4` TEXT NOT NULL ,
`id5` TEXT NOT NULL ,
`id35` TEXT NOT NULL ,
`id36` TEXT NOT NULL ,
`id37` TEXT NOT NULL ,
`id38` TEXT NOT NULL
) ENGINE = MYISAM ;
EOF
while(<IN>){
chomp;
chop;
undef $content;
@tmp = split(/,/,$_);
for($i=0;$i<=5;$i++){
$content .= "\"$tmp[$i]\",";
}
for($i=35;$i<=38;$i++){
$content .= "\"$tmp[$i]\",";
}
chop $content;
print OUT "INSERT INTO `PlaceName` VALUES ($content);\n";
}
close(OUT);
close(IN);