10.50.0.0    255.255.0.0
164.130.4.0     255.255.252.0
164.130.8.0     255.255.248.0
164.130.16.0    255.255.240.0
164.130.32.0    255.255.248.0
164.130.40.0   255.255.252.0

##</code><code>##

use DBI;
my $dir='/ipmap';
my $id=0;

opendir(DIR,$dir);
my @files = grep { $_ ne "." and $_ ne ".." } readdir DIR;
closedir(DIR);


my %attrib = (
             PrintError => 0,
             RaiseError => 1
             );

my $dbh = DBI->connect('dbi:SQLite:ipadd.db',"","",\%attrib);
my $query = $dbh->prepare("insert into siteip (tla,ip,range) values (?,?,?)");

print "@files\n";

foreach my $file (@files)
 {
   chomp($file);
   my @ins='';
   my($tla,undef)=split(/\./,$file);
   print "Processing for $tla\n";
   open(FI,"$dir\/$file")|| die $!;
   while(<FI>)
       {
         $id=+1;
         next if m/^\s*$/ or m/^\s*#/;
         my $line=$_;
         @ins = split(/\s+/,$line);
#         print "Inserting $tla $ins[0] $ins[1]";
              $query->execute("$tla","$ins[0]","$ins[1]");
     }
}
$dbh->disconnect;