求助根据目录名递归替换内容的问题

xlzhang

现在的问题是有很多的目录和子目录，根据各个目录的名字修改该目录下的文件的相关内容。无法使用perl-p -i -e来修改。
由于一些原因没有find模块，也暂时无法安装。自己写的递归对目录和文件进行的操作，网上找来一个程序修改文件内容
open(FF,"<xxx.txt");
$/="";
$data = <FF>;
$data=~s/abc/123,xxxxx/sg;
close(FF);
open(FF,">;xxx.txt");
print FF $data;
close(FF);
但是出现问题这个方法，无法对文件的内容修改完，我的文件再有#后面的内容就没有被修改，而且之后的不是注释的内容的也无法修改。

churchmice

简单说说

1. 
   
2. perl -p -i -e
   

复制代码

属于外部命令行开关，不能用于perl文件内部，但是内部有相应的写法
比如-i.bak对应于

1. 
   
2. $^I=".bak";
   

复制代码

这个句子的作用就是perl在执行

1. 
   
2. while(<>)
   
3. {
   
4. }
   

复制代码

时会自动替你备份文件，具体过程如下：（以读取test为例）
1.perl读test文件，并将其改名为test.bak
2.perl接着创建一个文件test,在上面while循环中的print或者write默认都是写入这个文件
至于那个while循环的话，则是从做到右依次对@ARGV中的文件进行操作，对于每一个文件都是一行一行读入，读完以后接着读下一个文件，如果@ARGV为空，则从标准输入读入，至于你现在读的是哪个文件，可以用$ARGV变量来查看

cobrawgl

测试了一下，能修改啊，我这里没问题的

xlzhang

#后面的内容能替换吗
我的文件内容是这样的
set sdsss
set vvvvvv

#set

set jkkkk

就只能修改
set sdsss
set vvvvvv

churchmice

1. 
   
2. undef $/;
   

复制代码

而不是

1. 
   
2. $/="";
   

复制代码

前者读入所有数据，后者只读入第一段（段和段之间以空格分隔）

xlzhang

谢谢，看见有$^I可以用于修改文件内容，能针对上面的例子说一下吗？另外perl -p -i -e能用于PERL文件内部吗？谢谢