in reply to Re^3: Hash Value via Data::Dumper
in thread Hash Value via Data::Dumper

Yes, no issue on that, however the count has to be within the loop, as it performs a lookup over the %users hash. This is the most import piece, as it establishes the relationship. 


if (defined $users{$conn1}) # search to check existing of conn to uid.
     {
        if ($num{$uid} > 1)
        {
            print "bad users"; ## user group add command.
        }
     }

[download]

Replies are listed 'Best First'.
Re^5: Hash Value via Data::Dumper
by hdb (Monsignor) on Jun 12, 2013 at 20:20 UTC

    untested as there is no perl on my ipad... 

    for $uid (keys %users) {
  print "User $uid has ";
  for my $conn (@{$users{$uid}}) {
    my $number = @{$searches{$conn}};
    print "$number searches on connection $conn\n";
    }
  }
}

    [download]
[reply]
[d/l]

      hdb,

      No perl on your ipad? Tragic.

      My first generation iPad can't be updated past 5.0.1, so I've jailbroken it and put on perl, vim and other utilities. With a jailbroken iPad, you can link app directories, like Textastic and GoodReader, to your home Documents directory. Also, I use git to keep my projects synchronized for when I'm working away from an Internet connection.

      Visit this site if you want to get perl for your iPad.

      Anne

[reply]
Re^5: Hash Value via Data::Dumper
by hdb (Monsignor) on Jun 12, 2013 at 18:48 UTC
[reply]
[d/l]

In Section Seekers of Perl Wisdom