使用 raku.org(之前叫 Perl 6): | .comb(/TITLE \s* \" <( \w+ )>\"/)[0].say if /TITLE/ for $=finish.lines | | | | =finish | | PERFORMER "Various" | | TITLE "宝丽金非常老牌精选" | | FILE "CDImage.ape" WAVE | | TRACK 01 AUDIO | | TITLE "太阳一样" | | PERFORMER "刘文正" | | INDEX 01 00:00:00 | | TRACK 02 AUDIO | | TITLE "堆积情感" | | PERFORMER "邝美云" | | INDEX 00 03:28:07 | | INDEX 01 03:30:10 | | TRACK 03 AUDIO | | TITLE "时空寄情" | | PERFORMER "黄莺莺" | | INDEX 00 08:24:00 | | INDEX 01 08:27:12 | | TRACK 04 AUDIO | | TITLE "再见我的爱人" | | PERFORMER "邓丽君" | | INDEX 00 12:33:10 | | INDEX 01 12:36:32 | | TRACK 05 AUDIO | | TITLE "海角天涯" | | PERFORMER "王芷蕾" | | INDEX 00 16:03:02 | | INDEX 01 16:06:07 | | TRACK 06 AUDIO | | TITLE "廻" | | PERFORMER "李恕权" | | INDEX 00 19:30:30 | | INDEX 01 19:33:22 | | TRACK 07 AUDIO | | TITLE "故事的真相" | | PERFORMER "黄仲昆、杨林" | | INDEX 00 24:04:05 | | INDEX 01 24:06:12 | | TRACK 08 AUDIO | | TITLE "扬帆" | | PERFORMER "阳帆" | | INDEX 00 28:34:42 | | INDEX 01 28:37:22COPY |
输出: | 宝丽金非常老牌精选 | | 太阳一样 | | 堆积情感 | | 时空寄情 | | 再见我的爱人 | | 海角天涯 | | 廻 | | 故事的真相 | | 扬帆COPY |
|