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

2015-12-14 0 142
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遍历所有文件并修改或插入相关信息 http://www.ox520.com/13023.html

上一篇:

已经没有上一篇了!

下一篇:

已经没有下一篇了!

常见问题

相关文章

发表评论
暂无评论
官方客服团队

为您解决烦忧 - 24小时在线 专业服务