How to read file into hash array ?

Q

How to read file into hash array ?

✍: Guest

A
 
open(IN, "<name_file")
  or die "Couldn't open file for processing: $!";
while (<IN>) {
  chomp;
  $hash_table{$_} = 0;
}
close IN;

print "$_ = $hash_table{$_}\n" foreach keys %hash_table;

2013-09-10, 2352👍, 0💬