关于删除

huaxue

如果我匹配了一行，想删除应该怎么做啊？
谢谢！

huaxue

难道没人知道吗？

ubac

可以把数据都读到一个数组里，然后对数组进行操作，删除对应的行

realalley

s=~/Pattern/;
result=$`.$';

huaxue

我的意思是：
我发现了如果有一个文本如下：
1111111111111
aaaaaaaaaaaaaaa
222222222222222
bbbbbbbbbbbbbb
333333333333333

当我发现文本中某一行全是数字的话，就把这一行删除，

alexru

这样写就可以

#!/usr/bin/perl
open(IN,"test.txt") or die "$!";
while(<IN>){
        if(/^\d+$/){
                ;
        }else{
                print;
        }
}

huaxue

恩，我上面只是打个比方，实际比这个负责多了：
在一个文本a，如果一行中包含文件b中所列出的字符串，则在文本a中删除该行。
文本b例如：
0644
0645
0650
0659
0660
0661
0662

alexru

都差不多，建议你好好看看 m//

heisejt99

#文件内容比较
#!c:\perl\bin\perl -w
open (Fx,"c:/perl/bin/x.txt")||die ("can not open file\n");
open (Fy,"c:/perl/bin/y.txt")||die ("can not open file\n");
my @a;
chomp(@a=<Fx>);
print"Fx contains:         @a\n\n";
my $b=@a;
my @c;
chomp(@c=<Fy>);
print"Fy contains:         @c\n\n";
my $d=@c;
my $i;
my $k;
for($i=0;$i<$b;$i++)
  {  for($k=0;$k<$d;$k++)
    { if($a[$i] eq $c[$k])
      { print"The same number is:  $a[$i]\n";
        $a[$i]=" ";
        next;
       }
    }
   }
shift(@a);
print"Now the Fx contains: @a\n";