perl如何打开一系列相同后缀名的文件，并对其中的字符串进行替换操作？

Question

例如把所有的.text文件的aaa换成自己的文件名
不要命令，需要如何写pl文件

Answer 1

首先获取.text文件名列表，你可以事先将名字写到一个文件里，如name.txt （linux下直接ls）
#!/usr/bin/perl
open NAME,"name.txt";
while (<NAME>){
chomp $_;
open IN,"$_";
@a=<IN>;
open OUT,">$_";
foreach $b(@a){
chomp $b;
$b =~ s/aaa/bbb/g;
print OUT "$b\n";
}
}

追问

大哥，这个文件有好几万个啊，我要自动的啊。。。。

追答

use strict;
opendir (DIR, “C://test”) or die "can't open the directory!";
@dir = readdir DIR;
open OUT,">>name.txt"; #name.txt 即所有文件名的文件；你可以将这个代码整合到上面那个代码里
foreach $file (@dir) {
print OUT $file;

}

#C://test下是你所有的文件

追问

非常感谢，我还没开始学perl，可能有些地方不太懂。但现在需要批处理一些文件，请问您能不完整写个模板“所有的.text中文件的aaa换成自己的文件名”aaa一个文件只有一处，得换成对应文件的文件名。