scripts/showChangedOptions.pl

   1 #!/bin/perl
   2
   3 use strict;
   4
   5 if (!defined $ARGV[0])
   6 {
   7         print "Usaged : $0 <settingsfile>\n";
   8         exit 0;
   9 }
  10
  11 my ($buffer, $default, $changed) = ("", "", 0);
  12 open (IN, $ARGV[0]) || die "ERROR: Cannot open ".$ARGV[0];
  13 while (<IN>)
  14 {
  15         if (/default value : "([^"]+)/)
  16         {
  17                 print $buffer if ($changed);
  18
  19                 $changed = 0;
  20                 $default = $1;
  21                 $buffer = "";
  22         }
  23         elsif (/<value>([^<]+)<\/value>/)
  24         {
  25                 if ($1 ne $default)
  26                 {
  27                         $changed = 1;
  28                 }
  29         }
  30         $buffer .= $_;
  31 }
  32 close (IN);
  33 print $buffer if ($changed);
  34