1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!/usr/bin/perl
# Purpose: To create internationalized versions of default.svg.
# Usage: create_defaults.pl
use strict;
use warnings;
use utf8;
my $count = 0;
# Data base
my @data = (
["be", "Пласт 1", "layer1"],
["ca", "Capa 1", "capa1"],
["cs", "Vrstva 1", "layer1"],
["de", "Ebene 1", "layer1"],
["eo", "Tavolo 1", "layer1"],
["es", "Capa 1", "layer1"],
["eu", "Capa 1", "layer1"],
["fi", "Taso 1", "layer1"],
["fr", "Calque 1", "layer1"],
["hu", "1. réteg", "layer1"],
["it", "Livello 1", "layer1"],
["ja", "レイヤー 1", "layer1"],
["lt", "Sluoksnis 1", "layer1"],
["nl", "Laag 1", "layer1"],
["pl", "Warstwa 1", "layer1"],
["pt_BR", "Camada 1", "layer1"],
["ro", "Strat 1", "layer1"],
["sk", "Vrstva 1", "layer1"],
["zh_TW", "圖層 1", "layer1"]
);
foreach my $lang (@data ) {
++$count;
my @values = @{$lang};
print "$values[0]\n";
my $filename = "default." . $values[0] . ".svg";
open( OUTPUT, '>:encoding(UTF-8)', $filename ) or die "Cannot open $filename.\n";
# Open input again to return to top...
open (INPUT, '<:encoding(UTF-8)', "default.svg") or die 'Cannot open input\n';
while( my $line = <INPUT> ) {
if( $line =~ /inkscape:label=/ ) {
$line =~ s/Layer 1/$values[1]/;
}
print OUTPUT $line;
}
close( INPUT );
close( OUTPUT );
}
print "Created $count files.\n";
|
