1 |
dpavlin |
26 |
#!/usr/bin/perl -w |
2 |
|
|
|
3 |
|
|
sub lang_display { |
4 |
|
|
my @out; |
5 |
|
|
foreach my $v1 (@_) { |
6 |
dpavlin |
729 |
$v1 =~ s/(HRV|CRO)/hrvatski/gi; |
7 |
|
|
$v1 =~ s/SCC/srpski/gi; |
8 |
|
|
$v1 =~ s/GER/njemaèki/gi; |
9 |
|
|
$v1 =~ s/ENG/engleski/gi; |
10 |
|
|
$v1 =~ s/ITA/talijanski/gi; |
11 |
|
|
$v1 =~ s/SLV/slovenski/gi; |
12 |
|
|
$v1 =~ s/RUS/ruski/gi; |
13 |
|
|
$v1 =~ s/(FRE|FR)/francuski/gi; |
14 |
|
|
$v1 =~ s/MAC/makedonski/gi; |
15 |
|
|
$v1 =~ s/HUN/maðarski/gi; |
16 |
|
|
$v1 =~ s/SWE/¹vedski/gi; |
17 |
dpavlin |
26 |
push @out,$v1; # save modified version |
18 |
|
|
} |
19 |
|
|
return @out; |
20 |
|
|
} |
21 |
|
|
|
22 |
|
|
1; |