请问一个文件打开的问题

newliujian

我的子程序要在文档中找一句话，进行替换。如果在文档中发现了其他文件，会继续打这这个文件进行查找替换的操作。如此反复。
所以我想的方法是递归，入口是第一个文件。但是子程序中有个问题，这个打开的文件的句柄，进行自我调用的时候，遇到再打开文件时会被覆盖，所以递归没有办法进行下去了。
请教各位，怎么解决这个问题呢？

dgtnk

一个思路
处理当前文件时，把文档中出现的文件名暂放在一个数组中
当前文件处理完成，再分别处理数组里存放的文件

Kitaisky

my $fh = '';
my $i = 0;

sub recurse {
   ++$i;
   $fh = "FH" . $i;
   open ($fh, "Ur_File");
   .......
}

newliujian

一个思路
处理当前文件时，把文档中出现的文件名暂放在一个数组中
当前文件处理完成，再分别处理数组里存 ...
dgtnk 发表于 2011-09-29 19:02

    这个方法我试了一下，要行。唯一有点不好的地方就是把文件的顺序调整

newliujian

my $fh = '';
my $i = 0;

sub recurse {
   ++$i;
   $fh = "FH" . $i;
   open ($fh, "Ur_File"
...
Kitaisky 发表于 2011-09-30 00:41

    既然都是my的了，能不能这样呢.
    my $FILE;
    open($FILE,"xxxx");
    这样的话，句柄就不会履盖了吧？？？？

Kitaisky

回复 5# newliujian

--你可以试一下，但应该是不行；因为:

FileHandles cannot be re-used w/o being explicitly closed...