擅长:python、mysql、java
<p>我将用Perl发布一个解决方案,只是因为您没有考虑到它的可能性:)</p>
<pre><code>$currentPrefix = "";
$previousFile = "";
while (<*.txt>) {
/([A-Z]+[0-9]+)-?[0-9]*.loc.txt/;
if ($1 eq $currentPrefix) {
if (-s $_ < -s $previousFile) {
unlink($_);
} else {
unlink($previousFile);
$previousFile = $_;
}
} else {
$currentPrefix = $1;
$previousFile = $_;
}
}
</code></pre>
<p>以及python中的另一个解决方案:</p>
^{pr2}$
<p>请注意,您需要对文件进行排序,因为glob不会按字典顺序返回它们</p>