perl - 如何比较perl中的文件名

Question

我有一个表格中的文件名列表integer_Name.txt。我想返回具有最高整数值的文件名。除了字符串比较之外，还有什么方法可以在 perl 中完成？

Answer 1

这通常称为自然排序。有实现它的模块：Sort::Naturally

要获得最高价值 - 您可以排序并获取最后一个元素：

use strict; use warnings;
use Sort::Naturally;

my @names = (...);
my $name_with_biggest_number = (nsort(@names))[-1];

更新 - 手动排序

使用map/sort/map 成语。但仅当文件名中有单个数字时才有效：

use strict; use warnings;

my @names = (...);
my @sorted_names = 
    map { $_->[0] }
    sort { $b->[1] <=> $a->[1] } ## descending order
    map { [ $_, m/(\d+)/ ] }     ## extracting first number
    @names;
my $name_with_biggest_number = $sorted_names[0];

更新 - 没有排序

根据输入数据，避免使用sort. 因此，您可以显式编码搜索最大数量：

sub name_with_largest_number {
        my (@names) = @_;

        my $max_number = undef;
        my $name_with_max_number = undef;
        for my $name (@names) {
                my ($number) = ($name =~ m/(\d+)/);
                if (defined $number) {
                        if (! defined $max_number || $number > $max_number) {
                                $max_number = $number;
                                $name_with_max_number = $name;
                        }
                }
        }
        return $name_with_max_number;
}

print name_with_largest_number(...);

Answer 2

编辑：这是一个不需要昂贵排序的替代方案。感谢@tchrist 指出这种方法有多愚蠢。

use strict; use warnings;
use Data::Dumper;

my @list = qw(
332_Name.txt
999_Name.txt
125_Name.txt
9_Name.txt
0066_Name.txt
);

my %mapping;
my $highest = 0;
foreach(map { m/(\d+)/; $mapping{$1} = $_; $1 } @list) {
  $highest = $_ if $_ > $highest;
}
print $mapping{$highest};