in reply to meaning for the code

It pushes the first instance of each different item in @cn1_newnnn into the array @cn1_new and counts the number of repeats in %ss (assuming %ss is empty beforehand). Consider:

use strict;
use warnings;

my @cn1_new;
my @cn1_newnnn = qw(apple orange grape apple lemon banana apple grape)
+;
my %ss;

push(@cn1_new,grep {!$ss{$_}++} @cn1_newnnn);

print "$_: $ss{$_}\n" for sort keys %ss;
print "@cn1_new\n";

[download]

Prints:

apple: 3
banana: 1
grape: 2
lemon: 1
orange: 1
apple orange grape lemon banana

[download]
DWIM is Perl's answer to Gödel

Replies are listed 'Best First'.
Re^2: meaning for the code
by Util (Priest) on Dec 23, 2006 at 05:36 UTC

    ++GrandFather.
    Also, if %ss is not used later in the program, then it was probably just used as a 'seen' hash, to keep track of the values seen during the removal of duplicate elements from the array. In the past, the common perl idiom for this has been my %seen; @foo = grep {!$seen{$_}++} @bar;, which looks just like the OP's code. This form 'leaks' the %seen hash, and is *very* confusing to many programmers. To improve clarity and stop the leak, it can be wrapped in a subroutine. The sub is often named 'uniq', the same name as the similar Unix program:

    # Remove duplicate elements, leaving only unique elements.
sub uniq {
    my %seen;
    return grep { ! $seen{$_}++ } @_;
}
@foo = uniq @bar;

    [download]
    Currently, the best practice it to import uniq() from List::MoreUtils, rather than coding it directly:
    use List::MoreUtils qw( uniq );
@foo = uniq @bar;

    [download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom