mirror of
https://github.com/ClickHouse/ClickHouse.git
synced 2024-09-21 09:10:48 +00:00
geobase_to_regions_names.pl script added [#CONV-7735]
This commit is contained in:
parent
65b1d524a3
commit
6f909ada4e
20
dbms/scripts/geobase_to_regions_names.pl
Executable file
20
dbms/scripts/geobase_to_regions_names.pl
Executable file
@ -0,0 +1,20 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use geobase;
|
||||
|
||||
my @languages = ('ru', 'en', 'ua', 'by', 'kz', 'tr');
|
||||
my @output_files = map { open(my $output, ">:encoding(UTF-8)", "regions_names_" . $_ . ".txt") || die $!; $output } @languages;
|
||||
my %outputs;
|
||||
@outputs{@languages} = @output_files;
|
||||
|
||||
foreach my $key (keys %Region) {
|
||||
foreach my $lang (@languages) {
|
||||
my $field = ( $lang eq 'ru' ? 'name' : $lang . '_name' );
|
||||
my $name = $Region{$key}->{$field};
|
||||
if ($name) {
|
||||
print { $outputs{$lang} } $key . "\t" . $name . "\n";
|
||||
}
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user