1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#!/usr/bin/perl
$db = "item_db";
$nb_columns = 22;
@str_col = (1,2,7,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);
}
}
}
print("\n");
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
}
|
