#!/usr/bin/perl

# МАШИНА: СОСТОЯНИЕ => [[СИМВОЛ, СОСТОЯНИЕ, СДВИГ], ...]

%stats = (Garbage => [["^\\\\", "Path", 0], [0, 0, 1]],
    Path => [["^\$", "Param", 1], ["^. ", "Param", 0],
     ["^\\\\", 0, 1], ["^ТЕКСТ", "Text", 1],
     ["^ТАБЛИЦА", "Header", 1], ["^ЗАПИСИ", "Header", 1],
     [0, "Garbage", 0]],
    Header => [["^\$", "Text", 1], [0, 0, 1]],
    Text => [["^\$", "Param", 1], [0, 0, 1]],
    Param => [["^. ", 0, 1], ["^\\\\", "Path", 0],
     ["^\$", "Garbage", 1], [0, "Garbage", 0]]);

# СЧИТЫВАНИЕ СИМВОЛА, ЕСЛИ ОН ЕЩЕ НЕ БЫЛ СЧИТАН

sub ready {
    $reading = <FI> unless $reading;
    return 0 unless $reading;
    $reading =~ s/\s*\r?\n//;
    return 1
}

# ОДИН ТАКТ РАБОТЫ

sub step {
    my $l = $stats{$state};    # СОСТОЯНИЕ
    foreach (@$l) {
     my $s = $_->[0]; # СИМВОЛ
     if (!$s or $reading =~ /$s/) {
      $p->{$state . $s}() if exists $p->{$state . $s}; # ВЫВОД
      $state = $_->[1] if $_->[1]; # НОВОЕ СОСТОЯНИЕ
      $reading = 0 if $_->[2]; # СДВИГ
      return
     }
    }
}

# ФУНКЦИИ ВЫВОДА: СОСТОЯНИЕ.СИМВОЛ

$p1 = {"Garbage^\\\\", sub {
     print "Garbage-Path:", $reading, "\n"
    },
    "Param^\\\\", sub {
     print "Param-Path:", $reading, "\n"
    },
    "Garbage0", sub {
     print "Garbage:", $reading, "\n"
    }};

# СЧИТЫВАЕМ ЛЕНТУ (ФАЙЛ)

$s = shift @ARGV;
$s .= ".txt";
$p = $p1;
open FI, $s;
$reading = 0;
$state = "Garbage";
step() while ready();
close FI

    1000 REM GARBAGE
    1010 IF LEFT$(S$,1)="\" THEN 2000
    1020 GOTO 2100
    1100 REM PATH
    1110 IF LEN(S$)=0 THEN 2200
    1120 IF MID$(S$,2,1)=" " THEN 2300
    1130 IF LEFT$(S$,1)="\" THEN 2400
    1140 IF LEFT$(S$,5)="ТЕКСТ" THEN 2500
    1150 IF LEFT$(S$,7)="ТАБЛИЦА" THEN 2600
    1160 IF LEFT$(S$,6)="ЗАПИСИ" THEN 2700
    1170 GOTO 2800
    1200 REM HEADER
    1210 IF LEN(S$)=0 THEN 2900
    1220 GOTO 3000
    1300 REM TEXT
    1310 IF LEN(S$)=0 THEN 3100
    1320 GOTO 3200
    1400 REM PARAM
    1410 IF LEN(S$)=0 THEN 3500
    1420 IF LEFT$(S$,1)="\" THEN 3400
    1430 IF MID$(S$,2,1)=" " THEN 3300
    1440 GOTO 3600
    2000 REM GARBAGE - ОБРАТНАЯ КОСАЯ - PATH
    2090 GOTO 1100
    2100 REM GARBAGE - ПРОЧЕЕ - GARBAGE
    2190 LINE INPUT#1, S$: GOTO 1000
    2200 REM PATH - ПУСТО - PARAM
    2290 LINE INPUT#1, S$: GOTO 1400
    2300 REM PATH - БУКВА+ПРОБЕЛ - PARAM
    2390 GOTO 1400
    2400 REM PATH - ОБР.КОСАЯ - PATH
    2490 LINE INPUT#1, S$: GOTO 1100
    2500 REM PATH - "ТЕКСТ" - TEXT
    2590 LINE INPUT#1, S$: GOTO 1300
    2600 REM PATH - "ТАБЛИЦА" - HEADER
    2690 LINE INPUT#1, S$: GOTO 1200
    2700 REM PATH - "ЗАПИСИ" - HEADER
    2790 LINE INPUT#1, S$: GOTO 1200
    2800 REM PATH - ПРОЧЕЕ - GARBAGE
    2890 GOTO 1000
    2900 REM HEADER - ПУСТО - TEXT
    2990 LINE INPUT#1, S$: GOTO 1300
    3000 REM HEADER - ПРОЧЕЕ - HEADER
    3090 LINE INPUT#1, S$: GOTO 1200
    3100 REM TEXT - ПУСТО - PARAM
    3190 LINE INPUT#1, S$: GOTO 1400
    3200 REM TEXT - ПРОЧЕЕ - TEXT
    3290 LINE INPUT#1, S$: GOTO 1300
    3300 REM PARAM - БУКВА+ПРОБЕЛ - PARAM
    3390 LINE INPUT#1, S$: GOTO 1400
    3400 REM PARAM - ОБР.КОСАЯ - PATH
    3490 GOTO 1100
    3500 REM PARAM - ПУСТО - GARBAGE
    3590 LINE INPUT#1, S$: GOTO 1000
    3600 REM PARAM - ПРОЧЕЕ - GARBAGE
    3690 GOTO 1000