Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-17 16:40:07 +02:00
Code Issues Releases Wiki Activity

A script to find strings in audacity.pot to disambiguate

Browse Source
This commit is contained in:
Paul Licameli 2020-05-20 08:52:06 -04:00
parent a3d690e473
commit 4d78e656fc
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
locale/find-duplicates.pl Executable file
View File

@ -0,0 +1,28 @@
#!/usr/bin/perl
use strict 'vars';
open(my $fh, "<", "audacity.pot")
or die "Can't open < audacity.pot: $!";
my @sourcelines = ();
$\ = "\n";
foreach my $line (<$fh>) {
chop $line;
my @tokens = split(/ /, $line, 2);
if ($tokens[0] eq "#:") {
push @sourcelines, split(/ /, $tokens[1]);
}
elsif ($tokens[0] eq "msgid") {
if( @sourcelines > 1) {
print;
print $tokens[1];
foreach my $sourceline (@sourcelines) {
print $sourceline;
}
}
@sourcelines = ();
}
}