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

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/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);
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!