perl 自定义包/模块的使用(正则表达式匹配email地址和ip)
1. 正则表达式email: =~ /^([0-9a-zA-Z]{3,}|[0-9a-zA-Z]+(-|_)?[0-9a-zA-Z_-]+\.?[0-9a-zA-Z]+)\@[0-9a-zA-Z]+\.[0-9a-zA-Z]+(\.\w+)?/;ip =~/([0-9]{1,3}\.?){4}/; . Match any character except a wrap charac
原创
2013-01-07 23:15:36 ·
1415 阅读 ·
0 评论