Re^3: Grep-Ternary Operator Question

Note the lack of 'first' and 'end' in the output.

my $string = qq! first !
        . (grep /blivitz/, @array) ? qq! yes ! : qq! no !
        . qq! end !;
[download]

my $string = 
   (  qq! first ! . (grep /blivitz/, @array)  )
      ? ( qq! yes ! )
      : ( qq! no ! . qq! end ! );
[download]

You removed a set of parens. See the update I made at the same time you were posting.

Comment on Re^3: Grep-Ternary Operator Question Select or Download Code

Replies are listed 'Best First'.
Re^4: Grep-Ternary Operator Question by ww (Archbishop) on Oct 05, 2010 at 23:32 UTC
thank you. and with the code per your advice, `my $string = qq! first ! . ( (grep /blivitz/, @array) ? qq! yes ! : qq! no ! ) . qq! end !; print $string . " -last test, lines 27-30 \n";` [download] Output is: `first no end -last test, lines 27-30` As expected	[reply] [d/l] [select]