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;
}

}

}

}