怎么用perl删除匹配行？

wapper

我需要对一个被实时访问的列表文件进行处理，删除里面符合匹配条件的行，想破了头都不知道怎么做，哪位给提个醒？

比如列表文件如此：
123,20060319091100,ABC,DEF
456,20060319093021,SDF,FGHG

这是一个用“，”分割的普通文本文件，其中第二列里面包含日期和时间信息，记录都是按时间增长的，就是说相当于按第二列排序了。我用perl要在里面找出3天前的行并删除这些匹配行，例如2006年3月20日执行时，从头检查第二列内容的前8位，如果小于20060317就删除该行，如果等于20060317了就推出操作，如何做啊？

还有这个文件是被其他程序实时访问的，因此我只能在此文件本身操作。

谢谢啦！

Qiang

你把 3 天前的时间计算出来，然后循环这个文件把所有 3 天后的行输出到另外一个文件里。然后把这个文件更名成旧的文件覆盖。
既然你说这个文件是实时的，那么可以尝试建个 cron job 到深夜时运行这个程序。更名很快，而且选择在很晚运行应该可以解决你的问题。

下面这段没完全解决你的问题，但如果你了解一点 Perl 就可以完成你想做的。鼓励你自己去学习吧。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. use Time::Local;
   
7. 
   
8. my ($d,$m,$y) = (localtime)[3,4,5];
   
9. my $time = timelocal(0,0,0,$d,$m,$y+1900);
   
10. $time = $time - 60*60*24*3 ;
    
11. ($d,$m,$y) =  (localtime $time)[3,4,5];
    
12. my $days_ago = sprintf("%04d%02d%02d",$y+1900,$m+1,$d--);
    
13. # 今天是 20060320, $days_ago 是 3 天前。即 20060317
    
14. 
    
15. while (<>) {
    
16.    if ((split ",",$_)[1]=~ /^(\d{8})/) {
    
17.        print unless $1 > $days_ago;
    
18.    }
    
19. }
    

复制代码

运行 perl time.pl  文件名试试。

## 这段程序没有测试....

另外， 用 Date::Calc 模块的 Add_Delta_Days 方法计算会更容易些。

[ 本帖最后由 Qiang 于 2006-3-20 01:33 编辑 ]

apile

很难吧..除非你把他lock...才能作处理.....想办法转到DB去吧.....那会比较容易....

wapper

谢谢您的帮助！我最后还是采取的是一行行地读，如果是三天内的记录就写到临时文件，然后拷贝回来就是了，只是这个文件有好几千行，访问冲突的几率还是存在的。您的代码很有借鉴作用，split那行就是删除匹配行吧？刚开始学，对正则表达式还十分生疏。

superdoctor

删除比太好作，不过用空行代替可行吗？

给你个例子


#!/usr/bin/perl -w

@ARGV = glob "urfile" or die "no file found";
$^I = "";
while (<>) {
s/ur_pattern//;
print;

}

补充一句，这个是在原始文件上更改，不用临时文件的

[ 本帖最后由 superdoctor 于 2006-3-22 14:14 编辑 ]