in reply to How to grep exact string

if (grep { $_ eq $unique } @first_list_new) {
   ...;
}

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Replies are listed 'Best First'.
Re^2: How to grep exact string
by Divakar (Sexton) on Nov 15, 2012 at 08:04 UTC
    Hi tobyink, did you try this? i am getting syntax error if i replaced with what you gave. Thanks & Regards, Divakar
[reply]

      My suggested grep has been correct Perl syntax since Perl 5.0. (Perhaps before?)

      Note there are no parentheses after the grep... not this:

      grep({ ... } @list)

      [download]

      And note that there's no comma after the block... not this:

      grep { ... }, @list

      [download]

      It just needs to be like this:

      grep { ... } @list

      [download]

      If you really want parentheses, they can go on the outside:

      (grep { ... } @list)

      [download]
      perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]
[select]
        I think what is breaking it for me is the $_ eq $unique. When I include that, real matches don't register as matches.

        EDIT: nevermind... typo.

[reply]
[d/l]
      I believe the way you have it is a correct way to do it (see grep): 
      grep ( /^$unique$/, @first_list_new )

      [download]
      An alternate syntax is: 
      grep { /^$unique$/ } @first_list_new

      [download]
[reply]
[d/l]
[select]

        That's not a search for an exact string though. $unique might contain regexp metacharacters like ".".

        perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]

In Section Seekers of Perl Wisdom