Re^4: Parse a file into a hash

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

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

Comment on Re^4: Parse a file into a hash

Replies are listed 'Best First'.
Re^5: Parse a file into a hash by mendeepak (Scribe) on Apr 07, 2012 at 05:55 UTC
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;` [download]	[reply] [d/l]
Re^6: Parse a file into a hash by kazak (Beadle) on Apr 09, 2012 at 14:43 UTC
Yes it helped. Thanks to everyone.	[reply]

In Section Seekers of Perl Wisdom