I am trying to write a PERL app that will look at the messages logfile and
weed out the firewall messages. Then build a pretty daily report. I first
grep what I am looking for into an array. Then I feed that information into
a hash formatted with the variable that I want....(below). Once I have it
all in the hash I can build pretty reports.
Reporting isn't the problem and getting the information isn't the
problem......it's the array portion of the hash.
I am trying to produce a Hash of Hash where the value portion will be an
array. The array portion would look like this (eth0,etho,etho,eth1,eth0).
What I would realy like to do would be able to have only one accurance of
each value with a counter value attached...such as (eth0x4,eth1x1).
This is what the hash looks like..basically...
%HoH = (
machine-name => {
ssh => (eth0,eth1,eth0,eth0),
telnet => (eth0,eth1,eth0,eth0),
icmp => (eth0,eth1,eth0,eth0),
},
machine-name2 => {
ssh => (eth0,eth1,eth0,eth0),
telnet => (eth0,eth1,eth0,eth0),
icmp => (eth0,eth1,eth0,eth0),
},
);
This is what I would like it to look like........
%HoH = (
machine-name => {
ssh => (eth0x3,eth1x1),
telnet => (eth0x3,eth1x1),
icmp => (eth0x3,eth1x1),
},
machine-name2 => {
ssh => (eth0x3,eth1x1),
telnet => (eth0x3,eth1x1),
icmp => (eth0x3,eth1x1),
},
);
Anyone have any basic pointers of how to handle the array portion?? I am
thinking I will need to include a subroutine that will do the job.
Thanks for any help,
Lane
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
