Mark.Allan has asked for the wisdom of the Perl Monks concerning the following question:
perl version = v5.8.2
I have an issue with parsing a file, I have for instance 5 keys in a %results hash which I have already populated key1,key2,key3,key4,key5
Using them key values, I need to open a file, search for the line which matches each key, then process the attribute values which exist before the ENDKEY for each key and update the %results hash. for example:
HIT key1 so start to process attrib1: base = FULL attribmsg: middle = MEDIUM ENDKEY HIT key2 so start to process attrib1: base = FULL ENDKEY HIT key9 so start to process attrib1: base = FULL ENDKEY
Notice key9 is in the file but is not in my hash therefore its keys and data attributes should never be matched.
snipet of code so far which dont work
open(FH,"<$file") || die ("cannot open file"); foreach my $key (sort keys %results){ local $/ = "ENDKEY\n"; while (my $line =~ /$key/){ if ($line =~ /\S+\s($key).*/){ my $keymatch = $1; $results{$keymatch}{attrib1} = 'null'; $results{$keymatch}{attribmsg} = 'null'; } if (/\s+(attrib1|attribmsg):.*=\s(\S+)/){ $results{$keymatch}{$1} = $2;} } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Matching hash keys in text file
by Eily (Monsignor) on Sep 08, 2013 at 13:46 UTC |
Back to
Seekers of Perl Wisdom