Question

perl中的如何实现循环读取当前文件中调用的下层文件？

在/home/userL 目录下面有一个文件TOP.txt，它里面通过define_sub A 的关键字来调用该目录下的A.txt，然而A.txt里面又有define_sub B，又需要读取该目录下的B.txt，依次类推，不确定文件嵌套了多少层；
请教各位，如何用perl实现循环读取文件，直至最底层文件？
1、每个文件里面有一个或者多个define_sub的关键字，也就是说每个文件都嵌套着一个或者多个文件。
2、文件中除了define_sub定义文件嵌套之外，还有其他一些关键字信息，我首先会把当前文件的关键信息打印到屏幕或者保存到log中，然后如果存在define_sub定义的嵌套文件（有可能是多个），那我就逐一打开嵌套文件，保存关键信息到log，直到文件中不再出现define_sub定义的嵌套文件。
3、A/B/C仅仅是文件名字，我会从用户指定的目录中去读取A/B/C的文件，从而获取其中的关键信息并记录，同时查看是否存在再次用define_sub定义的嵌套文件。
4、我需要从每个文件中获取关键信息打印到log或者屏幕，但是这些文件都是嵌套的，我要一直追到某个文件中不定义嵌套文件，我才停止下来。
多谢

Answer 1

1. 一个 txt 文件里是只有这样的一行 ? 还是有很多 define_sub ... 这样的行?
   

2. 一个 txt 文件里, 是不是全都是 define_sub ... 这样的格式 ? 有没有其他文字, 如注释之类的 ?

3. "该目录" 是甚麼意思 ? 您那些 A B C 是不是代表任意的路径 ? 如果是, 那那些径是用绝对路径还是相对路径

4. 那您即是想得到甚麼结果 ? hash ? array ? 打印到屏幕 ?

追问

多谢回答，我已经补充了问题，如有时间请帮忙再看一下

追答

有点无法想像, 您可以截两个图吗 ? 一个是目录的结构, 一个是文本内文的样子...