Nothing special, its just a way to speed up searches when
you have well defined search keys. You can do: $search_for = 'Failed|Ugly|Broken';
while (<LOG>) {
print if /$search_for/;
...
if you don't have a whole lot of items (or so I look
at it, probably benchmarkably wrong) but if you've got
a larger number, using a hash is a nice way to
speed it up over the iterate through an array approach you
used. It needs to be something like this, where the
looked for text is consistent, though.
The only other sneakiness (besides lopping of the initial
memory (?) hex in brackets part to make the split-ing
easier) was to see that there were 2 kinds of data lines;
one w/ an = and variable left-hand side words and one
w/o the = and the last word always being the 'result'.
'course I wrote the mess before recognizing that
you were printing unless the data matched a list
item.
a | [reply] [Watch: Dir/Any] [d/l] |