擅长:python、mysql、java
<p>在Perl中,您可以尝试以下代码:</p>
<pre><code>use strict;
use warnings;
my $file1 = "AGGGCUUAGCUGCUUGUGAGCA";
my $file2 = "UUCACAGUGGCUAAGUUCCGC";
my $file3 = "CUGAGGAGCAGGGCUUAGCUGCUUGUGAGCAGGGUCCACACCAAGUCGUGUUCACAGUGGCUAAGUUCCGCCCCCCAG";
my ($result) = $file3 =~ /$file1(.*?)$file2/;
print $result;
</code></pre>
<p>输出:</p>
^{pr2}$