使用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})};