perl 模式测试程序

检测模式匹配：

 

#! /usr/bin/perl

while (<>) {                                       #<>为输入参数 

    chomp;                                         #将$_后的换行符去除

    if (/YOUR_PATTERN_GOES_HERE/) {                #要匹配的模式

        print "Matched: | $~<$&>$'|\n";            #$`未匹配（前），$&匹配，未匹配（后）

    }

    else {

        print "No Match: |$_|\n";                  #没有能匹配的。

    }