script/locale/diff

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use YAML::Syck qw(LoadFile);
   5 use Test::Differences;
   6 use Pod::Usage ();
   7 use Getopt::Long ();
   8
   9 =head1 NAME
  10
  11 locale-diff - Compare two YAML files and print how their datastructures differ
  12
  13 =head1 SYNOPSIS
  14
  15     locale-diff en.yml is.yml
  16     locale-diff en.yml is.yml | grep '*'
  17
  18 =head1 DESCRIPTION
  19
  20 This utility prints the differences between two YAML files using
  21 L<Test::Differences>. The purpose of it is to diff the files is
  22 F<config/locales> to find out what keys need to be added to the
  23 translated files when F<en.yml> changes.
  24
  25 =head1 OPTIONS
  26
  27 =over
  28
  29 =item -h, --help
  30
  31 Print this help message.
  32
  33 =back
  34
  35 =head1 AUTHOR
  36
  37 E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@f-prot.com>
  38
  39 =cut
  40
  41 # Get the command-line options
  42 Getopt::Long::Parser->new(
  43     config => [ qw< bundling no_ignore_case no_require_order pass_through > ],
  44 )->getoptions(
  45     'h|help' => \my $help,
  46 ) or help();
  47
  48 # On --help
  49 help() if $help;
  50
  51 # If we're not given two .yml files
  52 help() if @ARGV != 2 or (!-f $ARGV[0] or !-f $ARGV[1]);
  53
  54 my ($from, $to) = @ARGV;
  55
  56 my $from_data = LoadFile($from);
  57 my $to_data   = LoadFile($to);
  58
  59 my $from_parsed = { iterate($from_data->{basename($from)}) };
  60 my $to_parsed = { iterate($to_data->{basename($to)}) };
  61
  62 # Delete hash values
  63 #walkdepth \&delete_hash_values, $_ for $from_data, $to_data;
  64
  65 # Hack around Test::Differences wanting a Test::* module loaded
  66 $INC{"Test.pm"} = 1;
  67 sub Test::ok { print shift }
  68
  69 # Diff the tree
  70 eq_or_diff([ sort keys %$from_parsed ], [ sort keys %$to_parsed ]);
  71
  72 exit 0;
  73
  74 sub iterate
  75 {
  76     my ($hash, @path) = @_;
  77     my @ret;
  78
  79     while (my ($k, $v) = each %$hash)
  80     {
  81         if (ref $v eq 'HASH')
  82         {
  83              push @ret => iterate($v, @path, $k);
  84         }
  85         else
  86         {
  87             push @ret => join(".",@path, $k), $v;
  88         }
  89     }
  90
  91     return @ret;
  92 }
  93
  94 sub basename
  95 {
  96     my $name = shift;
  97     $name =~ s[\..*?$][];
  98     $name;
  99 }
 100
 101 sub help
 102 {
 103     my %arg = @_;
 104
 105     Pod::Usage::pod2usage(
 106         -verbose => $arg{ verbose },
 107         -exitval => $arg{ exitval } || 0,
 108     );
 109 }