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 character.

\w Match "word" character and [_0-9a-zA-Z]

\W Match non-word character  [^_0-9a-zA-Z]

\s  Match whitespace character [ \r\t\n\f]

\S Match non-whitespace character [^ \r\t\n\f]