Ttdfjt

I have some files in the format

Y15-SUB-B04-P17-BK_M02734_4_000000000-ANNUF_1_1111_24724_4878;size=1;
Y15-SUB-B05-P22-LM_M02734_4_000000000-ANNUF_1_1111_20624_14973;size=1;
Y15-SUB-B05-P22-LM_M02734_4_000000000-ANNUF_1_1103_11326_10379;size=1;

I wish to replace every occurrence of the underscore (_) with a colon (:) EXCEPT for the first one. I want an output like this:

Y15-SUB-B04-P17-BK_M02734:4:000000000-ANNUF:1:1111:24724:4878;size=1;
Y15-SUB-B05-P22-LM_M02734:4:000000000-ANNUF:1:1111:20624:14973;size=1;
Y15-SUB-B05-P22-LM_M02734:4:000000000-ANNUF:1:1103:11326:10379;size=1;

I know I can use sed -i '' 's/_/:/g' old_file to replace ALL (or sed 's/_/:/g' old_file > new_file), and that I could add numbers to replace only the 2nd, 4th or so occurrence:

sed 's/_/:/2' old_file > new_file

But how to replace every occurrence on each line BUT the first?

Using GNU sed (other versions may behave differently, thanks glenn jackman):

 sed -i'' 's/_/:/2g' file

This will change all _ to : skipping the first occurrence on each line.

Using Posix-sed constructs only we do like as:

$ sed -e '
 y/_/n/
 s/n/_/
 y/n/:/
' inp.file

Based on the suggestions by Stephane, some more methods follow here:

$ perl -pe 's/(^G.*?_)?.*?K_/:/g' inp.file 

$ perl -pe 'my $n; s/_/$n++?":":$&/ge' inp.file 

$ perl -pe 's/_K(.*)/$1 =~ y|_|:|r/e' inp.file 

Is awk okay? You could use _ as the field separator, and print out:

<field 1>_<field 2>:<field n>:<field n+1>:...

Like this:

awk -F_ ' printf("%s_%s", $1, $2); for (x = 3; x <=NF; x++) printf(":%s", $x); ; printf("n"); '

If the structure is the same for each line you could hard-code the number of fields to avoid the loop (runs in about 2/3 of the time according to a very rough preliminary trial):

awk -F_ 'printf("%s_%s:%s:%s:%s:%s:%s:%sn", $1, $2, $3, $4, $5, $6, $7, $8);'

With perl, to match the character _ and replace from the first instance on-wards as below.

perl -pe '$n=0s_++$n > 1 ? ":" : $&;ge' file

The part s_ identifies the _ within the line and if its the 2^nd occurrence replace with : or replace with the same character($&)

Here is another simple awk script, (standard Linux gawk), no loops:

cat script.awk
match($0,/^[^_]*_/,a) # match current line to first _ (including) into a[0] variable
 sub(a[0],""); # remove a[0] from current line
 gsub("_",":"); # replace all _ to : in current line
 print a[0]""$0; # output a[0] and current line

run:

awk -f script.awk input.txt

or:

awk 'match($0,/^[^_]*_/,a)sub(a[0],"");gsub("_",":");print a[0]""$0;' input.txt