Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
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 (Canon) 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 musing on the Monastery: (5)
As of 2015-07-05 09:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (61 votes), past polls