Perl语言的最大特点，也是Perl作为CGI首选语言的最大特点，是它的模式匹配操作符。Perl语言的强大的文本处理能力正是通过其内嵌的对模式匹配的支持体现的。模式通过创建正则表达式实现。Perl的正则表达式与模式匹配的特点一是内嵌于语言之中，而不是通过库或函数来实现，因此使用更简便；二是比一般的正则表达式与模式匹配功能强大。

模式匹配操作符简介

使用说明：

l         注意区别记忆Perl的绑定操作符(=~)与AWK的相应操作符（AWK的绑定匹配操作符是 ~），Perl与AWK的否定匹配操作符相同(都是!~)

l         没有绑定操作符时，默认是对$_进行绑定：

/new life/ and /new civilizations/ （对$_进行两次查找）

s/suger/aspartame/  (对$_进行替换)

tr/ATCG/TAGC/    (对$_进行转换)

l         m//操作符前面的m可以省略，但是不省略可读性更好，建议不省略。

l         如果有绑定操作符=~，m//都省略也表示匹配：

print “matches” if $somestring =~ $somepattern; 等价于

print “matches” if $somestring =~ m/$somepattern/;

l         m//, s///, tr///, qr//操作符是引用操作符，你可以选择自己的分割符（与q//, qq//, qw//一样）：

$path =~ s#/tmp#/var/tmp/scratch#

if  ($dir =~ m[/bin]) {

    print “No binary directories please. /n”;

}

l         一个括号可与其它括号配合使用，可以用空格分开：

s(egg)<larva>

s(larva){pupa};

s[pupa]/imago/;

s (egg) <larva>;    

l         如果一个模式成功匹配上，$`, $&, $’将被设置，分别表示匹配左边、匹配、匹配右边的字符串：

“hot cross buns” =~ /cross/;

print “Matched: <$`> $& <$’>/n”;   # Matched <hot > cross < buns>

l         模式模式后设置的特殊变量如下：

m//, s///和qr//都接受以下修饰符：

例如：

m//w+:(/s+/w+)/s*/d+/;          # A word, colon, space, word, space, digits

m//w+: (/s+  /w+) /s* /d+/x;     # A word, colon, space, word, space, digits

m{

/w+;                     # Match a word and a column

(                        # (begin group)

    /s+                  # Match one or more spaces.

    /w+                 # Match another word

)                        # (end group)

/s*                      # Match zero or more spaces

/d+                      # Match some digits

}x;

$/ = "";     # "paragrep" mode

while (<>) {

    while ( m{

               /b           # start at a word boundary

               (/w/S+)      # find a wordish chunk

               (

                   /s+      # separated by some whitespace

                   /1       # and that chunk again

               ) +          # repeat ad lib

               /b           # until another word word boundary

          }xig

 )  {

           print "dup word '$1' at paragraph $. /n";

    }

 }

模式匹配操作符详解

7.3.1 m//操作符(匹配)

EXPR =~ m/PATTERN/cgimosx

EXPR =~ /PATTERN/cgimosx

EXPR =~ ?PATTERN?cgimosx

m/PATTERN/cgimosx

/PATTERN/cgimosx

?PATTERN?cgimosx

说明：

l         如果PATTERN是空字符串，最后成功执行的正则表达式将被代替使用。

l         m//特殊修饰符如下：

l         在LIST上下文中m//g返回所有匹配

if （@perls = $paragraph =~ /perl/gi) {

    printf “Perl mentioned %d times./n”, scalar @perls;

}

l         ??分隔符表示一次性匹配， ‘’分隔符压制变量替换和/U等六个转换

open DICT, "/usr/share/dict/words"  or die "Cannot open words: $!/n";

while (<DICT>) {

    $first = $1 if ?(^love.*)?;

    $last  = $1 if /(^love.*)/;

}

print $first, "/n";

print $last, "/n";

7.3.2 s///操作符(替换)

LVALUE =~ s/PATTERN/REPLACEMENT/egimosx

s/PATTERN/REPLACEMENT/egimosx

说明：

l         该操作符在字符串中查找PATTERN, 如果查找到，用REPLACEMENT代替匹配的子串。返回值是成功替换的次数（加/g修饰符可能大于1）。若失败，返回””(0)。

 if ($lotr =~ s/Bilbo/Frodo/) { print “Successfully wrote sequel. “ }

 $change_count = $lotr =~ s/Bilbo/Frodo/g;

l         替换部分作为双引字符串，可以使用动态生成的模式变量（$`，$&, $’, $1, $2等）：

s/revision/version/release//u$&/g;

s/version ([0-9.]+)/the $Names{$1} release/g;

l         如果PATTERN是空字符串，最后成功执行的正则表达式将被代替使用。PATTERN和REPLACEMENT都需进行变量替换，但是PATTERN在s///作为一个整体处理的时候替换，而REPLACEMENT在每次模式匹配到时替换。

l         s///特殊修饰符如下：

/e修饰符的实例：

s/[0-9]+/sprintf(“%#x”, $1)/ge

s{

   version

   /s+

(

  [0-9.]+

)

}{

   $Names{$1}

      ? “the $Names{$1} release”

      : $&

}xge;

l         不替换原字符串的方式：

$lotr = $hobbit;

$lotr =~ s/Bilbo/Frodo/g;

($lotr = $hobbit) =~ s/Bilbo/Frodo/g;

l         替换数组中的每一元素：

for (@chapters) { s/Bilbo/Frodo/g }

s/Bilbo/Frodo/g for @chapters;

l         对某一字符串进行多次替换：

for ($string) {

s/^/s+//;

s//s+$//;

s//s+/ /g

}

for ($newshow = $oldshow) {

    s/Fred/Homer/g;

    s/Wilma/Marge/g;

    s/Pebbles/Lisa/g;

    s/Dino/Bart/g;

}

l         当一次全局替换不够的时的替换：

 # put comma in the right places in an integer

 1 while s/(/d)(/d/d/d)(?!/d)/$1,$2/;

 # expand tabs to 8-column spacing

 1 while s//t+/’ ‘ x (length($&)*8 – length($`)%8)/e;

 # remove (nested (even deeply nested (like this))) remarks

 1 while s//([^()]*/)//g;

 # remove duplicate words (and triplicate ( and quadruplicate…))

 1 while s//b(/w+) /1/b/$1/gi;

7.3.3 tr///操作符(字译)

LVALUE =~ tr/SEARCHLIST/REPLACELIST/cds

tr/SEARCHLIST/REPLACELIST/cds

使用说明：

l         tr///的修饰符如下：

l         如果使用了/d修饰符，REPLACEMENTLIST总是解释为明白写出的字符串，否则，如果REPLACEMENTLIST比SEARCHLIST短，最后的字符将被复制直到足够长，如果REPLACEMENTLIST为空，等价于SEARCHLIST，这种用法在想对字符进行统计而不改变时有用，在用/s修饰符压扁字符时有用。

tr/aeiou/!/;        # change any vowel into !

tr{////r/n/b/f. }{_};  # change strange chars into an underscore

tr/A-Z/a-z/ for @ARGV;   # canonicalize to lowercase ASCII

$count = ($para =~ tr//n//);

$count = tr/0-9//;

$word =~ tr/a-zA-Z//s;     # bookkeeper -> bokeper

tr/@$%*//d;             # delete any of those

tr#A-Za-z0-9+/##cd;      # remove non-base64 chars

# change en passant

($HOST = $host) =~ tr/a-z/A-Z/;

$pathname =~ tr/a-zA-Z/_/cs;  # change non-(ASCII) alphas to single underbar

元字符

Perl元字符有：

/ | ( ) [ { ^ $ * + ?

正则表达式元字符的意义如下：

* + ？是数量元字符，Perl数量相关元字符意义如下：

扩展正则表达式序列如下：

说明：以上定义了向前查找(?=PATTERN)，负向前查找(?!PATTERN)，向后查找(?<=PATTERN)，负向后查找(?<!PATTERN)，条件查找等较为高级的正则表达式匹配功能，需要使用时请查阅相关资料。

字母顺序元字符意义：

（以上均直接Copy自《Programming Perl》，下面未翻译者同）

其中应注意以下经典的字符集合：

POSIX风格的字符类如下：

注意：POSIX风格字符类的使用方法,

42 =~ /^[[:digit:]]+$/  (正确)

42 =~ /^[:digit:]$/   （错误）

这里使用的模式以[[开头，以]]结束，这是使用POSIX字符类的正确使用方法。我们使用的字符类是[:digit:]。外层的[]用来定义一个字符集合，内层的[]字符是POSIX字符类的组成部分。

常见问题的正则解决方案

IP地址：

(((/d{1,2}）|(1/d{2})|(2[0-4]/d)|(25[0-5]))/.){3}((/d{1,2}）|(1/d{2})|(2[0-4]/d)|(25[0-5]))

邮件地址：

(/w+/.)*/w+@(/w+/.)+[A-Za-z]+

(以上邮件地址正则表达式并非严格的，但是可以匹配绝大多数普通的邮件地址。

HTTP URL:

{http://([^/:]+)(:(/d+))?(/.*)?$}i

https?://(/w*:/w*@)?[-/w.]+(:/d+)?(/([/w/_.]*(/?/S+)?)?)?

C语言注释：

/

在Perl中，类、包、模块是相关的，一个模块只是以同样文件名（带.pm后缀）的一个包；一个类就是一个包；一个对象是一个引用；一个方法就是一个子程序。这里只说明其最简单的使用方法。

模块使用

以下是一个模块(Bestiary.pm)的编写方式，可以作为写一般模块的参考。

package      Bestiary;

require      Exporter;

our @ISA       = qw(Exporter);

our @EXPORT    = qw(camel);    # Symbols to be exported by default

our @EXPORT_OK = qw($weight);  # Symbols to be exported on request

our $VERSION   = 1.00;         # Version number

### Include your variables and functions here

sub camel { print "One-hump dromedary" }

$weight = 1024;

1;

（引自《Programming Perl》）

对象使用

以下例子用来构建一个Ipregion对象，可以使用该对象的get_area_isp_id方法查找一个IP的地区与运营商。本例可以作为写一般对象的参考。

package Ipregion;

use strict;

my ($DEFAULT_AREA_ID, $DEFAULT_ISP_ID) = (999999, 9);

my ($START_IP, $END_IP, $AREA_ID, $ISP_ID) = (0 .. 3);   

sub new {

     my $invocant = shift;

     my $ip_region_file = shift;

     my $class = ref($invocant) || $invocant;

     my $self = [ ];                     # $self is an reference of array of arrays

     # Read into ip region data from file

     open my $fh_ip_region, '<', $ip_region_file   

or  die "Cannot open $ip_region_file to load ip region data $!";

     my $i = 0;

     while (<$fh_ip_region>) {

            chomp;

            my ($start_ip, $end_ip, $area_id, $isp_id) = split;

            $self->[$i++] = [ $start_ip, $end_ip, $area_id, $isp_id ];

     }

     bless($self, $class);

     return $self;

}

sub get_area_isp_id {

    my $self        = shift;

    my $ip          = shift;

    my $area_id = $DEFAULT_AREA_ID;

    my $isp_id     = $DEFAULT_ISP_ID;

    # Check if a ip address is in the table using binary search method.

    my $left  = 0;                 

    my $right       = @$self - 1;                   # Get max array index  

    my $middle;                  

    while ($left <= $right) {

        $middle = int( ($left + $right) / 2 );

        if ( ($self->[$middle][$START_IP] <= $ip) && ($ip <= $self->[$middle][$END_IP]) ) {

            $area_id = $self->[$middle][$AREA_ID];

            $isp_id  = $self->[$middle][$ISP_ID];

            last;

        }

        elsif ($ip < $self->[$middle][$START_IP]) {

            $right = $middle - 1;

        }

        else {

            $left = $middle + 1;

        }

    }

    return ($area_id, $isp_id);

}

该对象的使用方法是：

use Ipregion;

my $ip_region = Ipregion->new("new_ip_region.dat");

my @search_result = $ip_region->get_area_isp_id(974173694);

．Perl特殊变量

鲜花

握手

雷人

路过

鸡蛋

• 关于我们

  创业团队 加入我们 媒体报道 合作伙伴 公益事业

• 产品与服务

  寻求合作 项目投资 干货视频 经理人培训 招聘代理

• 解决方案

  一站式 制造业 教育科研 行业案例

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服

地址：深圳市南山区西丽大学城创智工业园

电邮：jeky_zhao#qq.com

移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap