# die "НЕ ЗАБУДЬ СКОНВЕРТИРОВАТЬ ВХОДНОЙ ФАЙЛ В ЮНИКОД! NE ZABUD SKONVERTIROVAT VHODNOY FILE V UTF!";

my $game_descr_file = 'game_descr.txt';
my $db_type = 'SQLite';
my $db_name = '../sqlite_db/gb_blogs.sqlite';
my $db_login = '';
my $db_password = '';

my $dbh = db_connect($db_type,$db_name,$db_login,$db_password);
database_filling($game_descr_file, $dbh);
$dbh->disconnect;

exit 0;

sub database_filling {
# Парсинг исходного файле с описаниями игр, заголовками и тегами для них.
# Каждая запись разбирается на составляющие и обновляется соответствующая таблица в БД.
my ($infile, $dbh) = @_;
my ($GameID, $PostHeader, $PostBody, $PostTags, $file, $BlogID);
open (IN_FILE, '< ', $infile) or die "Can't open file $infile: ". $!, "\n"; { local $/ = "\n\n"; # локально внутри блока из { } изменям признак конца входной строки, т.к. отдельные тексты в файле разделены пустой строкой. while (){
++$BlogID;
chomp;
s/^\s+//;
s/\s+$//;
if(m!(\d+)\n

\n(.+)\n(.+)!xsi)
{
($GameID, $PostHeader, $PostBody, $PostTags) = ($1, $2, $3, $4);
# print "GID: $GameID\nBLOG: $BlogID\nHEAD: $PostHeader\nBODY: $PostBody\nTAGS: $PostTags\n";
put_to_db ($dbh, $GameID, $PostHeader, $PostBody, $PostTags, $BlogID); # кладем полученные данные в базу
}
else {die "Check input file format! (end of line (must be \\n - unix) or encoding (must be UTF-8)\n";}
}
}
close (IN_FILE);
}

sub db_connect {
my ($db_type,$db_name,$db_login,$db_password) = @_;
my $dbh = DBI->connect("DBI:$db_type:$db_name","$db_login","$db_password",
# {Unicode => 1}
)
or die "Connecting: $DBI::errstr\n"; # подключаемся к базе SQL (открывается дескриптор БД)
$dbh->{unicode} = 1 if $db_type eq 'SQLite';

return $dbh
}

sub put_to_db {
my ($dbh, $GameID, $PostHeader, $PostBody, $PostTags, $BlogID) = @_;
# my $db_data = $dbh->do("INSERT INTO BlogsMainData (BlogID) VALUES $BlogID;");