#!/usr/bin/perl $db = "item_db"; $nb_columns = 22; @str_col = (1,2,19,20,21); $line_format = "([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),([^\,]*),(\{.*\}),(\{.*\}),(\{.*\})"; #$line_format = ; $create_table = "# # Table structure for table `item_db` # DROP TABLE IF EXISTS `item_db`; CREATE TABLE `item_db` ( `id` smallint(5) unsigned NOT NULL default '0', `name_english` varchar(50) NOT NULL default '', `name_japanese` varchar(50) NOT NULL default '', `type` tinyint(2) unsigned NOT NULL default '0', `price_buy` mediumint(10) unsigned default NULL, `price_sell` mediumint(10) unsigned default NULL, `weight` smallint(5) unsigned NOT NULL default '0', `attack` smallint(3) unsigned default NULL, `defence` tinyint(3) unsigned default NULL, `range` tinyint(2) unsigned default NULL, `slots` tinyint(2) unsigned default NULL, `equip_jobs` int(12) unsigned default NULL, `equip_upper` tinyint(8) unsigned default NULL, `equip_genders` tinyint(2) unsigned default NULL, `equip_locations` smallint(4) unsigned default NULL, `weapon_level` tinyint(2) unsigned default NULL, `equip_level` tinyint(3) unsigned default NULL, `refineable` tinyint(1) unsigned default NULL, `view` smallint(3) unsigned default NULL, `script` text, `equip_script` text, `unequip_script` text, PRIMARY KEY (`id`) ) ENGINE=MyISAM; "; printf("%s\n",$create_table); while ($ligne=<STDIN>) { if ($ligne =~ /[^\r\n]+/) { $ligne = $&; if ($ligne =~ /^\/\//) { printf("# "); $ligne = substr($ligne, 2); } if ($ligne =~ $line_format) { @champ = ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22); } else { @champ = (); } if ($#champ != $nb_columns - 1) { # Can't parse, it's a real comment printf ("%s\n", $ligne); } else { printf("REPLACE INTO `%s` VALUES (", $db); for ($i=0; $i<$#champ; $i++) { printField($champ[$i],",",$i); } printField($champ[$#champ],");\n",$#champ); } } } sub printField { my ($str, $suffix, $idCol) = @_; # Remove first { and last } if ($str =~ /{.*}/) { $str = substr($&,1,-1); } # If nothing, put NULL if ($str eq "") { printf("NULL%s", $suffix); } else { my $flag = 0; # Search if it's a string column ? foreach $col (@str_col) { if ($col == $idCol) { $flag = 1; break; } } if ($flag == 1) { # String column, so escape and add '' printf("'%s'%s", escape($str), $suffix); } else { # Not a string column printf("%s%s", $str,$suffix); } } } sub escape { my ($str) = @_; my @str_splitted = split("'", $str); my $result = ""; for (my $i=0; $i<=$#str_splitted; $i++) { if ($i == 0) { $result = @str_splitted[0]; } else { $result = $result."\\'".@str_splitted[$i]; } } return $result }