Search Results

this is fun!


perl -pe 's/(?:=)(\w+)\w/\1__ /g ; 1 while s/(\w)(\w)((__ )+)/\1__ \3/' < input-text-file

Truth be told, this is the c__ __ __ __ __ __
I've e__ __ __ g__ __ __ __ __ to a...

Another variation:
# cat x.txt
Truth be told, this is the =closest
I've =ever =gotten to a =college =graduation.
# awk '{for (i=1;i<=NF;i++) { if ($i ~ /^=/) { $i=substr($i,2); gsub...

Try this...

#Variation 1
awk '{ for(i=1;i<=NF;i++) {
if($i~"=") {
l=length($i)-1
if($i~"[\\.,]$"){
...

I think you want something like this:

nawk '/=/{for(i=1;i<=NF;i++) if ($i ~/^=/) $i=("_______[" ++count "]" FS substr($i,2))}1' myFile

A small awk script to preprocess your input:


awk '
/=/ {
for( i = 1; i <= NF; i++ )
{
if( substr( $(i), 1, 1 ) == "=" )
$(i) = "__________["...