请教在一个目录下，对多个文件如何进行操作。

li_000828

小弟有一个问题，我现在要对一个目录下的文件执行同一个操作，进行正则替换，如果就一个文件我可以用open打开，然后操作，可是现在文件有几十个，要是用open循环打开
的话，效率太低了，哪位前辈有没有好的方法或者有没有处理这方面的相关模块。

后来我找到了FileCache模块，只能进行简单的写入操作，不能做更细致的文本操作。

zhlong8

在一个循环中打开文件一样是行，你思路有问题吧，贴下代码看看？还是说你不知道怎么获取当前文件夹下的所有文件名？

li_000828

回复 2# zhlong8

1. #!/usr/bin/perl
   
2. chdir "/tmp";
   
3. @files=glob "*.txt";
   
4. for  $file(@files)
   
5. {
   
6.     open F,"$file";
   
7.      while(<F>)
   
8.      {
   
9.          .............
   
10.       }
    
11.       close(F);
    
12. }

复制代码

我的思路是这样的，要是循环打开文件，进行操作。这样效率会不会太低了。

iamlimeng

几十个文件，会慢吗？我打开几千个文件也不慢，但写入几千个，感觉时间较长。

zhlong8

回复 3# li_000828


    不会影响性能

wfnh

回复 3# li_000828


    这是正常的思路··而且也不会影响性能····

li_000828

楼上的三位前辈说我按照上面我的方法打开文件，不会有效率的问题，看来是我多虑了。:wink:

xixizhihua

楼主思路是对的，不过可以试试下面的简略代码。
$perl -i -e -p "s/……/……/" *.txt
基本就能完成这个文件夹下的全体替换了。

2gua

楼上这个思路挺好啊。