目录中文件内容处理小工具

概述#!perl -wuse strict;my @DatFileNames = glob "*.dat";print @DatFileNames;my $FileHandle;my $OutPutFileHandle;my $FileName;$^I = ".bak";mkdir "back";foreach $FileName (@DatFileNames)

#!perl -wuse strict;my @Datfilenames = glob "*.dat";print @Datfilenames;my $fileHandle;my $OutPutfileHandle;my $filename;$^I = ".bak";mkdir "back";foreach $filename (@Datfilenames){ open $fileHandle,"<",$filename or dIE "can't open file($!)/n"; open $OutPutfileHandle,">",".//back//".$filename or dIE "can't open file($!)/n"; while(<$fileHandle>) { $_ =~ s/(/d+)(/s*)/n$/-/n/; print $OutPutfileHandle $_; } close $fileHandle; close $OutPutfileHandle;}

 

 

其中$^I  对while  <> {print} 其作用，类似perl -i -e ；

在此处不起作用了

总结

以上是内存溢出为你收集整理的目录中文件内容处理小工具全部内容，希望文章能够帮你解决目录中文件内容处理小工具所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。