mirror of
https://github.com/cookiengineer/audacity
synced 2025-10-11 17:13:37 +02:00
29 lines
510 B
Perl
Executable File
29 lines
510 B
Perl
Executable File
#!/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 = ();
|
|
}
|
|
}
|