Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^3: Parse a file into a hash

by aaron_baugher (Curate)
on Apr 05, 2012 at 22:19 UTC ( #963755=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Parse a file into a hash
in thread [Resolved] Parse a file into a hash

You should probably show us some sample data, so we can tell what "can't detect a key" means. But in general, you're talking about creating a hash of arrays. So for every key/value pair, you'll want to do something like this:

push @{$stack{$key}}, $value;

That pushes the value onto the array referenced by the key within the hash. Later, you'll be able to go through them with:

for my $key (keys %stack){ for my $value (@{$stack{$key}}){ # do stuff with $key and $value } }

Aaron B.
My Woefully Neglected Blog, where I occasionally mention Perl.


Comment on Re^3: Parse a file into a hash
Select or Download Code
Replies are listed 'Best First'.
Re^4: Parse a file into a hash
by kazak (Beadle) on Apr 06, 2012 at 14:50 UTC
    Thanks for your reply. I don't know how to preserve initial format of the file here, so I'll replace empty cells of.csv with null.

    Username; Asset Name

    Corinna Mayer;JKDef4574

    Janek Huska;NAdf8f48g5

    Eric Shtits;JSd5345kPFl

    null;A878rfgP56

    null;KDLefrtgt

    Erik Fisher;UiO8trve

    As you can see Eric Shtits owns 3 asset names in according to this .csv file, so two fields that supposed to be keys are empty.And I need to implement a solution that will be able to detect that all three asset names belong to one person. Regards, Kazak

      hi check if this code works or not its not tested.

      my ($key,$val,$keyprev); open(fh,'< file.txt'); while (<fh>){ $keyprev=$key; ($key,$val)=split /\;/, $_; $key=$keyprev if($key eq""); print "$key :: $val\n"; } close fh;

        Yes it helped. Thanks to everyone.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2015-07-31 06:18 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 (274 votes), past polls