diff options
author | Alexey Yakovenko <wakeroid@gmail.com> | 2010-09-19 15:35:37 +0200 |
---|---|---|
committer | Alexey Yakovenko <wakeroid@gmail.com> | 2010-09-19 15:35:37 +0200 |
commit | 2fbe97579c77a4431b3e7fadd6b688237a688a8c (patch) | |
tree | 4af8f8a24194edad0edf22503b99bee76d5dbee0 /extract_translators.pl | |
parent | 4e7f11c2b6dd03b3804034075ef3e9296bb5c015 (diff) |
added list of translators
Diffstat (limited to 'extract_translators.pl')
-rwxr-xr-x | extract_translators.pl | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/extract_translators.pl b/extract_translators.pl new file mode 100755 index 00000000..a3ad02a2 --- /dev/null +++ b/extract_translators.pl @@ -0,0 +1,54 @@ +#!/usr/bin/env perl + +use strict; +use Locale::Language; +use Locale::Country; + +my @files = split /\s+/, `ls po/*.po`; +my @files = sort {$a cmp $b} @files; + +foreach my $f (@files) { + open F, "<$f"; + + my $code = $f; + $code =~ s/^po\/(.*)\.po/$1/g; + + my $script; + if ($code =~ /(.*)@(.*)/) { + $code = $1; + $script = $2; + } + + my $country; + if ($code =~ /(.*)_(.*)/) { + $code = $1; + $country = code2country ($2); + } + + my $lang = code2language($code); + #print "$code\n"; + print "$lang"; + if ($country) { + print " ($country)"; + } + if ($script) { + print " ($script)"; + } + print "\n"; + while (<F>) { + if (/^#/) { + if (/\@/ && !(/Yakovenko/) && !(/EMAIL/)) { + s/^#//; + s/, [0-9]+\.$//g; + chomp; + print "$_\n"; + } + } + else { + last; + } + } + print "\n"; + + close F; +} |