viewing paste Unknown #6329 | Perl

Posted on the | Last edited on
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 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234
#!/usr/bin/perl
use strict;
use Getopt::Long;
 
my $sFilein = "";
my $sFileout = "";
my $sTarget = "";
my $sHelp = 0;
my $stable = "";
 
my $db;
my $nb_columns;
my @str_col = ();
my $line_format;
my $create_table;
my @defaults = ();
 
Main();
 
sub GetArgs {
    GetOptions(
    'i=s' => \$sFilein, #output file
    'o=s' => \$sFileout, #input file
    't=s'       => \$sTarget,    # re/pre-re
    'table=s' => \$stable,
    'help!' => \$sHelp,
    ) or $sHelp=1; #display help if invalid option
    my $sValidTarget = "Re|Pre";
 
    if( $sHelp ) {
                print "Incorect option specified, available option are:\n"
                        ."\t --o=filename => output filename \n"
                        ."\t --i=filename => intput filename \n"
                        ."\t --table=tablename => tablename to create \n"
                        ."\t --t=type => specify target type ([$sValidTarget]) \n";
                exit;
    }
    unless($sFilein or $sFileout){
                print "Filename_in and Filename_out are required to continue\n";
                exit;
        }
    unless($sTarget =~ /$sValidTarget/i){
                print "Incorect target specified, available target are:\n"
                        ."\t --target => target (specify wich setup to run [$sValidTarget])\n";
                exit;
    }
}
 
sub Main {
        GetArgs();
        BuildDataForType($sTarget);
        ConvertFile($sFilein,$sFileout);
        print "End Converting\n";
}
 
sub ConvertFile { my($sFilein,$sFileout)=@_;
        my $sFHout;
        print "Starting ConvertFile with : \n\t filein=$sFilein \n\t fileout=$sFileout \n";
        open FHIN,"$sFilein" or die "Can't read/found $sFilein\n";
        open $sFHout,">$sFileout" or die "Can't writte $sFileout\n";
       
        printf $sFHout ("%s\n",$create_table);
        while(my $ligne=<FHIN>)
        {
                if ($ligne =~ /[^\r\n]+/)
                {
                        $ligne = $&;
                        if ($ligne =~ /^\/\//)
                        {
                                printf $sFHout ("# ");
                                $ligne = substr($ligne, 2);
                        }
                        my @champ = ();
                        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);
                        }
                        if ($#champ != $nb_columns - 1)
                        {
                                # Can't parse, it's a real comment
                                printf $sFHout ("%s\n", $ligne);
                        } else {
                                printf $sFHout ("REPLACE INTO `%s` VALUES (", $db);
                                for (my $i=0; $i<$#champ; $i++)
                                {
                                        printField($sFHout,$champ[$i],",",$i);
                                }
                                printField($sFHout,$champ[$#champ],");\n",$#champ);
                        }
                }
        }
        print $sFHout "\n";
}
 
sub printField { my ($sFHout,$str, $suffix, $idCol) = @_;
        # Remove first { and last }
        if ($str =~ /{.*}/)
        {
                $str = substr($&,1,-1);
        }
        # If nothing, put NULL
        if ($str eq "") {
                my $sDef;
                if(scalar(@defaults)) { $sDef = $defaults[$idCol]; } #use our aray default
                else { $sDef = "NULL" unless($sDef); } #let the sql do the default
                print $sFHout "$sDef$suffix";
        } else {
                my $flag = 0;
                # Search if it's a string column ?
                foreach my $col (@str_col)
                {
                        if ($col == $idCol)
                        {
                                $flag |= 1;
                                last;
                        }
                }
                $flag |= 2 if($idCol >= $nb_columns-3);
               
                if ($flag & 3)
                {
                        # String column, so escape , remove trailing and add ''
                        my $string;
                        $string =~ s/\s+$//; #remove trailing spaces
                        $string =~ s/^\s+//;; #remove spaces at begining
                        $string = escape($str,"'","\\'") if($flag & 1) ;
                        $string = escape($string,'\\\"','\\\\\\\"') if($flag & 2) ;
                        printf $sFHout ("'%s'%s", $string, $suffix);
                } else {
                        # Not a string column
                        printf $sFHout ("%s%s", $str,$suffix);
                }
        }
}
 
sub escape { my ($str,$sregex,$sreplace) = @_;
        my @str_splitted = split($sregex, $str);
        my $result = "";
        for (my $i=0; $i<=$#str_splitted; $i++)
        {
                if ($i == 0) {
                        $result = @str_splitted[0];
                } else {
                        $result = $result.$sreplace.@str_splitted[$i];
                }
        }
        return $result
}
 
sub BuildDataForType{ my($sType) = @_;
        print "Starting BuildDataForType with : \n\t type=$sTarget \n";
       
        if($sType =~ /Pre/i){
                $db = $stable;
                $db = "item_db" unless($db);
                $nb_columns = 22;
                @str_col = (1,2,7,19,20,21);
                $line_format = "([^\,]*),"x($nb_columns-3)."(\{.*\}),"x(2)."(\{.*\})"; #last 3column are scripts
                $create_table = "
#
# Table structure for table `$db`
#
DROP TABLE IF EXISTS `$db`;
CREATE TABLE `$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;
";
        #nb those currently do not match table struct default but what we have in old sql_files !
        @defaults = ('0','\'\'','\'\'','0','NULL','NULL','0','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL');
        }
        elsif($sType =~ /Re/i){
                $db = $stable;
                $db = "item_db_re" unless($db);
                $nb_columns = 22;
                @str_col = (1,2,7,16,19,20,21);
                $line_format = "([^\,]*),"x($nb_columns-3)."(\{.*\}),"x(2)."(\{.*\})"; #last 3column are scripts
                $create_table = "
#
# Table structure for table `$db`
#
 
DROP TABLE IF EXISTS `$db`;
CREATE TABLE `$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',
`atk:matk` varchar(11) default '',
`defence` smallint(5) NULL 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` varchar(10) default '',
`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;
";
        #nb those currently do not match table struct default but what we have in old sql_files !
        @defaults = ('0','\'\'','\'\'','0','NULL','NULL','0','\'\'','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL','NULL');
        }
}
 
Viewed 502 times, submitted by lighta.