正则表达式捕获功能

#!/usr/bin/env perl
print "nReceived signal at ",scalar localtime,"n";
sub test1
{
        $_ = 'http://www.perl.com/index.html';
        if (m#([^:]+)://(.*)#){
                print "$1,$2 = $1,$2 n";
                if ($2 =~  m#([^/]+)/(.*)#){
                         print "$1,$2 n";
                         if ($2 =~ m#([^/]+)(.*)#){
                                 print "$1,$2 n";
                         }
                }
                 print "$1,$2 n";
        }
}
&test1;

[root@master ~/perl]# ./trap.pl

Received signal at Sun Dec 15 17:32:31 2013

$1,$2 = http,www.perl.com/index.html

$1,$2 = www.perl.com,index.html

$1,$2 = index.html,

$1,index.html #退出内层作用域后，又恢复了原来的值

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!