perl遍历所有文件并修改或插入相关信息

大佬教程收集整理的这篇文章主要介绍了perl遍历所有文件并修改或插入相关信息，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

#!/ms/dist/perl5/bin/perl5.10
use Tie::File;
use Strict;
use warnings;

sub process{
    my @lines;
    my $filename = shift;
    if(-f $fileName){
            print $filename."\n";
    tie(@lines,'Tie::File',$fileName) or die;

    for (my $i=0;$i<scalar(@lines);$i++){
        if($lines[$i] =~ /use warnings/ && $lines[$i+1]!~ /use MyPlant::Dependencies/){
            @lines = ((@lines[0 .. $i]),"use MyPlant::Dependencies;\n",(@lines[$i+1 .. @lines]));
            print $lines[$i]."\n";
            print $lines[$i+1]."\n";
            print $lines[$i+2]."\n";
        }
    }
    untie(@lines);
    }
}
opendir(DH,".") or die "Can't open: $!\n";
my @filelist =  grep /pl$/,readdir(DH);
foreach my $file (@filelist){
  next if($file eq '.' || $file eq '..' ||$file eq 'test.pl');
  process($filE);
}

大佬总结

以上是大佬教程为你收集整理的perl遍历所有文件并修改或插入相关信息全部内容，希望文章能够帮你解决perl遍历所有文件并修改或插入相关信息所遇到的程序开发问题。

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

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。