Perl中的正则表达式匹配空间

Question

我想要匹配

Begin_Page {Some Number}

虽然试图避免

Begin_Page_{Some Number}

我试过了

$line =~ m/^Begin_Page\s/

但是我注意到它确实有时与任何文件都不匹配 Begin_Page 8703

Answer 1

你的正则表达式是正确的; 该行应匹配:

while (<DATA>) {
    if (/^Begin_Page\s/) { print "OK: " }
    else                 { print "KO: " }
    print;
}

__DATA__
test
1233
Begin_Page 123
Begin_Page_456
Begin_Page 8703

输出:

KO: test
KO: 1233
OK: Begin_Page 123
KO: Begin_Page_456
OK: Begin_Page 8703