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;

                }

 

              

    }

 

}

 

 

}