请教各位大大，如何向批量文本文件中写入数据？

for i in *a*.txt; do cat b.txt >> $i; done

能不能用perl编程的办法解决哦？

可以，但多写几行，为什么不用简单的

因为我想把程序弄成exe，我很多地方都要用这个，还有就是我刚学perl，顺便巩固下知识。
请你指点一下，谢谢

做成.exe估计不好吧，难道你每次都是对类似命名文件操作？
用perl的话，用glob吧

对，我每次都是对类似的文件名操作

方法比较笨,不过应该可以达到你的要求吧

my @all_files = glob "*";
my @a_files = glob "*a*.txt";
foreach  (@a_files) {
        print "进入了吗？\n";
        open (MYFILE,">>$_") || die "$!";
        open (FILE,"b.txt")  || die "$!";
        @contents = <FILE>;
        unshift @contents,"\n";
        print MYFILE @contents;
        close(MYFILE);
        close(FILE);

}
print "运行结束\n";