急问:用perl删除很多文件夹下面一个文件的特定行

kahn010111

比如有很多文件夹下面都有abc.txt这个文件,文件内容不同但可能会含有data=1的行.
现在要想把含有这种data=1的行删除,其他文件内容保持不变.
怎么写脚本阿?
多谢多谢!!!

kiwivip

File::Find & Tie::File

picbhan

perl -i  .bak -e 's/data=1\n//'

貌似是

kernel69

含有data=1，也就是说也可以是test data=1,还可以是test data=1 test 是吗
回复 1# kahn010111


   

yinsong198611

#!/usr/bin/perl -w
use strict;
use 5.010;
use File::Find;
my @file;

find(\&wanted,"/tmp/tmp");                     #/tmp/tmp是你要搜索的根目录

sub wanted{
    push @file, $File::Find::name if (-f $_ and $_ =~ m/abc.txt$/);
}

@ARGV=@file;
$^I="";
while (<>){
        next if ($_ =~ m!data=1!);
#       $_ =~ s/data=1//g;
        print;   
}                                    
                                                      
                                                      
你可以试试这个，应该可以

xiaozi0lei

在unix下，windows下不清楚
三楼的这个命令应该可以

find 目录名 -name "abc.txt" | xargs -t perl -pi -e "s/data=1\\n//g"

这个命令并不备份文件，请先找个临时文件操作一下，如果符合你的预期，再套用该命令。

picbhan 发表于 2013-05-16 15:22
perl -i  .bak -e 's/data=1\n//'

貌似是

rubyish

不明白！