[Perl-unix-users] Hash of Hash Perl Questions.....

[Williams, P. Lane]

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