perl新手求教文本处理?

文本1:
stpg
pass: 10
fail: 20
xtpg
pass: 30
fail: 40
文本2:
stpg
pass: 50
stpg
fail: 60
xtpg
pass: 70
xtpg
fail: 80

要求输出为
stpg
pass: 60 ##60=10+50
stpg
fail: 80 ##80=20+60
xtpg
pass: 100 ##100=30+70
xtpg
fail: 120 ##120=40+80

注:##后面的是为了看清规则,不用输出
输出的格式与文本1类似也可以
求教各位大神该怎么写啊

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!