ffzg/filter/lang_display.pm

#!/usr/bin/perl -w

sub lang_display {
        my @out;
        foreach my $v1 (@_) {
                $v1 =~ s/(HRV|CRO)/hrvatski/gi;
                $v1 =~ s/SCC/srpski/gi;
                $v1 =~ s/GER/njemaèki/gi;
                $v1 =~ s/ENG/engleski/gi;
                $v1 =~ s/ITA/talijanski/gi;
                $v1 =~ s/SLV/slovenski/gi;
                $v1 =~ s/RUS/ruski/gi;
                $v1 =~ s/(FRE|FR)/francuski/gi;
                $v1 =~ s/MAC/makedonski/gi;
                $v1 =~ s/HUN/maðarski/gi;
                $v1 =~ s/SWE/¹vedski/gi;
                $v1 =~ s/BOS/bosanski/gi;
                $v1 =~ s/SAN/sanskrt/gi;
                push @out,$v1;  # save modified version
        }
        return @out;
}

1;
1	#!/usr/bin/perl -w
2
3	sub lang_display {
4	my @out;
5	foreach my $v1 (@_) {
6	$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	$v1 =~ s/BOS/bosanski/gi;
18	$v1 =~ s/SAN/sanskrt/gi;
19	push @out,$v1; # save modified version
20	}
21	return @out;
22	}
23
24	1;