# 正则表达式

## 112.匹配貌似邮件的正则表达式

     /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/

这个正则表达式不能保证匹配都是合法的ip地址，匹配成功只不过貌似ip地址的字串。比如，它可以匹配一个合法的ip地址81.198.240.140，同时也能匹配一个非法ip地址比如923.844.1.999。
下面解释他是如何工作的。正则开始的^符号是一个锚字符，用来匹配一个字串的开始。接着\d{1,3}匹配一个，两个或者三个连续数字。“\.”匹配一个点。最后的$也是一个锚字符匹配字段的结尾。使用^和$锚字符非常有必要，否则的话诸如“foo213.3.1.2bar”一样的字串也会被匹配上。
这个正则可以简单的把开始部分\d{1,3}\.重复三次的到同样功能的表达式：

    /^(\d{1,3}\.){3}\d{1,3}$/

## 113.测试数字是否在0-255的范围内

    /^([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])$/

让我来看这个正则是如何工作的。此范围内的数可以为一个，两个或者三个数字。如果是一个数字，我们可以让它为任何[0-9]。如果是两个数字，我们也允许它为任何[0-9][0-9]的组合。然而如果它是三个数字的，则他必须为100多或者200多的数。如果为100多的，可以用1[0-9][0-9]匹配它。如果是200多的数字，如果是小于250的，可以用2[0-4][0-9]匹配。或者250-255的，用25[0-5]匹配。

## 114.匹配IP地址

    my $ip_part = qr|([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])|;
    if ($ip =~ /^($ip_part\.){3}$ip_part$/) {
    say "valid ip";
    }

本正则组合了前面的两个。它用my $ip_part=qr/…/操作把正则表达式组合到一起，并且存到$ip_part变量中。接着用这个变量去匹配IP地址的四个部分。

## 115.检查字符串是否貌似email地址。

    /.+@.+\..+/

这个正则确保字符串看起来像一个邮件地址。注意到这说的是"看起来像"。它不能保证确实是一个邮件地址。他的匹配过程是：首先匹配一些字符后跟个@符号，接着匹配任意字符然后到发现一个点，接着匹配更多个字符。如果这个匹配成功，那么这个字符串至少看起来就像个个邮件地址，他有@和.。
例如,admin@ijz.me可以匹配，但是admin@ijzme不会匹配，因为他匹配不到点\.，这是必须的。
其实更可靠检测合法邮件地址的方法是是用Email::Valid 模块：

    use Email::Valid;
    print (Email::Valid->address('john@example.com') ? 'valid email' : 'invalid email');

## 116.检测字符串为十进制数。

检测字串是否是数字非常难。我基于正则并且在Perl Cookbook对其做了解释。

    /^\d+$/

这个正则匹配一个或者更多的数字\d为了开始符^和结尾符$。但是它不能匹配诸如+3和-3这样的数字。让我们调整一下，匹配他们：

    /^[+-]?\d+$/

此处[+-]?意思是在数字前匹配一个可选的正号或者负号。这个可以匹配+3或者-3，但是还不能匹配-0.3。让我们加上它：

    /^[+-]?\d+\.?\d*$/

我们在前一个正则的基础上加了\.?\d*，这匹配了一个可选的.在0或者其他数字后面。现在这个正则可以匹配诸如-0.3或者0.3的数字了。
更好的方式是是使用Regexp::Common模块，它提供了各种非常有用的正则表达式。比如，匹配一个整数你可以用$RE{num}{int}。
那么怎么匹配一个正16进制数字呢？见下式：

    /^0x[0-9a-f]+$/i

这可以匹配十六进制前缀0x，紧跟着数字。模式结尾的/i标志确保匹配是不区分大小写的。例如0x57af匹配，0X5Fa也匹配，但是97匹配不了，由于他是一个十进制数。

当然最后是用模块$RE{num}{hex},它会支持负数，小数和逗点的数字组。
那么八进制呢？见下：

    /^0[0-7]+$/

8进制数前缀是0，其后紧跟八进制数字0-7。例如，013匹配，但是09不会匹配，因为9不是一个合法的八进制数。
更好的方式是使用$RE{num}{oct}，好处同上。

最后2进制：

    /^[01]+$/

二进制只包含0和1.例如，0101101匹配，但是210101不能，因为2不是合法的二进制数字。

更好的方式是使用$RE{num}{bin}。

## 117.检测一个单词在字符串总出现了两次。

    /(word).*\1/

这个正则匹配了word紧跟着任意字符，随后是同样的word。此处（word）捕捉了word 分组1，并用\1引用了分组1的内容，因此这个和写作/（word）.*word/的模式一样。例如，“silly things are silly”会匹配/(silly).*\1/，但是“silly things are boring”不会匹配，因为后面这个字串中silly没有重复。

## 118.给字串中的所有数字加1.

    $str =~ s/(\d+)/$1+1/ge

此处我们使用替换操作符s///。他匹配所有的数字（\d+）,把他们捕捉到组1，接着把他们的值替换其值加1后的值。g标志确保它会知道字串中的所有的数字，e标志使得$1+1作为一个Perl表达式执行。
例如，“this 1234 is awesome 444”会被替换为“this 1235 is awesome 445”。


## 119. 提取HTTP头中用户客户端字串

    /^User-Agent: (.+)$/

HTTP头以键值对的格式表示的。操作这些字串很简单，你只要叫正则机保存值部分在$1组变量。
例如，如果HTTP头包含，

    Host: localhost:8000
    Connection: keep-alive
    User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_0_0; en-US)
    Accept: application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
    Accept-Encoding: gzip,deflate,sdch
    Accept-Language: en-US,en;q=0.8
    Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.3
    .

那么正则表示式将会提取Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_0_0; en-US)字串

## 120.匹配可打印字符。

    /[ -~]/

这个一个非常巧妙的表达式。为了理解他，看下ascii的说明。你可以发现空格符起始于0x20，~符号是0x7e。所有的空格和~之间的字符的都是可以打印字符。这个正则表达式恰好匹配了这些。[ -~]定义了一个从空格到~的字符范围。这一直是我最喜欢的正则表达式。
/[^ -~]/

这个匹配恰好和[ -~]相反。

##  121.匹配两个HTML签之间的文本

    m|([^<]*)|

这个正则表达式匹配了所有... 签之间的内容。此处技巧是([^<]*)，它匹配会匹配尽可能多的字符知道发现一个<字符，他会开始另一个标签。
另外你也可以写成：

    m|(.*?)|

但是这个有点不一样了。例如，如果HTML内容是 hello 则第一个正则不能匹配，但是第二个正则表达会匹配到hello，由于(.*?)匹配尽可能少的内容知道发现。这恰好是hello。
但是我们一般不建议用正则表达式去匹配和处理HTML。使用诸如HTML::TreeBuilder 模块去做这项工作，是更明智的选择。

## 122.替换所有的签为

    $html =~ s|<(/)?b>|<$1strong>|g

此处我假设HTML内容保存在变量$html中。接着<(/)?b>匹配了起始和结束的签，捕捉可选的可选签在组$1，接着用 或者 替换匹配的签，这取决于匹配的是一个起始或者结束tag签。

## 123.提取正则表达式中所有匹配的部分。

    my @matches = $text =~ /regex/g;

此处正则表达式在list上下文中，使得他返回所有匹配。匹配的内容被放进@matches数组中。
例如，下面的正则表达式提取了一个字符串中所有的数字。

    my $t = "10 hello 25 moo 31 foo";
    my @nums = $text =~ /\d+/g;
    @nums 现在包含了(10, 25, 30)。