spider661
07-19-2008, 05:46 AM
im trying to make a perl file that will take all the info from them spell_us.txt file and place it into an sql file i can import into my database but its not working can anyone help please?
#!/usr/bin/perl -w
#
# Imports spells from spell_us.txt to spell table, as described in the config below
$spellfile="spells_us.txt";
$sqlspellfile="allspells.sql";
$tbspells = "spells";
#
open FS,"> $sqlspellfile";
#
print "\nLoading spells from $spellfile... ";
@ids=`$spellfile`;
print "done";
#
print "\nUploading spells to the file... \n";
$cpt=0;
foreach (@ids) {
$_ =~ s/\"/\"/g;
@i=split(/\^/,$_);
if ($i[0]>0) {
$cpt++;
$query="INSERT INTO $tbspells ".
"SET spellid=".$i[0].
",name=\"".$i[1].
"\",castonyou=\"".$i[6].
"\",castonother=\"".$i[7].
"\",fading=\"".$i[8].
"\",range=".($i[9]!=""?$i[9]:0).
",aoerange=".($i[10]!=""?$i[10]:0).
",casttime=".($i[13]!=""?$i[13]:0).
",recoverytime=".($i[14]!=""?$i[14]:0).
",recasttime=".($i[15]!=""?$i[15]:0).
",buffformula=".($i[16]!=""?$i[16]:0).
",buffduration=".($i[17]!=""?$i[17]:0).
",aoeduration=".($i[18]!=""?$i[18]:0).
",targettype=".($i[98]!=""?$i[98]:0).
",skill=".($i[100]!=""?$i[100]:0).
",timeofday=".($i[103]!=""?$i[103]:0).
",mana=".($i[19]!=""?$i[19]:0);
# formulas
for ($n=1; $n<=12; $n++) { $query=$query.
",buff$n=".($i[85+$n]!=""?$i[85+$n]:0).
",buff".$n."val=".($i[19+$n]!=""?$i[19+$n]:0).
",buff".$n."max=".($i[43+$n]!=""?$i[43+$n]:0).
",buff".$n."form=".($i[69+$n]!=""?$i[69+$n]:0); }
# lvls per class
for ($n=1; $n<=16; $n++) { $query=$query.",level$n=".$i[103+$n]; }
for ($n=1; $n<=4; $n++) {
$query=$query.
",regent".$n."_id=".($i[57+$n]!=""?$i[57+$n]:0).
",regent".$n."_count=".($i[61+$n]!=""?$i[61+$n]:0);
}
print FS $query.";\n";
}
if ($cpt%100==0) { print "\n$cpt spells uploaded..."; }
}
print "\n\n";
close FS;
print "done, spells table full\n\n";
it just say Loading spells from spells_us.txt... and just sits there i even tried cutting out most the spells just to see if it was just taking along time to read but nothing it just sits there and does nothing if i close the spell file that opens then it says the rest of the text like it finished but did not fill the sql file.
#!/usr/bin/perl -w
#
# Imports spells from spell_us.txt to spell table, as described in the config below
$spellfile="spells_us.txt";
$sqlspellfile="allspells.sql";
$tbspells = "spells";
#
open FS,"> $sqlspellfile";
#
print "\nLoading spells from $spellfile... ";
@ids=`$spellfile`;
print "done";
#
print "\nUploading spells to the file... \n";
$cpt=0;
foreach (@ids) {
$_ =~ s/\"/\"/g;
@i=split(/\^/,$_);
if ($i[0]>0) {
$cpt++;
$query="INSERT INTO $tbspells ".
"SET spellid=".$i[0].
",name=\"".$i[1].
"\",castonyou=\"".$i[6].
"\",castonother=\"".$i[7].
"\",fading=\"".$i[8].
"\",range=".($i[9]!=""?$i[9]:0).
",aoerange=".($i[10]!=""?$i[10]:0).
",casttime=".($i[13]!=""?$i[13]:0).
",recoverytime=".($i[14]!=""?$i[14]:0).
",recasttime=".($i[15]!=""?$i[15]:0).
",buffformula=".($i[16]!=""?$i[16]:0).
",buffduration=".($i[17]!=""?$i[17]:0).
",aoeduration=".($i[18]!=""?$i[18]:0).
",targettype=".($i[98]!=""?$i[98]:0).
",skill=".($i[100]!=""?$i[100]:0).
",timeofday=".($i[103]!=""?$i[103]:0).
",mana=".($i[19]!=""?$i[19]:0);
# formulas
for ($n=1; $n<=12; $n++) { $query=$query.
",buff$n=".($i[85+$n]!=""?$i[85+$n]:0).
",buff".$n."val=".($i[19+$n]!=""?$i[19+$n]:0).
",buff".$n."max=".($i[43+$n]!=""?$i[43+$n]:0).
",buff".$n."form=".($i[69+$n]!=""?$i[69+$n]:0); }
# lvls per class
for ($n=1; $n<=16; $n++) { $query=$query.",level$n=".$i[103+$n]; }
for ($n=1; $n<=4; $n++) {
$query=$query.
",regent".$n."_id=".($i[57+$n]!=""?$i[57+$n]:0).
",regent".$n."_count=".($i[61+$n]!=""?$i[61+$n]:0);
}
print FS $query.";\n";
}
if ($cpt%100==0) { print "\n$cpt spells uploaded..."; }
}
print "\n\n";
close FS;
print "done, spells table full\n\n";
it just say Loading spells from spells_us.txt... and just sits there i even tried cutting out most the spells just to see if it was just taking along time to read but nothing it just sits there and does nothing if i close the spell file that opens then it says the rest of the text like it finished but did not fill the sql file.