dbms: added missing file [#METR-2944].

This commit is contained in:
Alexey Milovidov 2014-09-11 21:46:41 +04:00
parent dcf240df8b
commit 5d4d84052f

View File

@ -0,0 +1,11 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use geobase;
foreach my $key (keys %Region) {
print $key . "\t"
. ($Region{$key}->{parents}[-1] || 0) . "\t"
. ($Region{$key}->{type} || 0) . "\n";
}