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
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
