使用Perl将K个字符提取到标记的左侧和右侧

Question

我有以下字符串。 实际上，大小可以变化。

my $string = "ACCAGGGGGGCCTCCGCAG*AAGCGGTCGCCATAGTCAAAC"; 

我想要做的是提取10个字符的*标记的左侧和右侧， 导致：

my $output = "GCCTCCGCAG*AAGCGGTCGC"; 

是有一个紧凑的方式做到这一点在Perl？

Answer 1

你去那里：

my $string = "ACCAGGGGGGCCTCCGCAG*AAGCGGTCGCCATAGTCAAAC"; 
my $output = substr($string, index($string, '*') - 10, 21); 

Answer 2

这里有一个快速简便的方法使用正则表达式来做到这一点。两个{10}代表每边匹配的字符数。

my ($output) = $string =~ m{(.{10}\*.{10})};