#!/usr/bin/perl -w
use strict;

my @data;
my $i=-1;

# читаем все данные в массив хэшей
foreach (<>){
 if (/^(\S+)\s+(.*)$/){
   if ($1 eq "номер") {$i++;}
   $data[$i]{$1}=$2;
 }
}


print "<html><head><title>Список всех отчетов</title></head><body> 
<h2> Список всех отчетов</h2>
<p>Отчеты иногда повторяются (карточки из разных ящиков). После того, как
будут набраны все карточки, повторения будут проверены и слиты вместе.
\n"; 

my $j=0;
foreach(sort {${$a}{"номер"}<=>${$b}{"номер"}} @data){ # сортировка по номеру отчета
 ${$_}{"номер"} = int(${$_}{"номер"}) if (${$_}{"номер"}!=0);
 if (defined ${$_}{"маршрут"}){
  $j++;
  if (defined ${$_}{"вид"}){
    ${$_}{"вид"} = "водный" if ${$_}{"вид"} eq "в";
    ${$_}{"вид"} = "пеший" if ${$_}{"вид"} eq "п";
    ${$_}{"вид"} = "горный" if ${$_}{"вид"} eq "г";
    ${$_}{"вид"} = "пеше-водный" if ${$_}{"вид"} eq "п-в";
    ${$_}{"вид"} = "водно-пеше-горный" if ${$_}{"вид"} eq "в-п-г";
  }

  print "<p><b><font color=\"#FF0000\">${$_}{\"номер\"}</font> ${$_}{\"район\"}: ${$_}{\"маршрут\"}</b><br>\n";
  print "${$_}{\"год\"}"  if defined ${$_}{"год"};
  print " /${$_}{\"месяцы\"}/"  if defined ${$_}{"месяцы"};
  print ", ${$_}{\"кс\"}КС"   if defined ${$_}{"кс"};
  print ", ${$_}{\"вид\"}"  if defined ${$_}{"вид"};
  print " (${$_}{\"суда\"})" if defined ${$_}{"суда"};
  print ", ${$_}{\"руковод\"}"  if defined ${$_}{"руковод"};
  print " (${$_}{\"город\"})" if defined ${$_}{"город"};
  print "\n<br>${$_}{\"пометки\"}"  if defined ${$_}{"пометки"};
  print "\n<br><i>${$_}{\"коммент\"}</i>" if defined ${$_}{"коммент"};
  print "\n";
 }
}

print "
<p>пока всего $j отчетов
<p><a href=\"index.htm\">вернуться назад</a> 
</body></html>\n"; 
 
