利用sed能提取出文本中的email地址吗?(已解决)

wangb70

请问下,哪位大大能把文本中的email地址提取出来?文本:
Mehak@gmail.com | Facebook
    https://www.facebook.com/pages/Mehakgmailcom/248181861872358?
    Mehak@gmail.com. University. 9 people like this. Want to like this page? Sign up for Facebook to get started. Sign Up. It's free and anyone can join. Already a ...
    Team Drake and Kennedy (drakeandkennedy@gmail.com ...
    https://www.facebook.com/TeamDrakeAndKennedy?
    Team Drake and Kennedy (drakeandkennedy@gmail.com). 1120 likes · 374 talking about this. Drake and Kennedy's journey into this world has been a ...
    Alice.williams.com@gmail.com | Facebook
    https://www.facebook.com/.../Alicewilliamscomgmailcom/31452919192...?
    Alice.williams.com@gmail.com. 7 likes · 0 talking about this.
    sadia22222@gmail.com - Sadia Sabreen Shammee | Facebook
    https://www.facebook.com/permalink.php?story_fbid...id...?
    Flamboyant Nayeem, Jumon Ahmed, Maruf Hasan and 39 others like this. 48 of 355. View previous comments. Muhammad Kashif 03216663232 my number ...
    Macharla.mallikarjun@gmail.com | Facebook
    https://www.facebook.com/Macharlamallikarjungmailcom?
    Macharla.mallikarjun@gmail.com. 4 likes · 0 talking about this.
    HOGER.EVENTOS@GMAIL.COM | Facebook
    https://www.facebook.com/.../HOGEREVENTOSGMAILCOM/2733076...?
    HOGER.EVENTOS@GMAIL.COM. 11 likes · 0 talking about this.
    Abdulwahab@Gmail..com - Local Business | Facebook
    https://www.facebook.com/.../AbdulwahabGmailcom/211068888974266?
    Abdulwahab@Gmail..com. 17 likes · 0 talking about this · 13 checkins.
    www.gmail.com - Photos | Facebook
    https://www.facebook.com/pages/wwwgmailcom/162880424899?sk...?
    www.gmail.com, Las Mercedes, Venezuela. 69204 likes · 998 talking about this.
    Gmail.com | Facebook
    https://www.facebook.com/www.gmail.com.email?
    www.gmail.com - Gmail has become one of the best used web based email service in the world for both personal and professional use. You can access Gmail ...
    Bappa CHI Kheti at Gmail.com | Facebook
    https://www.facebook.com/BappaChiKhetiAtGmailcom?
    Bappa CHI Kheti at Gmail.com. 4 likes · 0 talking about this.

排除 www.gmail.com不要,只要真正的gmail邮箱地址,我看了很长时间的sed了,奈何太菜,一直下不了手啊,谁能帮下多谢多谢.

Python

1. w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*

复制代码

正则是这样的

batman

太复杂了，目测sed无能为力，下面给出vbs解：

1. 
   
2. Dim objFSO, Rstr, Arr, Wstr
   
3. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
4. Rstr = objFSO.OpenTextFile("a.txt").ReadAll
   
5. Arr = Split(Rstr, vbCrLf)
   
6. For Each str In Arr
   
7.   If InStr(1, str, "@gmail.com", 1) Then GetMail(str)
   
8. Next
   
9. objFSO.OpenTextFile("new.txt", 2, True).Write Wstr
   
10. Set objFSO = Nothing
    
11. CreateObject("Wscript.Shell").Run "cmd /cstart new.txt", True, True
    
12. 
    
13. Function GetMail(Str)
    
14.   Dim objReg
    
15.   Set objReg = New RegExp
    
16.   objReg.Global = True
    
17.   objReg.IgnoreCase = True
    
18.   objReg.Pattern = "[\s]*.*?\(*([^\(]+@gmail.com).*"
    
19.   Wstr = Wstr & objReg.Replace(Str, "$1") & vbCrLf
    
20. End Function
    

复制代码

CrLf

如果不要求只调用一次 sed 的话，还是很简单的

1. sed "s/[0-9a-zA-Z.@]/\n/g" email.txt | sed "/[0-9a-zA-Z.]{1,100}@\w\w*\.\w\w*$/!d"

复制代码

ShadowFiend

Abdulwahab@Gmail..com

这里的两个点怎么解释？

PowerShell

大多数脚本语言，处理此类问题的逻辑如下：
1 用findstr，select-string，grep，查找行首是字母，或者行首是空格，后续是任意的，再后续是gmail.com 的行。
对这样的每一行
2 掐头，去掉从行首到空格的内容。
3 去尾，去掉gmail.com 后面的内容。

CrLf

忽然发现原来每行只有一个地址，那就只需要一个 sed 了

1. sed "s/^.*\([^0-9a-zA-Z.][0-9a-zA-Z.]{1,100}@\w\w*\.\w\w*\).*$/\1/g" a.txt

复制代码

terse

1. sed -nr "s/.*[ (](.*@gmail[\.]+com).*/\1/ip" "a.txt"

复制代码

Seder

google mail注册是有特定格式的：

您可以使用字母、数字和英文句点。

输入的字符数应在 6 到 30 之间。

wangb70

谢谢大家,我有点晕了,需要消化消化.我的环境是xp,想要的效果是这样的:
Mehak@gmail.com
drakeandkennedy@gmail.com
Alice.williams.com@gmail.com
sadia22222@gmail.com
Macharla.mallikarjun@gmail.com
每行一个email地址,去掉重复的.
我也不懂使用sed实现,难不难,感觉可以的,能再看看吗?我还想通过这个事,学习熟悉sed,因为sed应该懂点嘛.

Python

回复 10# wangb70


    下载一个sed.exe放到C:\Windows\system32目录下面，打开cmd窗口，执行他们帮你写的命令。

wangb70

回复 3# batman
版主好,这个方法可以
还想问问,如何去重复,可以推广应用到其他搜索引擎吗,如yahoo,必应等.

wangb70

回复 8# terse


    太好了,让我佩服,sed没想到也可以,高兴.

sed能去重复吗?

wangb70

回复 11# Python


    多谢提醒,我不怕大家笑话,确实是菜鸟,不过,我讨厌自己这么菜,决心慢慢摸索学习.

wangb70

回复 7# CrLf


    谢谢crlf,不过好象有点问题,是不是我哪里没操作好,