comment on

If I'm following your code correctly, shouldn't the following line be using my $rulenum?

foreach my $rule ( keys %$rulelist ){
[download]

And some formatting suggestions, particularly as your list gets longer and more nested. Perhaps change these:

   if ( defined $rulelist->{$rulenum}->{REGION} ){
      my $rule = $rulelist->{$rulenum}->{REGION};
      if ( $rule =~ s/!// ){ # handles negation
         if ( $line -> {REGIONID} == $rule ){ next RULE };
      }
      elsif ( $line -> {REGIONID} != $rule)  { next RULE };
      ...
[download]

To this:

   if ( defined (my $rule = $rulelist->{$rulenum}->{REGION} )){
      next RULE if ( $rule =~ s/!// && $line->{REGIONID} == $rule);
      next RULE if ( $line->{REGIONID} != $rule);
      ...
[download]

Update:Fixed a typo, I had omitted the close-paren in the first next RULE statement.

In reply to Re: Algorithm To Select Lines Based On Attributes by hbm
in thread Algorithm To Select Lines Based On Attributes by ~~David~~

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

Are you posting in the right place? Check out Where do I post X? to know for sure.

Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).

Want more info? How to link or How to display code and escape characters are good places to start.


Keep It Simple, Stupid
	PerlMonks