ffzg/filter/lang_swish.pm

#!/usr/bin/perl -w

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

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