perl -lane 'print $1 if /\d+\.(.*)/;' films.txt
【 在 javame (yimin) 的大作中提到: 】
: films.txt的文档如下，
: 一堆简介
: 说说内容
: ...................
--
修改:tgfbeta FROM 111.166.6.*
FROM 111.166.6.*

如果我要实现应该怎么写? 我是用开数组的方法完成的，谢谢。

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


【 在 tgfbeta 的大作中提到: 】
: perl -lane 'print $1 if /\d+\.(.*)/;' films.txt
--
FROM 124.78.12.*

你先告诉我你发帖的目的是什么呢？把bbs当草稿纸用？

【 在 javame (yimin) 的大作中提到: 】
: 能否把说机器人的贴子删掉呢?老id都知道我是围棋老师，新来的id还会以为我是机器人，谢谢。
--
FROM 101.84.92.*

你看一下主贴的2楼，oicu写的代码，我在2018年，我就看懂了50%，现在我看懂了95%。
后来，偶然的机会我发现也能实现这个功能。
这段代码对没有一点基础的人来说还是有点参考价值的。

因为有人说三年内啥进步，我在说明我有一点小进步。

还有说我机器人的帖子删除了吗?


【 在 javaboy 的大作中提到: 】
: 你先告诉我你发帖的目的是什么呢？把bbs当草稿纸用？
:
--
FROM 124.78.12.*

把第一个文件倒进一个hash里，
形如 %names={'01' => '不再为你美丽的女孩', ... };
把第二个读进一个scalar：
$/ = '';
$all_lines = <>;
然后做这个正则：

$all_lines =~ s/  TRACK (\d{2}) AUDIO
    TITLE "([^"]+)"
((    \B.*\n)*)/  TRACK \1 AUDIO
    TITLE \"$names{$1}\"\n\3/mg;
【 在 javame (yimin) 的大作中提到: 】
: 如果我要实现应该怎么写? 我是用开数组的方法完成的，谢谢。
: films.txt的文档如下，
: 一堆简介
: ...................
--
FROM 111.166.6.*