几个正则表达式[perl]

当然其它语言也差不多.

1.判断IP地址的是不是正确
  /^(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)){3,3}$/

2.匹配空行
  /^$/

3.匹配后缀名
  /([^\.\n]*\.)+([^\.\n]*)/
  后缀名保存在$2中。

4.trim的实现
  sub trim()
  {
    my ($str) = @_;
    $str =~ s/^\s*//;
    $str =~ s/\s*$//;
    return $str;
  }

5、字符串，只由一个字母构成，数量不定，如aaa或者bbbbbbbbbb
  "aaaa" =~ /^(\w)\1*$/;
  print $&;

6、匹配域名
   "" =~ /^([a-z0-9][-a-z0-9_]{0,62}\.)+([a-z]{2,4})$/;
   print $&;