При выборе языка программирования я остановился на вездесущем Perl, не устояв перед его широкими возможностями и богатством платформ, на которые он перенесён.

Кроме того, давайте не будем использовать в нашей программе внешних модулей. Такой код можно будет запустить под Windows, даже не устанавливая громоздкий ActivePerl, а воспользовавшись одним только perl.exe из коллекции DJGPP[4]. Многие из них обладают существенными ограничениями, которые касаются сетевых возможностей, возможностей работы с базами данных, ограниченным набором модулей, но эти ограничения не повлияют на работоспособность кода, приводимого в настоящей статье. Неприятным сюрпризом может стать только то, что некоторые сборки для DOS не поддерживают длинных имён.). У пользователей UNIX проблем с установкой Perl вообще не возникнет, поскольку Perl является неотъемлемой частью подобных систем.

Можно было бы поступить ещё концептуальней: написать программу на чём-нибудь компилируемом, например, на C. Такая программа не требовала бы даже интерпретатора. Возможно, это хорошая идея. Я не пошёл по этому пути по двум причинам. Во-первых, разница не так принципиальна: избавились от интерпретатора – понадобился компилятор. Во-вторых, код получился бы не такой компактный, и приводить его в статье было бы не так удобно. Последнее обстоятельство, как вы понимаете, не должно останавливать вас.

Осмотр кода и формат сценария сборки

Давайте пробежим глазами строки кода, который у меня получился:

01: #!/usr/bin/perl -w

02:

03: #use strict;

04:

05: my $INPUT_PATH ='<input/';

06: my $OUTPUT_PATH='>output/';

07:

08: sub          assemble_step {

09:                     my ($level, $file, $key)=@_;

10:                     print (('. 'x$level).$file.':'.$key." ");

11:                     local $/;

12:                     open FH, $INPUT_PATH.$file or die $file.' : '.$!;

13:                     my $text=<FH>;