Shell Programming and Scripting

You can lose elements with 210 and so on:

Code:

% echo '{210, 645, 22}, {310, 23, 0}'| perl -nle '$,=",";print /\{[^0]*\}/g'

But so it works:

Code:

perl -nle '$,=", "; print grep { ! /\b0\b/ } /\{.*?\}/g'

Thank you for the idea. It's simpler.

Hi yazu, suppose if the given input data is present between the pair of braces (enveloped by braces) (i.e) {{...}, {...}, {...}} then I have noticed a flaw that when the matching expression is a corner case or the last element in the array then your code deletes the final '}' (outermost closing brace) also. Consider: {{123, 2, 244}, {22, 756, 92}, {211, 0, 22}}

Outputs: {{123, 2, 244}, {22, 756, 92} --> closing brace is missing. I need to get the closing '}' also. Please help.

Code:

$
$
$ cat f7
{123, 2, 244}, {233, 0, 432}, {0, 233, 24}, {353, 21, 0}, {22, 756, 92}, {281, 0, 211}, {211, 645, 22}, {310, 23, 0}
{{123, 2, 244}, {22, 756, 92}, {211, 0, 22}}
$
$
$
$ perl -plne 's/,* *{[^}{]*? *\b0,*.*?}//g' f7
{123, 2, 244}, {22, 756, 92}, {211, 645, 22}
{{123, 2, 244}, {22, 756, 92}}
$
$
$

tyler_durden

Thank you durden_tyler, its awesome!! worked like charm

If possible, could you explain us the logic of the RE?