我嘗試在 Perl 5 版本 5.20 下撰寫一個子例程，它創建一個存盤在陣列中的大型目錄串列。子例程將結果作為 arrayref 回傳。為方便起見，我希望可以選擇對結果進行排序。
#!/usr/bin/env perl
use v5.20;
use warnings;
use strict;
use File::Slurp qw(read_dir);
use Time::HiRes;
use feature qw(signatures);
no warnings 'once';
no warnings 'experimental';
no warnings 'experimental::signatures';
my $PATH='/net/dbfs/GRM-RS/Flight-Campaigns/2021-08-23.Ram-Head-i-22.SE-01/cam/MM010259/iiq/';
sub fsReadDir($base, $sort, $mode = 1) {
$base //= '.'; # Base path default is the current path
$sort //= 0; # Flag for array sorting of the result
my @res=read_dir($base);
if ($sort) {
return [sort(@res)] if $mode == 1;
if ($mode == 2) {
@res = sort(@res);
return \@res;
}
} else {
return \@res;
}
}
sub testSorting($sort, $mode, $max = 1000) {
my $start = [Time::HiRes::gettimeofday()];
my $count = 0;
for my $ix (0..$max) {
my $array = fsReadDir($PATH, $sort, $mode );
$count = @$array;
}
my $end = time();
my $dif = Time::HiRes::tv_interval($start);
print "SORT: $sort MODE: $mode COUNT: $count TIME: $dif s\n"
}
testSorting(0, 1);
testSorting(1, 1);
testSorting(1, 2);
結果
/usr/bin/env perl "test-array.pl"
SORT: 0 MODE: 1 COUNT: 14861 TIME: 6.882694 s
SORT: 1 MODE: 1 COUNT: 14861 TIME: 9.131504 s
SORT: 1 MODE: 2 COUNT: 14861 TIME: 8.622628 s
直接在return級別對陣列進行排序的有效方法是什么？
uj5u.com熱心網友回復：
如果你堅持在陳述句本身中對排序業務進行排序return可以使用三元
return $sort ? [ sort @res ] : \@res;
在簡單的情況下，這可能一切都很好而且很清楚。
但是，我發現先處理案例和選項然后回傳結果更清楚
@res = sort @res if $sort;
if ($mode == 1) { ... } # modes given in the question do the same,
elsif ($mode == 2) { ... } # but imagine different processing based on value
...
return \@res;
此外，就地排序應該更有效率。
但是，如果這是關于效率的，那么您需要在實際情況下對不同的方法進行基準測驗。一方面，它可能會通過讀取一個大目錄而被吹得一團糟，因為人們可能無法分辨出回報是如何準確構建的任何性能差異。
所以我會為了清楚起見，直到清楚地看到選擇確實會影響性能。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/411322.html
標籤：
上一篇：對文本檔案中的行子組進行排序