54 lines
1.2 KiB
Perl
54 lines
1.2 KiB
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my $language = "english";
|
||
|
|
|
||
|
|
our %config;
|
||
|
|
do "config.pl";
|
||
|
|
|
||
|
|
use DataFiles;
|
||
|
|
|
||
|
|
use Spreadsheet::WriteExcel;
|
||
|
|
|
||
|
|
tospreadsheet($config{strings_filename}, $config{data_path}."/$language/translations.txt", $config{data_path}."/$language/work.xls");
|
||
|
|
|
||
|
|
sub tospreadsheet {
|
||
|
|
my ($strings_filename, $translations_filename, $spreadsheet_filename) = @_;
|
||
|
|
|
||
|
|
my $strings = DataFiles::read_file($strings_filename);
|
||
|
|
my $translations = DataFiles::read_file($translations_filename, ignoremissing=>1);
|
||
|
|
|
||
|
|
my %data; # = ("phrase" => [ [id, translation, description, context, flags ], ... ], "noun" => ...)
|
||
|
|
|
||
|
|
for my $string (@$strings) {
|
||
|
|
my ($type, $id) = split /:/, $string->[STR_ID], 2;
|
||
|
|
|
||
|
|
my $translation = find_translation($translations, $string->[STR_ID]);
|
||
|
|
|
||
|
|
push @{$data{$type}}, [ $id, $translation, @$string[STR_DESCRIPTION, STR_CONTEXT, STR_FLAGS] ];
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
my $workbook = new Spreadsheet::WriteExcel ($spreadsheet_filename);
|
||
|
|
for my $type (reverse sort keys %data) {
|
||
|
|
|
||
|
|
my $worksheet = $workbook->add_worksheet($type);
|
||
|
|
|
||
|
|
my $row = 0;
|
||
|
|
|
||
|
|
for my $string (@{ $data{$type} }) {
|
||
|
|
|
||
|
|
my $col = 0;
|
||
|
|
$worksheet->write($row, $col++, $_) for @$string;
|
||
|
|
|
||
|
|
++$row;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub find_translation {
|
||
|
|
$_->[0] eq $_[1] && return $_->[1] for @{$_[0]};
|
||
|
|
"";
|
||
|
|
}
|