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

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

2025-05-09 09:11:35

推荐回答（1个）

回答1：

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