OpenStreetMap
I am working on a perl script which can fix a "braided street" in US TIGER data, as described at
osm.wiki/index.php/TIGER_fixup
It is a command-line tool which will download and fix the ways and produce a file which you can open in JOSM to verify and upload.
It should be ready for others to try out within the next few days.
Ideally it would be a JOSM plugin, but I don't know Java. Yet. This just may be the project that pushes me to learn it.
Thảo luận
Bình luận của Edward vào 23 tháng 4 năm 2008 lúc 10:24
Excellent, this is been on my todo list. Here is some Perl to find braided streets in a OSM data dump:
#!/usr/bin/perl
use strict;
use warnings;
open my $fh, "data.osm" or die $!;
my $state = 1;
my $way_id;
my %node_way;
my %way_node;
my %way_tag;
my %node_loc;
while (<$fh>) {
if ($state == 1) {
if (/ $2, lon => $3 };
next;
}
/^ !) {
$state = 2; next;
}
}
}
close $fh;
my %look_at;
while (my ($k, $v) = each %node_way) {
@$v > 1 or next;
$way_tag{$_}{highway} and $look_at{$_} = 1 for @$v;
}
my %seen;
$seen{$_} or linked_ways($_) for keys %look_at;
sub api {
my $way = shift;
return "$way_tag{$way}{name} ([http://api.openstreetmap.org/api/0.5/way/$way $way])";
}
sub linked_ways {
my $way = shift;
my $name = $way_tag{$way}{name} or return;
$way_node{$way} or die $way;
my %cross_way;
foreach my $node (@{$way_node{$way}}) {
my @ways = grep { $way_tag{$_}{name} } @{$node_way{$node}};
@ways or next;
$cross_way{$_}++ for @ways;
$cross_way{$way}--;
}
while (my ($k, $v) = each %cross_way) {
$v < 3 and delete $cross_way{$k}
}
%cross_way or return;
my $loc = $node_loc{$way_node{$way}[0]};
print "# [http://informationfreeway.org/?lat=$loc->{lat}&lon=$loc->{lon}&zoom=17 map]: ";
$seen{$_} = 1 for keys %cross_way;
print join (", ", map api($_), $way, keys %cross_way);
print "\n";
}
Bình luận của Edward vào 23 tháng 4 năm 2008 lúc 10:26
Actually, just take a look at http://www.edwardbetts.com/osm/find_braided_streets