把每行第N个字符到第N+10字符间出现的abc替换为xyz【已解决】

xindi10631

把每行第N个字符到第N+10字符间出现的abc替换为xyz  这个怎么实现！谢谢！




#!perl -w
$a=`cat file`;
substr($a,N,10)=~s/abc/xyz/g;
print $a;

英语盲学linux

1. 没数据没法写一个比较麻烦的就是用awk配合for循环，判断在N 到N+10之间 如果这个域=a那么判断下一个域是否等于b，如果等于在判断下一个域是否等于c ，然后再进行替换

复制代码

英语盲学linux

1. 刚才模拟了下 file内容：
   
2. 123abc456aababc789abcqweabcrtyabc
   
3. 语句：
   
4. awk -F "" '{for(i=9;i<=19;i++) if($i=="a" && $(i+1)=="b" && $(i+2)=="c"){$i="x";$(i+1)="y";$(i+2)="z"}print }'
   
5. 结果：
   
6. 1 2 3 a b c 4 5 6 a a b x y z 7 8 9 x y z q w e a b c r t y a b c

复制代码

sandao381

回复 1# xindi10631


    我这有个思路，还望对楼主有点用。
   用awk 的fieldwidths 参数 对每行进行按字符数分割，第一个域就是 前 N个字符，第二个就是第 N+1 到N+10
，然后用gsub 对$2 进行替换最后拼接字符串。
     附代码 仅供参考
1 n=9

1. seq -s '' 20 | awk -v FIELDWIDTHS="9 10" '{ arg=$0;gsub(/11/,"aa",$2);print $1 $2 substr(arg,20)}'

复制代码

2 n=6

1. echo "123abc456aababc789abcqweabcrtyabc"|awk -v FIELDWIDTHS="6 10" '{ arg=$0;gsub(/abc/,"xyz",$2);print $1 $2 substr(arg,17)}'

复制代码

1. echo "abcdeabcdeabcde"|  awk -v FIELDWIDTHS="6 10" '{ arg=$0;gsub(/abc/,"xyz",$2);print $1 $2 substr(arg,17)}'

复制代码

winway1988

1. sed 'h;s/.\{'"$N"'\}\(.\{10\}\).*/\1/;s/abc/xyz/g;G;s/\(.\{10\}\)\n\(.\{'"$N"'\}\)\(.\{10\}\)/\2\1/'

复制代码

jils2013

1. echo "abcdeabcdeabcde" | awk '{n=6;start=substr($0,1,n-1);mid=substr($0,n,n+10);end=substr($0,n+11);gsub("abc","xyz",mid);print start""mid""end}'

复制代码

比较无语的需求，替换还得估计误伤，n这里是6

jiejie455

1. echo "thisisabcstwhatthabcck" |sed -nr 's/(.{3})(.{10})(.*)/\1\n\2\n\3/;s/([^\n]*\n[^\n]*)abc([^\n]*\n.*)/\1XYZ\2/g;s/\n//g;p'

复制代码

yinyuemi

回复 1# xindi10631


    awk -vn=N '{print gensub("abc","_XYZ_",split(substr($0,1,n+10),a,"abc")-1,$0)}'

xindi10631

回复 3# 英语盲学linux


多谢啊！  网上咨询了一种方法  跟你的有点类似

echo 123456aabccabc789|awk 'BEGIN{FS=""}{for(i=7;i<15;i++){if($i$(i+1)$(i+2)=="abc"){sub($i$(i+1)$(i+2),"xyz")}}}1'


   

英语盲学linux

回复 9# xindi10631

1. 自己测试吧 这个语句不合格

复制代码