in reply to Re^3: trying to decide best data structure for problem at hand.
in thread trying to decide best data structure for problem at hand.

I don't understand this logic or data structure, but I will attempt to explain it in English. 
for every element in array unlike (which is username)
map keys values from hash entries to ??? with name and host.  Assign t
+his to the array hosts.

[download]
I understand the print statement, but the data structure build I do not. 
Why do you need keys %{$entries{$name} and why not just 
keys %{$entries}?

[download]
I would like to see output like so or something to that effect:
I tried adding values uid and gecos but got errors and played for awhi
+le and could not get it printed correctly.
So you are using name and uid as the keys and host,gecos and gid as va
+lues?
I seem to struggle with hashes even though I have read Learning and Pr
+ogramming Perl. Any advice you have?
 
wlprdadm found with uids of 134 and 135 on
        /home/dbsmith/passwd.eipdbmp1.hpux $gecos
        /home/dbsmith/passwd.carappp1.hpux $gecos

as an example.

thank you!

[download]

Replies are listed 'Best First'.
Re^5: trying to decide best data structure for problem at hand.
by GrandFather (Saint) on Jan 06, 2007 at 11:46 UTC

    %entry is a HoHoH - Hash of Hash of Hash. The first hash is keyed by name. That accesses a hash keyed by UID. That accesses a hash keyed by various parameters including the host name. In the line:

    my @hosts = map {$entries{$name}{$_}{host}} keys %{$entries{$name}};

    [download]

    we generate a list of the hosts associated with a particular name. The hosts are in the 'host' parameter in the hash accessed by UID.

    keys %{$entries{$name}} generates a list of UIDs for a given name. Remember that hashes and arrays only store scalar values so what is stored is really a reference to a hash. So the % sigil in %{...} dereferences the hash reference to be a hash which keys then returns the list of keys for.

    For each UID in the list map {$entries{$name}{$_}{host}} retreives the host name - the map generates an output list with each element from the input list replaced by the matching host name.

    DWIM is Perl's answer to Gödel
[reply]
[d/l]
[select]
      Ok thik I am getting this a little more. I printed it using Dumper like so: 
      print Dumper(\%entries),"\n";
which produces

     'kloesch' => {
                         '291' => {
                                    'gecos' => '',
                                    'host' => '/home/dbsmith/passwd.sp
+sdbp.hpux',
                                    'gid' => '102'
                                  }
                       },
          'sapdp4' => {
                        '484' => {
                                   'gecos' => '',
                                   'host' => '/home/dbsmith/passwd.dud
+bdv02.aix',
                                   'gid' => '208'
                                 }
                      },

      [download]
      I have been banging my head at how to get at gecos and gid and uid in the right printed format. The output I would like it is: 
      
wlprdadm => uid #s, gid and gecos found on
        /home/dbsmith/passwd.eipdbmp1.hpux
        /home/dbsmith/passwd.carappp1.hpux

but of course being uid, gid and gecos actual values.

Finally, can a hash only contain keys like so: 

my %hash;
my array= (a..d);
$hash{$_}++ foreach @array;

      [download]
      thank you
[reply]
[d/l]
[select]

        I think the best help I can give you at this point is to send you back to school. ;)

        Take a wander around the Tutorials campus, especially check out the Data Types and Variables department. The Data Type: Hash courses will be of particular interest. You will find the texts perldata, perlref and perldsc are required reading for those courses.

        Enjoy your term back at school.

        DWIM is Perl's answer to Gödel
[reply]

In Section Seekers of Perl Wisdom