不知道如何在字符串中搜索子字符串

Question

我有两个序列：

a ：ATGCATGCATGCATGCATGC

b ：GATGATGCATAGCATGCATGTTTGCGATGAATCGC

我想按序列 b 搜索序列 a ，并给出匹配的位置。

以上示例的输出： 5

Answer 1

这个答案基于

  

“我想在序列b中搜索序列a并给出位置   它匹配。“

而不是你的问题标题似乎暗示了一个与你帖子中实际不同的问题？

my $haystack = 'GATGATGCATAGCATGCATGTTTGCGATGAATCGC';
my $needle = 'ATGCATGCATGCATGCATGC';
my $pos = index($haystack, $needle);
if($pos != -1) {
  ....
}

Answer 2

my $a = 'GATGATGCATAGCATGCATGTTTGCGATGAATCGC'; 
my $b = 'ATGCATGCATGCATGCATGC'; 
my $p = index($a, $b) + 1;                      # returns 5