如何定位匹配字符串在文本中的位置

Perlvim

pos 函数可以定位每次匹配的位置，（第几个字符），如果想得到是第几行，也就是 grep 的效果。怎么办？

rubyish

rubyish

#!/usr/bin/perl -w
# 2012-03-29

use 5.014;
use strict;
sub line(\$);
my $file = do { local $/; <DATA> };

say line $file while $file =~ /ok/g;

sub line(\$) {
    my ( $file, $begin, $index, $line ) = ( shift, 0, 0 );
    my $pos = pos $$file;
    while ($pos) {
        $index = index( $$file, "\n", $begin );
        $begin = $index + 1;
        ++$line;
        last if $index >= $pos;
    }
    return $line;
}

__DATA__
apple abble ok d
bablle bella ba
cello cilla ok ok ok
denmark damn
ok e
ok  ok

jason680

1: $.
2: while(<FH>){$sCount++;...}

$ cat grep.pl
use strict;
use warnings;

my $sKey = shift;
while(<>){
  if(m/$sKey/){
    print "$ARGV($.):$_";
  }
}

$ perl grep.pl Key grep.pl
grep.pl(5):my $sKey = shift;
grep.pl(7):  if(m/$sKey/){

$ grep -Hn Key grep.pl
grep.pl:5:my $sKey = shift;
grep.pl:7:  if(m/$sKey/){

kk861123

盗用3L数据{:3_193:}

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $file = do{local $/;<DATA>};
   
6. print line($file,pos($file)),"\n" while $file =~ /ok/g;
   
7. 
   
8. sub line {
   
9.         my ($file,$posi) = @_;
   
10.         my $line = ($posi >= 1) ? 1 : undef;
    
11.         while ($file =~ /\n/g) {
    
12.                 if ($posi <= pos($file)) {
    
13.                         last;
    
14.                 } else {
    
15.                         $line++;
    
16.                 }
    
17.         }
    
18.         return $line;
    
19. }
    
20. 
    
21. __DATA__
    
22. apple abble ok d
    
23. bablle bella ba
    
24. cello cilla ok ok ok
    
25. denmark damn
    
26. ok e
    
27. ok  ok

复制代码

sjdy521

可不可以换个角度
逐行匹配文本，如果匹配成功，就把行号也打印出来

1. while(<FILE>){
   
2. print "$.\t [        DISCUZ_CODE_0        ]" if /something/;
   
3. }

复制代码

擦，发现个bug
$&被换成了

1. [        DISCUZ_CODE_0        ]

复制代码

多谢 jason680 修订后：

1. while(<FILE>){
   
2. print "$.\t $&" if /something/;
   
3. }

复制代码

jason680

回复 6# sjdy521

use $& and mark the "禁用表情" for special sign (like as smile)
mark the "禁用链接识别" for code

1. xxx $& xxxx

复制代码

sjdy521

回复 7# jason680


    搞定，多谢

Perlvim

感谢大家的热心回复。从算法上来说 sjdy521 更简洁。但逐行匹配终究不如全文匹配效率高。
kk881623 的算法是和rubyish 差不多，但函数内部和外部的条件两次调用 s/ok/g， 似有不妥。
joson680 的是在处理文件句柄时的算法，对于一个文本字符串，是没有 $. 变量跟踪的。拆分成行在逐行匹配，也无法进行跨行的全文匹配。

最严谨，效率最高的算法，我认为是rubyish. 虽然代码看起来复杂一点。

想想看来，grep 这个工具蛮不错的。这个需求，我已经取消了，没有多大价值，而且牺牲较多效率。

jason680

回复 9# Perlvim

>>逐行匹配，也无法进行跨行的全文匹配。

在我看来,逐行读取与匹配，不一定不能做到跨行匹配....
端看须求与目的..