使用perl分析html檔案(3) z

2021-04-22 14:06:49 字數 728 閱讀 2334

完成

製作網頁的最後的要求是頁面外觀的美觀,遺憾的是,html::treebuilder或任何相關的模組都不能幫助完成對這個要求的評分,所以,本文的作者只能自己手動給最後乙個要求評分。但是他有希望用perl在這項工作上幫點忙,所以就有了下面的一段**:

my

$input=""

;dountil($

input=~

/(.*

/./s+/d+$|

^/s*$|

^/d+$)

/);$

input=$

str2if$

input

eq"";if

($input=~

/^/d+$/)

else

}marking "$str1 $input"

;

最後,perl**為每乙個要求標記出包含老師的注釋和評分的文字並且計算出整個作業的總成績。

my($

total,$

score)=

( 0, 0 )

;while($

marktext=~

/.*?

/((/d+

)/s+points/).*

?/./s+

(/d+

)/g )

marking "total ($total points): $score"

;

讀取excel檔案(使用perl處理)

做了乙個簡單的處理excel檔案的perl程式,批量讀取其中的資料將其轉換csv檔案 如下 usr local bin perl xlstocsv ver 0.2 xls檔案轉換csv mail use strict use warnings use spreadsheet parseexcel u...

Perl效能分析工具使用筆記

1 新建測試目錄,命令均在測試目錄下執行 mkdir test cd test 2 執行需要測試的介面 perl d nytprof 需要執行的指令碼 3 生成報表 usr local bin nytprofhtml nytprof.out 簡單封裝懶人指令碼test.sh,使用方法為 test.s...

使用狀態分析HTML語法

利用基於字元匹配的對映到狀態的方式,實現解析html文件語法,匹配標籤 文字 屬性 值等。列出了主要思路和主要 if docstatus.read starttag.equals docstatus else if tagstatus.read tag type.equals tagstatus e...