in reply to Re: Extract Duplicates by one liner
in thread Extract Duplicates by one liner

That doesn't seem to work:


$ perl -le 'my @array = qw( foo bar bar baz); my @dups = do {my %h; gr
+ep $h{$_}++, @array};
print join( ", ", @dup );'

$

[download]

Update: Nevermind. That'll teach me to use strict.

Prints nothing.

"There is no shame in being self-taught, only in not trying to learn in the first place." -- Atrus, Myst: The Book of D'ni.

In Section Seekers of Perl Wisdom