擅长:python、mysql、java
<p>在<code>perl</code>中,您可以:</p>
<pre><code>my @new_names = map {
my ( $n ) = $_ =~ /image(\d+)\.png/;
my $j = (($n - 1) % 3) + 1;
my $char = (qw(a b c))[ int( $n / 3 ) ];
"$j-$char.png"
} @files;
</code></pre>
<p>这假设<code>@files</code>数组没有特殊的顺序。你知道吗</p>