If your were running this code under use strict; you would have gotten an error for this part of the code:
my ($id,$ip,$country); $sql->bind_columns(\($id,$ip,$port,$country));
which should be
my ($id,$ip,$port,$country); $sql->bind_columns(\($id,$ip,$port,$count
+ry));
You are right..but it is right in my code, i've just misscopypasted some how o_O =)
This may or may not have anything to do with your problem, whatever your problem is: "and on binding a select query result we got stuck.." isn't the most clear description of an error. What kind of error are you experiencing?
Description of a problem is not in "and on binding a select query result we got stuck.." it is in a DBI debug report
>> "<- fetch=
'1' '180.118.232' undef undef row1"
So two fields are defined, but others are now..i just cant understand how it could be, while it was clearly INSERT'ed.
Also, the idiom
my $query = "CREATE ..." and sql_exec(0,$query);
is unnecessarily obfuscated. Why don't you just do:
my $query = "CREATE ..."; sql_exec(0,$query);
or even
sql_exec(0,"CREATE ...");
It is reasonable, thank you!