UNIX for Dummies Questions & Answers

Saaaaabbbbbccccc|ok
Sdddddfffffggggg|ok

gawk -F'|'
'{
    if($2 ~ /^ok$/){
        match($1,/(bbbbb)/,f)
	split($1,array,f[1])
	sub(array[1],"",$1)
	}
	
    else{
        $1 == $1
	}
		
	print $1 OFS $2	
}

bbbbbccccc|ok
Sdddddfffffggggg|ok

bbbbbccccc|ok
dddddfffffggggg|ok

match (string, regexp)

gawk -F'|' '
        {
                if ( $2 == "ok" )
                {
                        n = match ( $1, /bbbbb.*/ )
                        if ( n )
                        {
                                $1 = substr ( $1, RSTART, RLENGTH )
                        }
                }
        }
        1
' OFS='|' file

gawk 'BEGIN{
field1="Sdddddfffffggggg"
split(field1,array,"")
print "Pattern : [" array[1] "]"
print "Field 1 :[" field1 "]"
sub(array[1],"",field1)
print "Field 1 after substitution: [" field1 "]" }'
 
Pattern : [S]
Field 1 :[Sdddddfffffggggg]
Field 1 after substitution: [dddddfffffggggg]

match (string, regex [, array])