Re^5: Parse a file into a hash

[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;