#!/usr/local/ActivePerl-5.10/bin/perl
use strict;
use DBI;
use utf8;
#no utf8;
use Encode;

binmode STDIN , 'utf8';
 my $gazetteer_txt_datei="/Shared\ Items/Public/Datenbanken/Gazetteer/test.txt";


my $gazetteer_quellDateiname = "< ";
my $sz_line;
my @split_line;
my @split_sql;
my $sz_test_mysql;
my $sql_string;  

$gazetteer_quellDateiname = $gazetteer_quellDateiname . $gazetteer_txt_datei;


open (F_READ,"<:encoding(utf8)", $gazetteer_txt_datei) 
	or next;

while(defined (my $sz_line = <F_READ>))
{
	chomp($sz_line);

	$sz_line =~ s/'/\\'/g;
	$sz_line =~ s/,,,,/\,' ',' ',' ',/g;
	$sz_line =~ s/,,,/\,' ',' ',/g;
	$sz_line =~ s/,,/\,' ',/g;

	@split_line = split(/\t/,$sz_line);
	
        $sql_string = "INSERT INTO location (RC, UFI, UNI, LAT, LON, FC, PC, LC, SHORT_FORM, GENERIC, SORT_NAME_RO, FULL_NAME_RO, FULL_NAME_ND_RO, SORT_NAME_RG, FULL_NAME_RG, FULL_NAME_ND_RG, MODIFY_DATE)";

	$sql_string = $sql_string . " values (". $split_line[0] . "," . $split_line[1] . "," . $split_line[2] . "," . $split_line[3] . "," . $split_line[4] . ",'" . $split_line[9] . "'," . $split_line[11] . ",'" . $split_line[18] . "','" . $split_line[19] . "','" . $split_line[20] . "','" . $split_line[21] . "','" . $split_line[22] . "','" . $split_line[23] . "','" . $split_line[24] . "','" . $split_line[25] . "','" . $split_line[26] . "','" . $split_line[28] . "');";

}

close(F_READ);

exit 0;