擅长:python、mysql、java
<p>通过这样一个简单的字段选择,您可以使用<a href="http://perldoc.perl.org/functions/split.html" rel="nofollow">^{<cd1>}</a>将字符串分隔为字段,选择所需的字段,然后将它们与<a href="http://perldoc.perl.org/functions/join.html" rel="nofollow">^{<cd2>}</a>放回一起。你知道吗</p>
<p>注意,必须为<code>split</code>的第三个参数提供一个负数,以防止它丢弃尾随的空字段。你知道吗</p>
<p>看起来像这样</p>
<pre><code>use strict;
use warnings;
my $s = 'cellular organisms;Eukaryota;Opisthokonta;Metazoa;Eumetazoa;Bilateria;Protostomia;Ecdysozoa;Panarthropoda;Arthropoda;Mandibulata;Pancrustacea;Hexapoda;Insecta;Dicondylia;Pterygota;Neoptera;Endopterygota;Coleoptera;Polyphaga;Cucujiformia;Tenebrionoidea;Tenebrionidae;Tenebrionidae incertae sedis;Tribolium;Tribolium castaneum;';
my $ss = join ';', (split /;/, $s, -1)[0,1,-2,-1];
print $ss, "\n";
</code></pre>
<p><strong>输出</strong></p>
<pre><code>cellular organisms;Eukaryota;Tribolium castaneum;
</code></pre>