[JaxPM] syslog analyzing

[Bill Jones]

On the jacksonville-pm-list; Jax.PM'er Bill Jones <bill at fccj.org> wrote -

No, I am missing something :)

Try this code:

# Note that this is NOT -w safe...

my @hash = (%postfix, %mars, %jupiter, %szebra,
            %wwwsaigon, %sol, %mercury, %zeus);

for $i (0 .. $#hash) {

   while(($key, $val)=(each %{ $hash[$i] } )){
        $val =~ s/^, //;
        chomp $key;
        print "$val $key \n";
   }
}

HTH,
-Sneex- :]
- FCCJ * 501 W State St * Jacksonville, Fl 32202 * 904/632-3089 -

> From: Nate <nate at campin.net>
> Date: Fri, 7 Apr 2000 15:56:03 -0700 (PDT)
> To: Bill Jones <bill at fccj.org>
> Cc: jacksonville-pm-list at happyfunball.pm.org
> Subject: Re: [JaxPM] syslog analyzing
> 
> On the jacksonville-pm-list; Jax.PM'er Nate <nate at campin.net> wrote -
> 
> Bill,
> 
> Am I missing something? I don't see where it tells you how to use each on
> each of a _list_ of hashes.


Jax.PM Moderator's Note:
This message was posted to the Jacksonville Perl Monger's Group listserv.
The group manager can be reached at -- owner-jacksonville-pm-list at pm.org
to whom send all praises, complaints, or comments...