☰

Как пропустить замену первого вхождения символа в каждой строке?

tag-icon • tag-icon text-processing sed
Как пропустить замену первого вхождения символа в каждой строке?

У меня есть несколько файлов в формате

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;

Я хочу заменить каждое вхождение подчеркивания (_) на двоеточие (:), КРОМЕ первого. Я хочу получить такой вывод:

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;

Я знаю, что могу использовать sed -i '' 's/_/:/g' old_fileдля замены ВСЕХ (или sed 's/_/:/g' old_file > new_file), и что я могу добавить цифры, чтобы заменить только 2-е, 4-е или около того вхождение:

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

Но как заменить все вхождения в каждой строке, КРОМЕ первого?

решение1

Используя GNU sed(другие версии могут вести себя по-другому, спасибо)Гленн Джекман):

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

Это приведет _к :пропуску первого вхождения в каждой строке.

решение2

Используя Posix-sedтолько конструкции, мы делаем следующее:

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

На основе предложений Стефана ниже приведены еще несколько методов:

$ 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

решение3

Подходит ли awk? Вы можете использовать его _в качестве разделителя полей и вывести:

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

Так:

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

Если структура для каждой строки одинакова, вы можете жестко запрограммировать количество полей, чтобы избежать цикла (это выполняется примерно за 2/3 времени, согласно очень грубому предварительному тесту):

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

решение4

Вот еще один простой awkскрипт (стандартный Linux gawk), без циклов:

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
}

бегать:

awk -f script.awk input.txt

или:

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

Связанный контент