Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Parsing data into an Array of Hashes

by svsingh (Priest)
on Sep 18, 2003 at 13:14 UTC ( #292380=note: print w/ replies, xml ) Need Help??


in reply to Parsing data into an Array of Hashes

No one's suggested it yet, so I thought I'd try something. I was able to do this without splitting the data. I just looped it through a regex. If your data is all on one line, then you don't even need the outer while loop. Hope this helps.

#!/usr/local/bin/perl -w use strict; use Data::Dumper; my %records; while ( <DATA> ) { chomp; while ( m| (\w+)\s* = \s*([^,]+)\s* |gx ) { $records{$1} = $2; # add to hash } } print Dumper( \%records ); __DATA__ F1=D1, F2 = D2, F3= D3, F4 =D4, F5 = D5
Ouput:
$VAR1 = { 'F2' => 'D2', 'F3' => 'D3', 'F4' => 'D4', 'F5' => 'D5', 'F1' => 'D1' };


Comment on Re: Parsing data into an Array of Hashes
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (15)
As of 2014-07-31 13:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (248 votes), past polls