On Sun, Jun 8, 2008 at 10:37 AM, Gunnar Hjalmarsson <[EMAIL PROTECTED]>
wrote:
> 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);
>
>
Yes please explain how exactly that line works? I know @{} dereferences an
array
so it looks like your pushing each user into an anonymous array.
>
> --
> 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/
>
>
