Shell Programming and Scripting

Hi expert,

As we know in regular expression, [^ab] means neither a nor b.

Now the question is how to consider <ab> as a whole part or somehow a single char. Something like [^(ab)] which is meaning neither ( nor a nor b nor ).

Or do we have another way for this?

The real requirement is as below:

Code:

find the number of semicolon<;>, which should not inside /* and */.

example1 :

Code:

a;b;c           --  2
a;/*;;*/g;c  --  2
a/;a;a;/b     --  3
a*;a;a;/b     --  3
a*;a;a;*b     --  3

I know below expression to count the number of semicolon which is inside / pair or * pair

my @cnt = $str =~ /;
(?=
(?:[^\/]*$) (?# there is no \/ after ; )
|
(?: (?:[^\/]*?\/[^\/]*\/[^\/]*)*$) (?# if have \/ after ;, must appear in pair)
)/gx;

Here i am struggling with the red highlighted part, which means not </>, how can we make it somehow mean not </*>?


Please help. Thanks in advanced

Would this work..to mean no ab's together?

Code:

[^a][^b]

And in unix regexp (not sure with Perl)we do not need to escape special characters when given within square brackets.Please remove those escape characters present within square brackets and try. I also did not understand where you struggle, can you elaborate?

---------- Post updated at 04:43 PM ---------- Previous update was at 04:15 PM ----------

Try the below reqexp using save-part. It matches anything in between, including /*..*/

Code:

\(\/\)\(\*\).*\2\1
echo 'a;/*;;*/g;c' |sed 's/\(\/\)\(\*\).*\2\1//'

Something like this:

Code:

# cat file
a;b;c           --  2
a;/*;;*/g;c  --  2
a/;a;a;/b     --  3
a*;a;a;/b     --  3
a*;a;a;*b     --  3

Code:

#  perl -ane 's/\/\*(([^\/][^\*])*)\*\///;$n=(scalar(split/;/)-1);print $n."\n"' file
2
2
3
3
3