Here's an even shorter way, if you don't want to use a variable at all:
my @uniq = keys %{{ map { $_ => undef } @proc_name1 }};
However, this is slower than the slice and grep methods, both.
use strict;
use warnings;
use Benchmark q{cmpthese};
my @arr = ( q{a} .. q{z} ) x 1_000;
cmpthese(
-10,
{
useGrep => sub {
my %seen;
my @out = grep { !$seen{$_}++ } @arr;
return @out;
},
useSlice => sub {
my %seen;
@seen{@arr} = ();
my @out = keys %seen;
return @out;
},
useRef => sub {
my @out = keys %{ { map { $_ => undef } @arr } };
return @out;
},
}
);
Rate useRef useGrep useSlice
useRef 74.3/s -- -64% -84%
useGrep 204/s 175% -- -56%
useSlice 464/s 525% 127% --
(Thanks to johngg for the tests in Re: to select unique characters).
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|