1.使用perl编写,需安装环境。
2.脚本仅能应用于当前目录下的文本。
源码
my @allfile = glob ‘*.txt’;
foreach $file(@allfile){
my $content;
open(in,"+<$file")or die “Cannot open $file ,check $file properties”;
$content .= $_ while ;
open (OUTFILE,">$file");
print OUTFILE “$content” or die “Unable to write”;
close (in)or die “Cannot close”;
}