Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: Check for data in array

by fazedandconfused (Novice)
on Feb 08, 2012 at 13:00 UTC ( #952488=note: print w/ replies, xml ) Need Help??


in reply to Re: Check for data in array
in thread Check for data in array

I'm not sure as I didn't write all this code. Most of it is taken from a Xymon sample.

Here is the peice of code that builds the Hash,

while ($line = <STDIN>) { if ($line =~ /^\@\@client\#/) { # It's the start of a new client message - the header +looks like this: # @@client#830759/HOSTNAME|1169985951.340108|10.60.65. +152|HOSTNAME|sunos|sunos # Grab the hostname field from the header @hdrfields = split(/\|/, $line); $hostname = $hdrfields[3]; # Clear the variables we use to store the message in $msgtxt = ""; %sections = (); } elsif ($line =~ /^\@\@/) { # End of a message. Do something with it. processmessage(); } elsif ($line =~ /^\[(.+)\]/) { # Start of new message section. $cursection = $1; $sections{ $cursection } = "\n"; } else { # Add another line to the entire message text variable +, # and the the current section. $msgtxt = $msgtxt . $line; $sections{ $cursection } = $sections{ $cursection } . +$line; } }


Comment on Re^2: Check for data in array
Download Code
Re^3: Check for data in array
by choroba (Abbot) on Feb 08, 2012 at 14:23 UTC
    Use Data::Dumper, try
    warn Dumper \%sections;
    before matching the regexp. With your sample data contained as string in the hash, everything should work.

      I've added warn Dumper \%sections; into my script and it still doesn't work. Any further ideas?

        Use Dumper as a debugging tool. What does it print to STDERR?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://952488]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (13)
As of 2014-09-18 09:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (109 votes), past polls