Re^5: Parse a file into a hash

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

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]

Comment on Re^5: Parse a file into a hash Download Code

Replies are listed 'Best First'.
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