Re^3: Preventing unintended list expansion inside hash literals.

I was working on this from the OP:

"However, when the hash table is empty, we just call return."

That appears to be confirmed in his code example:

...
%$hash_ref or return; # just return
...
$key;                 # or last line in sub returns a scalar
[download]

So, %some_hash is ending up as one of:

( key1 => ($val1), key2 => ($val2) )
( key1 => (),      key2 => ()      )
( key1 => ($val1), key2 => ()      )
( key1 => (),      key2 => ($val2) )
[download]

These will be flattened to:

( 'key1', $val1, 'key2', $val2 )
( 'key1', 'key2'               )
( 'key1', $val1, 'key2'        )
( 'key1', 'key2', $val2        )
[download]

The first is fine; the second is what the OP had a problem with; the last two are problematic but, assuming he's using warnings, should generate an "Odd number of elements in hash assignment" diagnostic (from perldiag).

I don't think the "comma operator returns the right-most value in the list" comes into play in any of these scenarios: all lists are either empty or only have one value.

Am I missing something with your "return (17, 42);" example?

— Ken

Comment on Re^3: Preventing unintended list expansion inside hash literals. Select or Download Code

Replies are listed 'Best First'.

Re^4: Preventing unintended list expansion inside hash literals.
by Athanasius (Archbishop) on Jan 05, 2017 at 13:00 UTC

Hello Ken,

No, you’re right: in the context of the OP’s example code, scalar works fine. I was looking to the more general question:

What's the idiomatic way to guard against unintentionally expanding a non-singleton list into the bodies of your hashes?

A “non-singleton list” can be an empty list (as in the example code), OR a list with more than one element. Use of scalar for the latter case returns the last element of the list, not the first. From the OP’s use of $array_ref->[0] as his example of “a single-element list,” I assumed that in this case he would want the first element of the list. But admittedly this is little more than a guess. :-( Sorry for the confusion.

Cheers,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]


P is for Practical
	PerlMonks