Сортировка в perl определенным образом

Question

Я пишу программу на Perl. Для его части требуется сортировка чисел. Но это не обычная сортировка. Значения примерно такие. 01,02,03,04,05,97,98,99. Я хочу, чтобы он был отсортирован таким образом.

97 
98 
99 
01 
02 
03 
04 
05 

Мы сортируем пакеты данных. Если вчера последний пакет данных составлял 96, то сегодня он начнется с 97 и продолжится до 99, а затем вернется к 01 02 .... и остановится на некотором количестве, скажем 06.

Answer 1

Скажите последнее число со вчерашнего дня составляет 93 (случай 1). Вы хотите

94: position 0 
95: position 1 
.. 
93: position 99 

Операция модуля может использоваться для создания этого отображения.

($_ - $last_from_yesterday - 1) % 100 

Сортировка становится тривиальным:

sort { ($a - $last_from_yesterday - 1) % 100 <=> ($b - $last_from_yesterday - 1) % 100 } 

Answer 2

Я предполагаю, основываясь на данных, что ваши номера являются последовательными, но обтекание 100. Таким образом, вы нашли бы «старт», заказав все, затем ищет разрыв. (Это прерывается, если у вас есть полный цикл!)

#!/usr/bin/env perl 
use strict; 
use warnings; 

my @numbers = (1,2,3,4,5,97,98,99); 

#sort them 
my @sorted = sort { $a <=> $b } @numbers; 

#rotate the numbers until your 'gap' is off the end of the cycle. 

my $splice = 0; 
for (my $index = 0; $index < $#numbers; $index++) { 
    print 1+$sorted[$index] % 100,","; 
    print $sorted[$index+1] % 100,"\n"; 
    if (($sorted[$index] + 1) %100 < $sorted[$index+1] % 100) { 
     $splice = $index; 
    } 
} 
print "Splicing on $splice\n"; 
@numbers = (splice (@sorted, $splice+1, @sorted - $splice), splice (@sorted, 0, $splice+1)); 
print join ",", @numbers; 

Редактировать: Хорошо, новые тестовые примеры. Могут не работать для них. Надеюсь, это иллюстрирует подход. Но с пробелами в вашем заказе (я не предполагал пробелов) это очень сложно сказать, потому что вы в основном ищете самый большой разрыв.