mirror of
https://github.com/ClickHouse/ClickHouse.git
synced 2024-11-23 08:02:02 +00:00
12 lines
204 B
Perl
12 lines
204 B
Perl
|
#!/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";
|
||
|
|
}
|