mirror of
https://github.com/ClickHouse/ClickHouse.git
synced 2024-11-16 12:44:42 +00:00
26 lines
639 B
Perl
Executable File
26 lines
639 B
Perl
Executable File
#!/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) {
|
|
$name =~ s/^\s+//;
|
|
$name =~ s/\s+$//;
|
|
$name =~ s/(\t|\n)/ /g;
|
|
if ($name ne '') {
|
|
print { $outputs{$lang} } $key . "\t" . $name . "\n";
|
|
}
|
|
}
|
|
}
|
|
}
|