Re: Anonymous Arrays or Anonymous Array References

My eyes are opened! Then is there a way to coerce an array with parenthesis into a hash?

@U = keys ('A'=>1,'B'=>2,'Z'=>26);
[download]

Mostly I have been using the following approach:

@U = keys %{{ map { $_=>1} @NU }};
[download]

Comment on Re: Anonymous Arrays or Anonymous Array References Select or Download Code

Replies are listed 'Best First'.
Re^2: Anonymous Arrays or Anonymous Array References by moritz (Cardinal) on Mar 03, 2011 at 16:26 UTC
Not with parenthesis, which create lists. The `%{ { ... } }` is the shortest way I know of. Perl 6 - second systems done right	[reply] [d/l]
Re^2: Anonymous Arrays or Anonymous Array References by ikegami (Patriarch) on Mar 03, 2011 at 19:07 UTC
`@U = keys ('A'=>1,'B'=>2,'Z'=>26);` That's the same as getting every second item (starting with the first) and removing duplicates. There's no good shorthand for that, even if you omit the requirement to remove duplicates. `@U = keys %{{ map { $_=>1} @NU }};` If the contents of @NU has no duplicates, then that's the same as `my @U = @NU;` [download] If your question is how to remove duplicates, then there's an answer in perlfaq4. Some solutions `my @U = uniq @NU; # From List::Util` [download] I use the idiomatic `my %seen; my @U = grep !$seen{$_}++, @NU;` [download]	[reply] [d/l] [select]