Сообщение от
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
но уж больно громоздко получилось