+++ /dev/null
-#!/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;