07.07.2017, 00:53
|
|
Постоянный
Регистрация: 30.08.2011
Сообщений: 358
С нами:
7738166
Репутация:
11
|
|
Сообщение от Andrey9999
Как заменить x'ы на номера их расположения?
в линуксе
********
AAxxxAAA
AxAAAAxx
AxAAAxAx
********
AA345AAA
A2AAAA78
A2AAA6A8
Код:
perl -pe '$n=0; s/(.)/(++$n, $1 eq "x" ? $n:$1)/ge' file.txt
Или можно файл не указывать, тогда будет читать stdin.
|
|
|