Re^3: Parse a file into a hash

[aaron_baugher]

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
  }
}

[kazak]

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.