Constructing a hash

[Anonymous Monk]

I am trying to construct a hash like below,i dont see any errors but I dont see the hash getting constructed?Any idea?

use warnings;
use strict;
open (my $fh, '<', "data.txt") or die "could not open dirs.log $!;

 
while (my $line=<$fh>) {
$key = lc($line);
$Hash{$key}=$line;
}

open my $hash, '>', "hash.txt";
print $hash Dumper( \%Hash );
close $hash;

[bart]

You didn't declare all the variables: %Hash, $key. Your error message on line 3 is missing the closing quote. You didn't use Data::Dumper (for Dumper). Check the return value (and $! if it fails) of the second open call.

And then, at least, you should see an error message, or a file with at least an empty hash in it.

Oh, and you probably want to chomp each line.

Is there a reason why you're not seeing existing error messages, for example for the current failed compilation? Because that's what it looks like to me.

[philipbailey]

Your program doesn't run as shown, so you have either retyped it incorrectly or are mistaken in thinking you have run it. It is always best to cut and paste the exact program you are trying to debug.

Once the missing shebang line, missing closing double quote in the die, missing use statement for Data::Dumper, and missing declaration of variables are all fixed, the program in fact works.

[Anonymous Monk]

Your program does not compile or run as is (it will die with errors), so maybe you're not running the program at all?

[Anonymous Monk]

Can someone help me constructing the hash?

[danwoods]

Yeah, like the other people said, your code has some serious fundamental problems... May need to hit an intro to perl tutorial or something... But, for now:

use strict;
use warnings;
use Data::Dumper;

open (FH, "<data.txt");
my (%hash);
while (my $line = <FH>) {
    my $key = lc($line);
    $hash{$key} = $line;
}
close(FH);

open (FH, ">hash.txt");
print FH Data::Dumper->Dump([%hash]);
close(FH);

That should work for you.