上面的代码我写了一半，我要实现的是

films.txt的文档如下，

一堆简介

曲目
01.不再为你美丽的女孩
02.懂得爱
03.跟夏天说再见



cuelist.txt如下，需要把films.txt的曲目去替换cuelist.txt的TRACK01,02,03

FILE "CDImage.ape" WAVE
  TRACK 01 AUDIO
    TITLE "TRACK01"
    PERFORMER "裘海正"
    INDEX 01 00:00:00
  TRACK 02 AUDIO
    TITLE "懂得爱"
    PERFORMER "TRACK02"
    INDEX 00 04:00:65
    INDEX 01 04:02:25
  TRACK 03 AUDIO
    TITLE "TRACK03"
    PERFORMER "裘海正"
    INDEX 00 08:04:47
    INDEX 01 08:06:07


【 在 leadu 的大作中提到: 】
: 你这代码对perl的侮辱性极强。
: 我好几年不写perl了，下面写的有可能有bug，但功能上应该和你的差不多
: while(<>)
: ...................
--
FROM 124.78.12.*