Làm thế nào tôi có thể tìm thấy vị trí của một trận đấu regex trong Perl?

Question

Tôi cần viết một hàm nhận chuỗi và regex. Tôi cần kiểm tra xem có phù hợp không và trả về vị trí bắt đầu và kết thúc của trận đấu. (Regex đã được biên soạn bởi qr//.)

Chức năng cũng có thể nhận được cờ "toàn cầu" và sau đó tôi cần phải trả về (bắt đầu, kết thúc) của tất cả các kết quả phù hợp.

Tôi không thể thay đổi regex, thậm chí không thêm () xung quanh nó khi người dùng có thể sử dụng () và \1. Có lẽ tôi có thể sử dụng (?:).

Ví dụ: đưa ra "ababab" và regex qr/ab/, trong trường hợp chung tôi cần phải lấy lại 3 cặp (bắt đầu, kết thúc).

Answer 1

Hàm pos cho bạn vị trí của trận đấu. Nếu bạn đặt regex của bạn trong ngoặc đơn, bạn có thể nhận được độ dài (và do đó kết thúc) bằng cách sử dụng length $1. Giống như điều này

sub match_positions { 
    my ($regex, $string) = @_; 
    return if not $string =~ /($regex)/; 
    return (pos($string), pos($string) + length $1); 
} 
sub all_match_positions { 
    my ($regex, $string) = @_; 
    my @ret; 
    while ($string =~ /($regex)/g) { 
     push @ret, [pos($string), pos($string) + length $1]; 
    } 
    return @ret 
} 

Answer 2

Bạn cũng có thể sử dụng biến $ `không dùng nữa, nếu bạn sẵn sàng có tất cả RE trong chương trình của mình chạy chậm hơn. Từ perlvar:

$‘  The string preceding whatever was matched by the last successful pattern match (not 
      counting any matches hidden within a BLOCK or eval enclosed by the current BLOCK). 
      (Mnemonic: "`" often precedes a quoted string.) This variable is read-only. 

      The use of this variable anywhere in a program imposes a considerable performance penalty 
      on all regular expression matches. See "BUGS". 

Answer 3

Hãy quên bài đăng trước của tôi, tôi có ý tưởng hay hơn.

sub match_positions { 
    my ($regex, $string) = @_; 
    return if not $string =~ /$regex/; 
    return ($-[0], $+[0]); 
} 
sub match_all_positions { 
    my ($regex, $string) = @_; 
    my @ret; 
    while ($string =~ /$regex/g) { 
     push @ret, [ $-[0], $+[0] ]; 
    } 
    return @ret 
} 

Kỹ thuật này không thay đổi regex theo bất kỳ cách nào.

Đã chỉnh sửa để thêm: để trích dẫn từ perlvar trên $ 1 .. $ 9. "Các biến này là tất cả chỉ đọc và được tự động dò tìm đến BLOCK hiện tại". Nói cách khác, nếu bạn muốn sử dụng $ 1 .. $ 9, bạn không thể sử dụng một chương trình con để thực hiện việc so khớp.

Answer 4

Biến tích hợp @- và @+ giữ vị trí bắt đầu và kết thúc tương ứng của kết quả phù hợp thành công cuối cùng. $-[0] và $+[0] tương ứng với toàn bộ mẫu, trong khi $-[N] và $+[N] tương ứng với các phụ đề con số $N ($1, $2, v.v.).

Answer 5

#!/usr/bin/perl 

# search the postions for the CpGs in human genome 

sub match_positions { 
    my ($regex, $string) = @_; 
    return if not $string =~ /($regex)/; 
    return (pos($string), pos($string) + length $1); 
} 
sub all_match_positions { 
    my ($regex, $string) = @_; 
    my @ret; 
    while ($string =~ /($regex)/g) { 
     push @ret, [(pos($string)-length $1),pos($string)-1]; 
    } 
    return @ret 
} 

my $regex='CG'; 
my $string="ACGACGCGCGCG"; 
my $cgap=3;  
my @pos=all_match_positions($regex,$string); 

my @hgcg; 

foreach my $pos(@pos){ 
    push @hgcg,@$pos[1]; 
} 

foreach my $i(0..($#hgcg-$cgap+1)){ 
my $len=$hgcg[$i+$cgap-1]-$hgcg[$i]+2; 
print "$len\n"; 
}