source: subversion/applications/utils/import/wdb2osm/find_segments_in_turkey.pl @ 5763

Last change on this file since 5763 was 5762, checked in by hakan, 13 years ago

Find segments that are at least partially contained in turkey

File size: 1.0 KB
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6my @all_files;
7
8for my $dir ("asia-riv", "europe-riv", "asia-bdy", "europe-bdy")
9{
10        opendir (DIR, "WDB/$dir");
11        my @files = grep { /\.osm/ } readdir(DIR);
12        closedir (DIR);
13
14        for (@files)
15        {
16                push @all_files, "WDB/" . $dir . "/" . $_;
17        }
18}
19
20for my $file (@all_files)
21{
22        my $keep = 0;
23
24        open (FILE, "< $file") || die ("Can't open $file to read: $!\n");
25        while (<FILE>)
26        {
27                if (/node/)
28                {
29                        chomp;
30                        my @foo = split(/[\"]/, $_);
31                       
32                        # print "'" . join("', '", @foo) . "'\n";
33                        # <node id=', '-251', ' lat=', '45.133333', ' lon=', '27.946944', '/>
34                        #    0          1         2       3             4        5         
35                       
36                        my $lat = $foo[3];
37                        my $lon = $foo[5];
38
39                        if ($lat >= 35.5 && $lat <= 42.5)
40                        {
41                                if ($lon >= 26.0 && $lon < 45.0)
42                                {
43                                        $keep = 1;                                     
44                                }
45                        }
46                }
47        }
48        close (FILE);
49
50
51        if ($keep)
52        {
53                my $new_file = $file;
54                $new_file =~ s/\//-/g;
55                $new_file =~ s/WDB-/WDB\/keepme\//;
56               
57                print "Renaming $file to $new_file\n";
58
59                mkdir ("WDB/keepme", 0755);
60                rename ($file, $new_file);
61        }
62}
Note: See TracBrowser for help on using the repository browser.