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

Question

我有两个序列：

一个：ATGCATGCATGCATGCATGC

乙：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