Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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
$VAR1 = { 'F2' => 'D2', 'F3' => 'D3', 'F4' => 'D4', 'F5' => 'D5', 'F1' => 'D1' };

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://292380]
[Corion]: marto: Heh - we've got the rain here, now. But it's only intermittently, not permanent. But funny that you should complain about rain ;)
[Discipulus]: rain? i dont remember it..
[marto]: and good news all round, Flash will die come 2020!
[Corion]: So who will be the saviour of the universe, then?!
[marto]: Corion++, asking the right questions
[marto]: the rain is back

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2017-07-26 10:55 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (390 votes). Check out past polls.