Re: 1 != split /a/, '' ?

If I understand you correctly, the only problematic case for the split with -1 is the empty one. You can solve it by

push @keys, [ split /\./, $key_string, -1 ];
$keys[-1] = [ q() ] unless @{ $keys[-1] };
[download]

I'm not sure it's more elegant than yours (elegance is in the eye of the beholder). In your solution, you can use just '.', the A is not needed.

Note that I used a different names for the array and scalar.

I don't understand the preamble. Do you need Data::Diver?

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: 1 != split /a/, '' ? Select or Download Code

Replies are listed 'Best First'.
Re^2: 1 != split /a/, '' ? by ikegami (Patriarch) on Nov 03, 2015 at 13:27 UTC
`[ length($key_string) ? split(/\./, $key_string, -1) : '' ]` [download]	[reply] [d/l]
Re^3: 1 != split /a/, '' ? by Anonymous Monk on Nov 04, 2015 at 19:30 UTC
what is the -1 in split meaning?	[reply]
Re^4: 1 != split /a/, '' ? by Happy-the-monk (Canon) on Nov 04, 2015 at 22:12 UTC
`If LIMIT is negative, it is treated as if it were instead arbitrarily large; as many fields as possible are produced.` Cheers, Sören Créateur des bugs mobiles - let loose once, run everywhere. (hooked on the Perl Programming language)	[reply]