As long as the templates are consistent, its pretty simple. You probably have each printer template in a separate file, so read each file into a hash of hash of hashes. Something like:
use File::Basename; opendir(DIR, "/template/dir") or die "can't open dir: $!"; # I'm guessing at the template extension if there is one @templates = grep { /\.tmpl$/ } readdir DIR; closedir DIR; my %printers; for my $file (@templates) { open (FH, $file) or die "Error opening $file: $!"; my $name; while (<FH>) { chomp; my ($tmp_name, $value) = split /\s*:\s*/; $name = $tmp_name if $tmp_name; $value =~ s/,$//; $printers{basename($file)}{$name}{$value} = undef; } close FH; } # Now %printers contains all valid printer attributes # and their values
Update: I didn't write code to compare versions, but lets say you do the above once for the old version, once for the new version, so you have two hashes:
my (%old, %new); ... for my $printer (sort keys %old) { print("Printer $printer not in new\n"), next unless exists $new{$printer}; for my $name (sort keys %{$old{$printer}}) { print("Attribute $name not in new for printer $printer\n"), next unless exists $new{$printer}{$name}; for my $val (sort keys %{$old{$printer}{$name}}) { print("Val $val not in new for printer $printer attrib $name\n"), next unless exists $new{$printer}{$name}{$val}; } } } # Then do the reverse comparision looping over %new # I'm sure you can figure that out

In reply to Re: Need to build attribute parser by runrig
in thread Need to build attribute parser by Lord Rau

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.