Показать сообщение отдельно

  #7  
Старый 07.07.2017, 19:25
Andrey9999
Elder - Старейшина
Регистрация: 23.05.2012
Сообщений: 3,462
С нами: 7353686

Репутация: 81
По умолчанию

Цитата:
Сообщение от VasiliyP  

perl -pe '$n=0; s/(.)/(++$n, $1 eq "x" ? $n:$1)/ge' file.txt

а может кто на SED перевести?

замутил такое:

#!/bin/sh

sed -r 's/x(.......)/1\1/' 1.txt > 2.txt

sed -r 's/(.)x(......)/\12\2/' 2.txt >> 3.txt

sed -r 's/(..)x(.....)/\13\2/' 3.txt >> 4.txt

sed -r 's/(...)x(....)/\14\2/' 4.txt >> 5.txt

sed -r 's/(....)x(...)/\15\2/' 5.txt >> 6.txt

sed -r 's/(.....)x(..)/\16\2/' 6.txt >> 7.txt

sed -r 's/(......)x(.)/\17\2/' 7.txt >> 8.txt

sed -r 's/(.......)x/\18/' 8.txt >> finish.txt

rm 2.txt 3.txt 4.txt 5.txt 6.txt 7.txt 8.txt

но уж больно громоздко получилось
 
Ответить с цитированием