用ｐｅｒｌ怎么匹配一个字符串是否是合法的email地址

chjcpu1

UID: 45865
帖子: 52
积分: 119
在线时间: 3 小时

1^# chjcpu1 发表于 2008-09-10 12:08

用ｐｅｒｌ怎么匹配一个字符串是否是合法的email地址

RT，　哪位大侠最好给个好用的，　我要在Ｃ语言里调用，　或者C的也可以，　最近很菜，　先多谢了

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-09-10 12:17

/\w+@[\w.]+/

cnangel

UID: 45653
帖子: 158
积分: 363
在线时间: 1 天 10 小时

3^# cnangel 发表于 2008-09-10 12:27

QUOTE:

原帖由 ly5066113 于 2008-9-10 12:17 发表
/\w+@[\w.]+/

正则

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

4^# forlorngenius 发表于 2008-09-10 13:22

应该使用非贪婪

chjcpu1

UID: 45865
帖子: 52
积分: 119
在线时间: 3 小时

5^# chjcpu1 发表于 2008-09-10 13:26

这个为什么不行？　要怎么改呢？

#!/usr/bin/perl
$_ = "bb@b.com";
if (/^[0-9A-Za-z]([a-zA-Z0-9._+-])+@([a-zA-Z0-9_-])+\.([a-zA-Z0-9._-])+[0-9A-Za-z]$ /) {
printf("ok\n");
}

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

6^# ly5066113 发表于 2008-09-10 13:26

QUOTE:

原帖由 forlorngenius 于 2008-9-10 13:22 发表
应该使用非贪婪

理由？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

7^# flw 发表于 2008-09-10 14:16

不要滥用正则表达式。

yingweixu

UID: 27206
帖子: 1
积分: 2
在线时间: 10 分钟

8^# yingweixu 发表于 2008-09-10 14:20

QUOTE:

原帖由 flw 于 2008-9-10 14:16 发表
不要滥用正则表达式。

flw他最常说的一句！

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

9^# forlorngenius 发表于 2008-09-10 17:05

如果一行中好几个email地址

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

10^# xiaoyu9805119 发表于 2008-09-10 17:19

QUOTE:

原帖由 chjcpu1 于 2008-9-10 13:26 发表
这个为什么不行？　要怎么改呢？

#!/usr/bin/perl
$_ = "bb@b.com";
if (/^[0-9A-Za-z]([a-zA-Z0-9._+-])+@([a-zA-Z0-9_-])+\.([a-zA-Z0-9._-])+[0-9A-Za-z]$ /) {
printf("ok\n");
}

这个写的很强了。。。