把所有的email提出来 ,应该怎么做呢？ (在下是新手，又要急用)

dvbs2000

abc  bbc  bbs  abc@263.net  dvv
abd  ddc  sdfsdf  dff@hotmail.com   dff@eyou.com  dsfsdf
dfs        sdfkj        jlsdf        sdjf@163.com sdfjk jsdfkfsd       
.....
.....

像上面这种格式的文本
想要把所有的email提出来，还是按照原来的行数
就像下面这样:

abc@263.net
dff@hotmail.com
sdjf@163.com
......
......

这样的脚本应该怎样写呢？
在下是新手，又要急用...谢谢了

bjgirl

1. awk '{for(i=1;i<=NF;i++)if($i~/@/)print $i}' file

复制代码

dvbs2000

好像结果里面行数就变多了...
因为有的行有几个email地址

比如上面3行中第二行有两个email地址，结果里只要第一个就可以了,这样结果也能保证是3行

另外，发现有个别邮件后面有逗号或者分号, (比如 abc@163.com,ddsk )如何取出来呢？

bjgirl

用tr把逗号/分号替换成空格即可
tr ',|;' ' ' <file

dvbs2000

关键是要行数要跟原来的文件保持一致
每行只取一个email地址就可以了
这样应该怎么写呢？

dvbs2000

原帖由 "bjgirl" 发表：
用tr把逗号/分号替换成空格即可
tr ',|;' ' ' <file

逗号分号都好解决
关键是每行只取第一个email地址就够了
保持行数跟原文件一致...这个不知道该怎么做

bjgirl

1. 
   
2. cat file|tr ',|;' ' '|sed 's/.* \([a-zA-Z0-9]\{1,\}@[A-Za-z0-9.]\{1,\}\) .*/\1/'

复制代码

dvbs2000

行数没有问题了
可是所有带有 -  或  _  或  . (下划线，中划线，点)的email地址都不能挑出来了

比如
111  122  ab_ab@eyou.com   sfdsfd
这样的行就显示整行了....

dvbs2000

呵呵。已经搞定了.只要加上 . - _ 限定一下就ok了
严重谢谢bjgirl

随风漂

awk -F'[ ;,]'  '{for(i=1;i<=NF;i++)if($i~/@/){print $i; break}}' filename >newfilename