regex - 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