#!/usr/bin/perl

open (OUT, "| psql -h mowgli -U helm helm_mowgli_new_schema");
while (<STDIN>) {
 chomp;
 ($name,$uri) = split(/\|/);
 print "   Inserisco $name#$uri\n";
 $name =~ s/'/\\'/g;
 $uri =~ s/'/\\'/g;
 print OUT "insert into objectName values ('$name', '$uri');";
 print "\n";
}
close OUT;
