Сортировка по нескольким столбцам (Perl)

Question

Как мне выполнить сортировку по нескольким столбцам для приведенного ниже кода?

В настоящее время код:1. Получает @list файлов в $directory2. Использует регулярные выражения, чтобы получить $fileName, $fileLocation и $fileSize для каждого элемента в @list3. Распечатывает 3 значения в (2) в 3 столбца фиксированной ширины. 4. Затем выводит общее количество файлов и размер каталога

. Я бы хотел, чтобы вывод был отсортирован по:1. $fileName тогда2. $fileLocation тогда3. $fileSize

$directory = '/shared/tmp';
$count = 0;

@list = qx{du -ahc $directory};

printf ("%-60s %-140s %-5s\n", "Filename", "Location", "Size");

foreach(@list) {
  chop($_);                                                     # remove newline at end
  if (/^(.+?K)\s+(.+\/)(.+\.[A-Za-z0-9]{2,4})$/) {              # store lines with valid filename into new array
#    push(@files,$1);
    $fileSize = $1;
    $fileLocation = $2;
    $fileName = $3;
    if ($fileName =~ /^\./) {
      next; }
    printf ("%-60s %-140s %-5s\n", $fileName, $fileLocation, $fileSize);
    $count++;
  }
  else {
    next;
  }
}

print "Total number of files: $count\n";

$total = "$list[$#list]";
$total =~ s/^(.+?)\s.+/$1/;
print "Total directory size: $total\n";

Answer 1

Вы можете указать свой собственный алгоритм сортировки и присвоить ему sort!

• Документация: сорт - perldoc.perl.org

---

Пример реализации

Вставьте ваши результаты (в хэш-ссылку) в массив с именем @entries и используйте что-то вроде следующего.

my @entries;

...

# inside your loop

  push @entries, {
    'filename' => $fileName,
    'location' => $fileLocation,
    'size'     => $fileSize
  };

...

my @sorted_entries = sort {
  $a->{'filename'} cmp $b->{'filename'} || # use 'cmp' for strings
  $a->{'location'} cmp $b->{'location'} ||
  $a->{'size'}     <=> $b->{'size'}        # use '<=>' for numbers
} @entries;