Re: HoH problem representing a data structure.

Rodrick Brown wrote:
> 
> #!/usr/bin/perl -w

The -w switch is redundant, since you have "use warnings;".

> use strict;
> use warnings;
> use Data::Dumper;
> my $file = '/etc/passwd';
> my $hash;
> my ($user, $homeDir);
> my $count=0;

Why did you declare that variable?

> open(my $fh, "<", $file) or die("Fatal error unable to read $file: $!");
> while(<$fh>) {
>   next if /^#/;
>   ($user, $homeDir) = (split /:/,$_)[0,5];
>   $hash->{$homeDir} = $user;

You probably want:

     push @{ $hash->{$homeDir} }, $user;

> }
> print Dumper($hash);

-- 
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl