Comment trouver l'emplacement d'index d'une sous-chaîne correspondant à une regex en Perl?

Question

Je parcourt un fichier et sur chaque ligne je recherche une regex. Si l'expression rationnelle est trouvée, je veux juste imprimer "c'est trouvé" et ensuite l'emplacement de l'index où il a été trouvé dans cette ligne.

Exemple:

looking for: 'HDWFLSFKD' need index between two Ds 
line: MLTSHQKKF*HDWFLSFKD*SNNYNSKQNHSIKDIFNRFNHYIYNDLGIRTIA 
output: 'its found' index location: 10-17 

ci-dessus « recherche » est tout à fait simple, mais je prévois d'avoir des déclarations regex complexes là-dedans.
Donc, fondamentalement, je veux juste savoir si une regex est trouvée dans une chaîne, alors comment pouvons-nous obtenir l'emplacement de l'index?

Voici le code que j'ai jusqu'à présent:

foreach my $line (@file_data) 
{ 
     if ($line=~ /HDWFLSFKD/){ 
      print "it's found\n"; 
      print "but at what index are the two Ds"; 
      } 
     else { 
      $sequence.=$line; 
      print "came in else\n"; 
     } 
} 

Answer 1

Je crois que vous cherchez pos:

#!/usr/bin/perl 

use strict; 
use warnings; 

my $sequence; 
while (my $line = <DATA>) { 
    if ($line=~ /(HDWFLSFKD)/g){ 
     print "its found index location: ", 
      pos($line)-length($1), "-", pos($line), "\n"; 
    } else { 
     $sequence .= $line; 
     print "came in else\n"; 
    } 
} 

__DATA__ 
MLTSHQKKF*HDWFLSFKD*SNNYNSKQNHSIKDIFNRFNHYIYNDLGIRTIA 
MLTSHQKKFSNNYNSKQNHSIKDIFNRFNHYIYNDLGIRTIA 
MLTSHQKKFSNNYNSK*HDWFLSFKD*QNHSIKDIFNRFNHYIYNDLGIRTIA 

Vous pouvez également utiliser les @- et @+ variables:

#!/usr/bin/perl 

use strict; 
use warnings; 

my $sequence; 
while (my $line = <DATA>) { 
     if ($line=~ /HDWFLSFKD/){ 
       print "its found index location: $-[0]-$+[0]\n"; 
     } else { 
       $sequence .= $line; 
       print "came in else\n"; 
     } 
} 

__DATA__ 
MLTSHQKKF*HDWFLSFKD*SNNYNSKQNHSIKDIFNRFNHYIYNDLGIRTIA 
MLTSHQKKFSNNYNSKQNHSIKDIFNRFNHYIYNDLGIRTIA 
MLTSHQKKFSNNYNSK*HDWFLSFKD*QNHSIKDIFNRFNHYIYNDL 

Answer 2

Vous pouvez diviser votre chaîne avec l'expression rationnelle et la sortie de la taille du premier élément de tableau, s'il y a plus d'un elemnts dans le tableau. Un simple exemple:

my $test="123;456"; 
my @help=split(';', $test); 
if ($#help>0) { 
    print "Index is:".length($help[0]); 
} 

Edit: Cela correspond à votre exemple simple, mais pas complètement avec votre texte - si le regex est plus complexe, la taille des critères fendus obtient à nouveau flexible. Ensuite, vous devez déterminer l'indice du second élément du tableau pour déterminer la taille du critère de partage.