perl文本處理模塊改編現(xiàn)有的記載文法

John Hagerman 的 Swedish Chef 記載文法是出色的簡單文本過濾器示例。它還非常有趣，會給許多計算機(jī)科學(xué)與工程專業(yè)的學(xué)生在畢業(yè)前夕帶來歡樂。我將展示一個使用 Parse::RecDescent 模塊將 chef.l 文法移植到 Perl 中的示例(Parse::RecDescent 模塊并不是實現(xiàn)這一任務(wù)的理想選擇 ― Parse::Lex 模塊會更好些)。這一節(jié)只準(zhǔn)備介紹構(gòu)建 Parse::RecDescent 語法的規(guī)則，將包括操作、記憶狀態(tài)、拒絕產(chǎn)品和對文本進(jìn)行記載。請記住，自己試一試 chef.pl 腳本 ― 您很可能會對此著迷。

chef.pl 腳本幾乎是 chef.l 記載文法完全一樣的副本。 $niw 變量在啟動時設(shè)置為 0，因為許多規(guī)則測試它來判斷它們應(yīng)該被接受還是被拒絕。 $niw 表示"不在文字中(not in word)"，而當(dāng)解析器在文字內(nèi)時，它設(shè)置為 1。如果 Parse::RecDescent 的偽指令中指定的變量非零，則該偽指令會拒絕該規(guī)則。因此，請牢記 $niw = 0 意味著解析器不在文字內(nèi)。

skip 變量設(shè)置為 '' (空字符串)，所以所有輸入(包括空格)都轉(zhuǎn)至標(biāo)志偽指令。此外，chef 規(guī)則以 \z 結(jié)束，\z 表示字符串的結(jié)束。通常使用 \Z ，但那還可以匹配 Perl 中的換行，它們也都可以在輸入中。

chef 規(guī)則:文法以 chef 規(guī)則開始。chef 規(guī)則匹配許多標(biāo)志，直至表示字符串結(jié)束的 \z 。chef 規(guī)則的那兩個元素稱為"產(chǎn)品"。任何規(guī)則都必須由產(chǎn)品組成。操作可以是產(chǎn)品的一部分;它由花括號 {} 標(biāo)出，并包含 Perl 代碼。它不匹配任何事物 ― 操作僅用于執(zhí)行。

token 規(guī)則:token 規(guī)則可以匹配任何數(shù)或序列，這些數(shù)和序列是我為匹配 chef.1 文法而指定的(有些隨意)。我將說明一些示例，以便使文法對應(yīng)清晰。

每個標(biāo)準(zhǔn)模塊、類模塊和窗體模塊都可包含:

聲明:可將常數(shù)、類型、變量和動態(tài)鏈接庫 (DLL) 過程的聲明放在窗體、類或標(biāo)準(zhǔn)模塊的模塊級。

過程:Sub、Function 或者 Property 過程包含可以作為單元來執(zhí)行的代碼片段。

開關(guān)模塊的基本原理是由繼電器輸出控制電源的開關(guān)，從而控制光源。

輸入模塊的基本原理是接受無源接點信號

用于連接照度探測、存在探測、移動探測等傳感器