Сортировать пакеты строк по алфавиту

_{Примечание: дополнительный вопрос здесь: как отдельно отсортировать строки в нескольких «чанках», разделенных заголовками?}

Так что я нашел ответ, как сортировать строки в текстовых файлах по алфавиту. Но это не совсем то, что мне нужно сделать. У меня есть этот файл с профилями, содержащими 15 различных параметров, который входит в инструмент на работе и считывается машиной для получения списка профилей.

К сожалению, форматирование этого файла выглядит так:

[ProfileB]
param1=z
param2=y
param3=x
[ProfileA]
param1=k
param2=l
param3=

И я хочу отсортировать профили по алфавиту, но мне нужно, чтобы они оставались сгруппированными с их параметрами. Приведенный выше пример должен быть отсортирован так:

[ProfileA]
param1=k
param2=l
param3=
[ProfileB]
param1=z
param2=y
param3=x

Я предполагаю, что есть, что работать с фиксированным количеством строк (имя + параметры) или с символом «[» в качестве идентификатора начала группы строк.

Но это не в моих силах в манипулировании текстом. В моем распоряжении консольная команда Sublime Text, R или Linux.

Это работает в моем Debian:

sed '1 ! s/^\[/\x00\[/g' | sort -z | tr -d "\0"

Для работы с файлом (ами) используйте перенаправление (я), например { sed … ; } <input.txt >output.txt, где sed …находится вся команда.

Процедура выглядит следующим образом:

1. sedвставляет нулевой символ перед каждым, [который находится в начале строки, если строка не является первой. Таким образом, нулевые символы разделяют профили.
2. sort -z использует эти нулевые символы в качестве разделителей, поэтому сортирует целые профили, а не отдельные строки.
3. tr удаляет нулевые символы

Вот небольшой Perl-скрипт, который делает эту работу:

my %profiles;
my $profile;

while (<>) {
    if (/\[(.+)\]/) {
        $profile = $1;
        next;
    }
    next if !defined $profile;

    chop if /\n$/;
    push @{ $profiles{$profile} }, $_;
}

foreach my $key (sort keys %profiles) {
    print "[$key]\n";
    foreach my $line (sort @{ $profiles{$profile} }) {
        print "$line\n";
    }
}

Сохраните его, sortProfiles.plнапример, в файл и запустите:

perl sortProfiles.pl <inputFile.txt >outputFile.txt

Как это устроено

1. Он читает входной файл ( while (<>)).
2. Для каждого профиля [profile]во входном файле он запоминает свое имя в $profileпеременной.
3. Он сохраняет каждую строку после заголовка профиля внутри массива.
4. Затем он сортирует ключи %profilesхэша.
5. Он также сортирует строки внутри массива.

В этом скрипте %profilesесть хеш. Его ключи - это имена профилей , а значения - массивы строк .
Таким образом, @{ $profiles{$profile} }массив, который хранит строки для имени профиля в $profileпеременной.