A hash with only one entry

[columb]

I've got some code which builds up a hash of hashes. If all is well then the secondary hash should have two entries, otherwise I need to report the error.

So far my code looks like

my %users;
# each entry $users{$user} should look like { host1 => uid1, host2 => uid2 }

foreach my $user ( %users )
  {
  if ( scalar keys %{$users{$user}} == 1 )
    {
     print "$user is only registered on one host - ?????\n";
     next;
    }
  }

What should go in the ???? bit please?

Ceci n'est pas une signature
Columb Healy

 

[travs69]

print "$user is only registered on one host - ", keys %{$users{$user}}, "\n";

 

[columb]

Thanks travs69

The solution, once I saw it, was obvious, but I'd never have got there on my own.

I owe you one.

Ceci n'est pas une signature
Columb Healy

 

[travs69]

No problem