finding and removing block of identical strings

05-16-2011

Registered User

11, 0

Join Date: May 2011

Last Activity: 3 July 2011, 7:57 AM EDT

Posts: 11

Thanks Given: 1

Thanked 0 Times in 0 Posts

finding and removing block of identical strings

i have a problem in finding block of identical strings...i solved the problem in finding consecutive identical words and now i want to expand the code in order to find and remove consecutive identical block of strings...
for example the awk code removing consecutive identical word is:

Code:

#!/usr/bin/awk -f
BEGIN{
RS="[[:space:]]+";
ORS=""
}
match($0,/^([[:punct:]]*)([^[:punct:]]+)([[:punct:]]*)$/,f){
if(x != f[2])
{
print y$0;z = FNR
}
x = f[2];
y = RT
}
END{
if(z != FNR)
print f[3]"\n"
}

input:

Code:

"ana are mere mere
mere si portocale
ion are prune prune."

output:

Code:

"ana are mere si portocale
ion are prune."

and now i want to expand the code to do the following:
input:

Code:

"ana are ana are mere
ion are prune ion are prune"

output:

Code:

"ana are mere
ion are prune"

thanks

Last edited by cocostaec; 05-16-2011 at 12:01 PM..

cocostaec

View Public Profile for cocostaec

Find all posts by cocostaec

05-16-2011

Moderator

8,825, 1,112

Join Date: Feb 2005

Last Activity: 23 August 2021, 11:26 AM EDT

Location: Foxborough, MA

Posts: 8,825

Thanks Given: 579

Thanked 1,112 Times in 1,003 Posts

what's the difference between:

Code:

[unct:]

and

Code:

[: punct:]

vgersh99

View Public Profile for vgersh99

Find all posts by vgersh99

05-16-2011

Registered User

11, 0

Join Date: May 2011

Last Activity: 3 July 2011, 7:57 AM EDT

Posts: 11

Thanks Given: 1

Thanked 0 Times in 0 Posts

sorry...it is

Code:

  [:punct:]

in both cases...the punctuation signs

Last edited by cocostaec; 05-16-2011 at 12:09 PM..

cocostaec

View Public Profile for cocostaec

Find all posts by cocostaec

SuSE