mirror of
https://github.com/Mibew/i18n.git
synced 2025-01-23 22:00:29 +03:00
34 lines
630 B
Perl
34 lines
630 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
sub sort_transl($) {
|
||
|
|
my($from) = @_;
|
||
|
|
my @translation = ();
|
||
|
|
my $header = "";
|
||
|
|
open(IN, "$from");
|
||
|
|
while(<IN>) {
|
||
|
|
chomp;
|
||
|
|
my $curr = $_;
|
||
|
|
if(/^([\w\.]+)=(.*)$/) {
|
||
|
|
if($1 ne "encoding" && $1 ne "output_charset" && $1 ne "output_encoding") {
|
||
|
|
push @translation, $curr;
|
||
|
|
} else {
|
||
|
|
$header .= "$curr\n";
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
die "wrong line in $from: $curr\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close(IN);
|
||
|
|
open(OUT, "> $from");
|
||
|
|
print OUT $header;
|
||
|
|
for$line(sort @translation) {
|
||
|
|
print OUT "$line\n";
|
||
|
|
}
|
||
|
|
close(OUT);
|
||
|
|
}
|
||
|
|
|
||
|
|
die "no parameter\n" if $#ARGV < 0;
|
||
|
|
die "doesn't exists\n" unless -e $ARGV[0];
|
||
|
|
|
||
|
|
sort_transl($ARGV[0]);
|