perl work-answer程式結構大概如此，另外，尋找那幾個判斷，你再看看，我手上沒有資料，不太確定

open(FILE,”這個檔案的路徑”);
@content=<FILE>;$lineCount=@content; for($item=0;$item<$lineCount;$item++){$tileContent=$content[$item];$item++;If(tileContent =~^/~)#找到開頭是以   ~   的行{$ComponentContent=$content[$item];$item++;If($ComponentContent =~//<//s[a-zA-Z]+-/)#找到開頭是< 字串-  的行{      //這裡應該加入對該行的處理，主要是取出標題下部分尖號內容。我沒寫    $flag=0;   For($i=0;$i<<$lineCount;$i++)    {          $bugContent =$content[$item];           If($bugContent=~^#)               {                    //獲得#後面的數字                    //寫檔案                    Last;                }                   } }  }