在perl中对目录进行排序，考虑数字_Perl_Sorting_Readdir

在perl中对目录进行排序，考虑数字

perl sorting

在perl中对目录进行排序，考虑数字,perl,sorting,readdir,Perl,Sorting,Readdir,我想我需要某种方法来让它工作，但我很难弄清楚，因为perl不是我最强大的语言我有一个目录，其内容如下： album1.htm album2.htm album3.htm .... album99.htm album100.htm 我正试图从这个目录（在本例中为album100.htm）获取编号最高的相册。请注意，文件上的时间戳不是确定事情的可靠方法，因为人们在事后添加旧的“缺失”相册以前的开发人员只是使用了下面的代码片段，但一旦一个目录中有9个以上的相册，显然就会出现故障 opendir(

我想我需要某种方法来让它工作，但我很难弄清楚，因为perl不是我最强大的语言

我有一个目录，其内容如下：

album1.htm
album2.htm
album3.htm
....
album99.htm
album100.htm

我正试图从这个目录（在本例中为album100.htm）获取编号最高的相册。请注意，文件上的时间戳不是确定事情的可靠方法，因为人们在事后添加旧的“缺失”相册

以前的开发人员只是使用了下面的代码片段，但一旦一个目录中有9个以上的相册，显然就会出现故障

opendir(DIR, PATH) || print $!;
@files = readdir(DIR);
foreach $file ( sort(@files) ) {
    if ( $file =~ /album/ ) {
        $last_file = $file;
    }
}

如果你只需要找到编号最高的唱片集，你不需要对列表进行排序，只需浏览列表并跟踪最大编号即可

#!/usr/bin/perl 

use strict;
use warnings;

my $max = 0;

while ( <DATA> ) {
    my ($album) = $_ =~ m/album(\d+)/;
    $max = $album if $album > $max;
}

print "album$max.htm";

__DATA__
album1.htm
album100.htm
album2.htm
album3.htm
album99.htm

#/usr/bin/perl
严格使用；
使用警告；
我的$max=0；
而（）{
我的（$album）=$\u=~ m/album（\d+）/；
$max=$album，如果$album>$max；
}
打印“相册$max.htm”；
__资料__
相册1.htm
相册100.htm
相册2.htm
相册3.htm
相册99.htm

如果您只需要找到编号最高的唱片集，您实际上不需要对列表进行排序，只需运行列表并跟踪最大值即可

#!/usr/bin/perl 

use strict;
use warnings;

my $max = 0;

while ( <DATA> ) {
    my ($album) = $_ =~ m/album(\d+)/;
    $max = $album if $album > $max;
}

print "album$max.htm";

__DATA__
album1.htm
album100.htm
album2.htm
album3.htm
album99.htm

#/usr/bin/perl
严格使用；
使用警告；
我的$max=0；
而（）{
我的（$album）=$\u=~ m/album（\d+）/；
$max=$album，如果$album>$max；
}
打印“相册$max.htm”；
__资料__
相册1.htm
相册100.htm
相册2.htm
相册3.htm
相册99.htm

要查找最大的数字，请尝试自定义排序

sub sort_files {
    (my $num_a = $a) =~ s/^album(\d+)\.htm$/$1/;
    (my $num_b = $b) =~ s/^album(\d+)\.htm$/$1/;
    return $num_a <=> $num_b;
}

my @sorted = sort \&sort_files @files;
my $last = pop @sorted;

子排序\u文件{
（我的$num_a=$a）=~s/^album（\d+）\.htm$/$1/；
（我的$num_b=$b）=~s/^album（\d+）\.htm$/$1/；
返回$num_a$num_b；
}
我的@sorted=sort\&sort_files@files；
my$last=pop@sorted；

另外，请看一下模块。它将让你只挑选以“album”开头的文件。我发现它比readdir要简单一些。

要找到最大的数字，请尝试自定义排序

sub sort_files {
    (my $num_a = $a) =~ s/^album(\d+)\.htm$/$1/;
    (my $num_b = $b) =~ s/^album(\d+)\.htm$/$1/;
    return $num_a <=> $num_b;
}

my @sorted = sort \&sort_files @files;
my $last = pop @sorted;

子排序\u文件{
（我的$num_a=$a）=~s/^album（\d+）\.htm$/$1/；
（我的$num_b=$b）=~s/^album（\d+）\.htm$/$1/；
返回$num_a$num_b；
}
我的@sorted=sort\&sort_files@files；
my$last=pop@sorted；

另外，请看一下模块。它将让你只挑选以“album”开头的文件。我发现它比readdir要简单一些。

遇到困难的原因是运算符，

是数字比较，

cmp

是默认值，是字符串比较

$ perl -E'say for sort qw/01 1 02 200/';
01
02
1
200

稍加修改，我们就更接近正确：

$ perl -E'say for sort { $a <=> $b } qw/01 1 02 200/';
01
1
02
200

它很酷，因为它既紧凑又高效。