Re^4: Parse a file into a hash

[kazak]

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

[mendeepak]

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;

[kazak]

Yes it helped. Thanks to everyone.