求帮解读perl 的正则表达式匹配程序

aoma

程序中一段语句是这样的,但不理解正则表达式的内容,请高手帮解读一下
sub getL2Info
{
    my $mount_out = `mount`;

    $mount_out =~ m|^(\S+)\s+dfcxact.*(/L2/.+?)[/ ]|m;

    return $1, $2;
}

mount的输出

szx4l1701 dfcxact          /L1/szx4l1701    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l1702 dfcxact          /L1/szx4l1702    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l1703 dfcxact          /L1/szx4l1703    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l1704 dfcxact          /L1/szx4l1704    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l1705 dfcxact          /L1/szx4l1705    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l1706 dfcxact          /L1/szx4l1706    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l1707 dfcxact          /L1/szx4l1707    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l1708 dfcxact          /L1/szx4l1708    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
szx4l2120 dfcxact          /L2/szx4l2120    cifs   Sep 16 13:01 uid:0301,gid:1111,fmode:00775
d205-102 image            /LPS/d205-102    cifs   Sep 16 13:02 uid:0301,gid:1111,fmode:00775
d205-103 image            /LPS/d205-103    cifs   Sep 16 13:02 uid:0301,gid:1111,fmode:00775
d205-104 image            /LPS/d205-104    cifs   Sep 16 13:02 uid:0301,gid:1111,fmode:00775
d205-105 image            /LPS/d205-105    cifs   Sep 16 13:02 uid:0301,gid:1111,fmode:00775
bash-3.00$

Perl_Er

m是把string看做多行.

blackold

就是提取多行的部分内容。

freearth

第一个m用于指定正则表达式的界限符，"//"是"m//"的简写，这里的界限符是"|"；
之后"^"表示在一行开头的地方匹配，"(\S+)"是匹配多个非空白的字符；
之后的"\s+"是匹配多个空白符，之后是"dfcxact"之后跟着多个字符(非换行符）；
之后匹配"/L2/"，之后有多个字符（最少匹配），最后由一个"/"或者" "；
最后的m表示将mount_out看多多行字符比较，它改变"^","$"之类的语义。

原帖由 aoma 于 2009-9-23 02:04 发表
程序中一段语句是这样的,但不理解正则表达式的内容,请高手帮解读一下
sub getL2Info
{
    my $mount_out = `mount`;

    $mount_out =~ m|^(\S+)\s+dfcxact.*(/L2/.+?)[/ ]|m;

    return $1, $2;
} ...