<?xml version="1.0" encoding="windows-1252"?>
<node id="281412" title="Re: Re: Perl Idioms Explained - keys %{{map{$_=&gt;1}@list}}" created="2003-08-06 10:24:55" updated="2005-08-12 10:34:03">
<type id="11">
note</type>
<author id="105128">
Jenda</author>
<data>
<field name="doctext">

&lt;p&gt;This actually seems to be slightly quicker than the grep based solution:&lt;code&gt;
Benchmark: timing 100000 iterations of broquaint, grep_seen, aristotle, juerd...
 broquaint: 25 wallclock secs (21.62 usr +  0.01 sys = 21.63 CPU) @ 4622.99/s (n=100000)
 grep_seen: 12 wallclock secs (11.55 usr +  0.00 sys = 11.55 CPU) @ 8660.26/s (n=100000)
 aristotle: 10 wallclock secs ( 9.05 usr +  0.00 sys =  9.05 CPU) @ 11044.84/s (n=100000)
     juerd:  9 wallclock secs ( 8.66 usr +  0.00 sys =  8.66 CPU) @ 11543.35/s (n=100000)
&lt;/code&gt;
on &lt;code&gt;
my @list = qw/a b c d d a e b a b d e f a erti wen udfgn
 wei sdej usdjdh iu t k a b b b b a a a a c d  f e f s r s
 gkl h u s y t d s w s d log u log ds/;
&lt;/code&gt;

&lt;p&gt;Jenda&lt;br&gt;
&lt;small&gt;&lt;i&gt;Always code as if the guy who ends up maintaining your code
will be a violent psychopath who knows where you live.&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp;-- Rick Osborne&lt;/i&gt;&lt;/small&gt;&lt;/p&gt;
&lt;p&gt;&lt;small&gt;Edit by [castaway]: Closed small tag in signature&lt;/small&gt;&lt;/p&gt;</field>
<field name="root_node">
280658</field>
<field name="parent_node">
280788</field>
</data>
</node>
