#!/usr/bin/perl

# Este abre el fichero callejero.txt y generra 
# callejero.sql

open (IN, "callejero.txt");
open (OUT, "+>callejero.sql");

while (!eof(IN)) {
$linea = <IN>;
$linea = substr($linea,0,-1);
($string,$x,$y) = split (",",$linea);
print OUT "insert into map (string,x,y) values (\"$string\",\"$x\",\"$y\");\n";
}
close IN,
close OUT;