awk删除字符串

zero_BX

我现在有一个文件，然后有的行以@符号开头
@aaa33|tt88    uu    77
111111
@55|33 000 000
222222

想把这些行@符号后到|的内容删除，比如这个变成：
@tt88    uu    77
111111
@33 000 000
222222


想问下各位大神如何实现呢？或者提供一个思路，不胜感谢

moperyblue

1. sed -r '/@/s/.*\|(\S*)/@\1/'

复制代码

?

moperyblue

1. awk '/@/{split($1,a,"[@|]");$1="@"a[length(a)]}1'

复制代码

sunzhiguolu

1. perl -pe 's/\A\@[^|]+\|/@/' f

复制代码

zy86416779

1. [root@CentOS_6 tmp]# sed "s/[^@].*|//g" 1.txt
   
2. @tt88    uu    77
   
3. 111111
   
4. @33 000 000
   
5. 222222
   
6. [root@CentOS_6 tmp]#

复制代码

sunzhiguolu

1. perl -pe 's/\A(\@)?(?(1)\S+\||(?!))/@/' f

复制代码

jcdiy0601

回复 1# zero_BX

1. awk '{if($1~/^@.*/)sub(/[^@]*\|/,"")}{print}' file

复制代码

fh21_xuejinlian

awk '$1~/@/{$1="@"substr($1,index($1,"|")+1)}1' file

jason680

回复 1# zero_BX

1. awk by sub("old","new") function
$ awk '{sub("@[^|]+[|]","@");print}' FILE
@tt88    uu    77
111111
@33 000 000
222222

2. sed by s/old/new/
$ sed -r 's/@[^|]+[|]/@/' FILE

3. Perl by s/old/new/
$ perl -pe 's/@[^|]+[|]/@/' FILE

ll104567

awk '/^@/{gsub("@.*\|","@")}1'