#!/usr/bin/perl

use strict;
use DBI;

my $file = 'dsg_list.txt';
open(FILE,$file) or die $!;

my $dbh = DBI->connect('dbi:Pg:dbname=hellas','','',{AutoCommit => 0});
open(OUT,">dsg2.txt") or die $!;
foreach (<FILE>) {
	my ($code,$name) = split("\t",$_);
	$name =~ s/\s+$//g;
	my @words = split(' ',$name);
	$_ = ucfirst(lc($_)) for @words;
	$name = join(' ',@words);	
	print OUT join(':',$code,$name)."\n";
	my $sql = "INSERT INTO feature (code,name) VALUES ('$code','$name')";
	$dbh->do($sql);
}

close OUT;
 
$dbh->commit;
$dbh->disconnect;