http://www.perlmonks.org?node_id=1049934


in reply to Incomplete Output When Printing Hash

I have no idea if this is going to be of any help, but, quite possibly, this is going to give you a more reasonable count on your data:

my $count = values %myobjtdets;

Replies are listed 'Best First'.
Re^2: Incomplete Output When Printing Hash
by AnomalousMonk (Archbishop) on Aug 18, 2013 at 19:49 UTC
    ... quite possibly, this is going to give you a more reasonable count on your data:
    my $count = values %myobjtdets;

    I don't understand. How could
        my $count = values %myobjtdets;
    produce anything at all different from
        my $count = keys %myobjtdets;
    for the  $count scalar?

[reply]
[d/l]
[select]

      Thank you for your comment, AnomalousMonk. I thought that something like:

      print scalar values %hash;

      would return a count on only the defined values. After a quick try, this is obviously not the case. My error.

      This leads me to another possible solution illustrated in the following session under the Perl debugger:

        DB<1> %hash = (jan => 1, feb => 2, mar => undef, apr => undef, may =
+> 5);

  DB<2> x %hash
0  'feb'
1  2
2  'jan'
3  1
4  'may'
5  5
6  'mar'
7  undef
8  'apr'
9  undef

  DB<3> print scalar grep {defined $_} values %hash;
3
  DB<4> print scalar grep {defined $_} keys %hash;
5

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

In Section Seekers of Perl Wisdom