Re: [D-I] Checking variables substitutions

[barbier@linuxfr.org (Denis Barbier)]

On Sun, Jan 30, 2005 at 10:33:31PM +0100, Christian Perrier wrote:
> > I thought about it and already wrote this other script, but I am unsure
> > whether it is better to hide such swappings.  Anyway here it is.
> 
> 
> It's considerably better : for instance try on the Estonian or Finnish
> files..:-)
> 
> Would it be possible to indeed merge both behaviours in one script and
> just switch from one to another with a command-line switch?
> 

Indeed, you are right.
With this script, -s does not report swapped entries.

Denis

#! /usr/bin/perl -w

use strict;
use Getopt::Long qw(GetOptions);

my $sort = 0;
GetOptions(
        'sort|s' => \$sort
);

sub getVars
{
        my $text = shift;
        my @vars = ();
        while ($text =~ m/\G.*?(\$\{[^{}]+\})/g) {
                push @vars, $1;
        }
        @vars = sort (@vars) if $sort;
        return join ('', @vars);
}

$/ = "\n\n";
open (PO, "< $ARGV[0]") or die "Unable to open $ARGV[0]: $!\n";
while (<PO>)
{
        s/"\n"//g;
        next if m/^#, .*fuzzy/m;
        next unless m/^msgid/m;
        (my $msgid) = m/^msgid "(.*)"$/m;
        (my $msgstr) = m/^msgstr "(.*)"$/m;
        next if $msgstr eq '';
        my $var1 = getVars($msgid);
        my $var2 = getVars($msgstr);
        print if $var1 ne $var2;
}
close (PO);