Original code:
From the inside out:print "$_\n" for glob "{@{[ join ',', @letters ]}}" x $len;
creates a comma separated string: A,B,C,D,E,F.join ',', @letters
[...] creates an anonymous array of 1 element, which @{[...]} then dereferences. Putting that inside double quotes interpolates that 1 element array into the double-quoted string, surrounded by the outside pair of {}, yielding {A,B,C,D,E,F}.
x $len repeats the string, in this case 4 times, to give:
glob treats each {...} as a set, and generates all strings with one element from each set.{A,B,C,D,E,F}{A,B,C,D,E,F}{A,B,C,D,E,F}{A,B,C,D,E,F}
I've always felt like this was almost undocumented, because the glob entry points to 2 other entries, one of which is completely unhelpful in this case, and the other which backs into it as an afterthought. If you're not paying attention, or don't already know it from some other context, glob doesn't improve the situation.
The reason for the "{@{[...]}}" magic is to take the string from join and sandwich it between the curlies. That's a lot of work, and not always easy to follow. I prefer the following, just because it's easier to explain:
I sometimes see code a bit convoluted because someone forgot that join can also take parens to disambiguate it's arguments from the rest of the expression. In this case, glob uses parens for precedence with x $len, though the outer set of parens could be replaced with a leading +, as in:print "$_\n" for glob (('{'. join( ',', @letters).'}') x $len);
As has been noted before (see this subthread), glob isn't necessarily good for large list generation.print "$_\n" for glob +('{'. join( ',', @letters).'}') x $len;
-QM
--
Quantum Mechanics: The dreams stuff is made of
In reply to Re^3: extracting all possible n-mers from an array
by QM
in thread extracting all possible n-mers from an array
by gingaloon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |