Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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; } }

Replies are listed 'Best First'.
Re^3: Check for data in array
by choroba (Bishop) 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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://952488]
[Corion]: Hi marto and Discipulus!
[marto]: 2 weeks holiday :)
[usemodperl]: greetings

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (9)
As of 2018-06-20 08:48 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.